永利国际娱乐平台

 | 网站首页 | 小学教案 | 小学课件 | 小学试卷 | 初中教案 | 初中课件 | 初中试卷 | 高中教案 | 高中课件 | 高中试卷 | 选修课程 | 教师考试 | 心理班会 | 素材 | Map | 电子图书 | 
本站域名www.freezl.net,提供自幼儿园到高中各科各类资源免注册高速免费下载。设为首页 | 加入收藏 |
您现在的位置: 永利国际娱乐平台 >> 高中教案 >> 信息技术 >> 教案信息
教案搜索 高级搜索
高中信息技术基础VB程序设计实例:幸运抽奖源代码数据库打包下载DOC免费下载

高速下载:
高中信息技术基础VB程序设计实例:幸运抽奖源代码数据库打包下载DOC免费下载>>下载地址1  
  文件大小: 55 K
  添加时间: 2019/1/29 16:30:55
  下载次数: 本日: 总计:
  资源简介:
  

某电视台的直播节目结束时,主持人通过抽奖程序从参与短信投票的观众中抽取若干名幸运观众。假设共有num(num<1000)名观众参与短信投票,手机号码数据存放数据库文件”lottery.accdb”的vote表中,抽奖程序运行时界面如图所示。主持人在文本框text1中输入幸运观众数量后,单击“开始”按钮command1,在列表框list1中显示幸运观众的手机号码。按此要求编写的程序如下,但加框出代码有错,请改正。
Private Sub Command1_Click()
Dim t As Integer
Dim i As Integer
Randomize
n = Val(Text1.Text)
If n > 0 Then
   For i = 1 To n
      luck(i) = ""
   Next i
   List1.Clear
   For i = 1 To n
      t = Int(Rnd * num) + 1
      Do While check(phone(t)) = True
         t = Int(Rnd * num) + 1
      Loop
     phone(i)= luck(t)
    List2.AddItem Mid(luck(i), 1, 3) + "****" + Mid(luck(i), 8, 4)
   Next i
End If
End Sub
'check 函数用于判断随机抽中的幸运观众电话号码是否重复,函数值为true表示号码重复
Function check(s As String) As Boolean
   Dim i As Integer
   check = False
   For i = 1 To n
      If luck(i) <> s Then
          check = True
          Exit For
      End If
   Next i
End Function
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim STRSQL As String
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=" + App.Path + "\lottery.accdb"
conn.Open
STRSQL = "select * from vote"
Set rs.ActiveConnection = conn
rs.Open STRSQL
num = 0
Do While Not rs.EOF
   num = num + 1
   phone(num) = rs.Fields("cellphone")
   rs.MoveNext
   List1.AddItem phone(num)
Loop
rs.Close
Set rs = Nothing
Set conn = Nothing
List1.AddItem "抽奖数据初始化完成," + "参与抽奖共" + Str(num) + "人。"
End Sub

 


资源下载地址: 高中信息技术基础VB程序设计实例:幸运抽奖源代码数据库打包下载DOC免费下载>>>>>下载地址1  
本资源 ,点击关键字可以直接在永利国际娱乐平台上搜索出相关资料。
本站的教学教育资源,均从互联网收集整理,如果侵犯了你的版权,请联系删除。感谢!
  推荐资源
 高中信息技术基础VB程序设计实例:幸运抽奖源代码数据库打包下载DOC免费下载
 高中信息技术基础VB程序设计实例:积分统计源代码数据库打包下载DOC免费下载
 高二信息技术下册VB程序设计第十课选择结构表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB程序设计第八课函数与赋值语句表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB程序设计第七课赋值语句表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB程序设计第五课常量变量函数表达式表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB程序设计第三课编写别碰我程序表格式精品教案教学设计DOC免费下载
 高二信息技术下册VB编程第二课面向对象程序设计表格式精品教案教学设计DOC免费下载
 高中信息技术基础Photoshop知识点复习备考整理DOC免费下载
 高中信息技术基础4.3Access记录的高级操作优秀公开课教学设计附学生导学单DOC免费下载
 教科版高中信息技术基础必修4.2.1表格数据的处理公开课教案设计DOC免费下载
 最新高中信息技术学业考试Flash专题复习讲义导学案DOC免费下载
 高中信息技术基础《Word2007创意排版》教案设计DOC免费下载
 高中信息技术基础《Word2007模仿排版》教案设计DOC免费下载
 高中信息技术基础《Word2007的认识》教案设计DOC免费下载
 高中信息技术基础《WindowsXP入门》教案设计DOC免费下载
 高中信息技术基础《计算机的历史》教案设计DOC免费下载
 高中信息技术基础《Photoshop:初识图像处理》公开课导学案DOC免费下载
 高一信息技术必修3.1信息工具及文字处理最新公开课导学案设计DOC免费下载
 教科版信息技术基础必修《表格数据的处理》表格式公开课教案设计DOC免费下载
 中职职高信息技术《ASP动态网站制作:“注册”功能实现——Request对象》优质公开课教案设计DOC免费下载
 教科版信息技术必修《文本信息的结构化和形象化》优质公开课教案教学案例DOC免费下载
 教科版信息技术基础《日新月异的信息技术》精品信息化表格式教案设计DOC免费下载
 粤教版信息技术选修2《多媒体技术应用:声音的加工》精品说课设计DOC免费下载
 沪科版信息技术基础《信息技术及其发展》2课时精品表格式教案附教学评价表及反思DOC免费下载
 2014年广西省普通高中信息技术学科学业水平考试复习资料知识要点重点梳理汇总DOC免费下载
 广西省2013年高一信息技术学业水平考试复习要点知识点整理DOC免费下载
 高中信息技术VB开发环境预习探究训练导学案DOC免费下载
 高中信息技术VB可视化编程预习探究训练导学案DOC免费下载
 高中信息技术VB中数据和常量、变量预习探究训练导学案DOC免费下载
 高中信息技术基础VB程序设计实例:幸运抽奖源代码
 高中信息技术基础VB程序设计实例:积分统计源代码
 高二信息技术下册VB程序设计第十三课滚动条控件表
 高二信息技术下册VB程序设计第十课选择结构表格式
 高二信息技术下册VB程序设计第九课关系表达式与逻
 高二信息技术下册VB程序设计第八课函数与赋值语句
 高二信息技术下册VB程序设计第七课赋值语句表格式
 高二信息技术下册VB程序设计第六课常用语句表格式
 高二信息技术下册VB程序设计第五课常量变量函数表
 高二信息技术下册VB程序设计第四课顺序结构表格式
 高二信息技术下册VB程序设计第三课编写别碰我程序
 高二信息技术下册VB编程第二课面向对象程序设计表
高中信息技术基础VB程序设计实例:积分统计源代码
高二信息技术下册VB程序设计第十三课滚动条控件表
高二信息技术下册VB程序设计第十课选择结构表格式
高二信息技术下册VB程序设计第九课关系表达式与逻
高二信息技术下册VB程序设计第八课函数与赋值语句
高二信息技术下册VB程序设计第七课赋值语句表格式
高二信息技术下册VB程序设计第六课常用语句表格式
高二信息技术下册VB程序设计第五课常量变量函数表
高二信息技术下册VB程序设计第四课顺序结构表格式
高二信息技术下册VB程序设计第三课编写别碰我程序
高二信息技术下册VB编程第二课面向对象程序设计表
高二信息技术下册VB程序设计第一课算法表格式精品
高中信息技术基础Photoshop知识点复习备考整理DO
高中信息技术基础4.3Access记录的高级操作优秀公
最新高一历史必修二《战后资本主义的新变化》优秀
教科版高中信息技术基础必修4.2.1表格数据的处理
最新高中信息技术学业考试Photoshop知识点整理DO
最新高中信息技术学业考试Flash专题复习讲义导学
中职职高信息技术《轻松玩转大数据》教师竞赛说课
高中信息技术基础《Word2007制作表格》教案设计D
 高中信息技术基础VB程序设计实例:幸运抽奖源代码
 高中信息技术基础Photoshop知识点复习备考整理DO
 高中信息技术基础4.3Access记录的高级操作优秀公
 教科版高中信息技术基础必修4.2.1表格数据的处理
 最新高中信息技术学业考试Photoshop知识点整理DO
 最新高中信息技术学业考试Flash专题复习讲义导学
 高中信息技术基础《Word2007制作表格》教案设计D
 高中信息技术基础《Word2007创意排版》教案设计D
 高中信息技术基础《Word2007模仿排版》教案设计D
 高中信息技术基础《Word2007的认识》教案设计DOC
 高中信息技术基础《中文输入法》教案设计DOC免费
 高中信息技术基础《系统管理设置》教案设计DOC免
 高中信息技术基础《文件(夹)的管理》教案设计D
 高中信息技术基础《WindowsXP入门》教案设计DOC免
 高中信息技术基础《计算机的数制与编码》教案设计
 高中信息技术基础《计算机的软件》教案设计DOC免
 高中信息技术基础《计算机的硬件》教案设计DOC免
 高中信息技术基础《计算机的历史》教案设计DOC免
 高中信息技术基础《Photoshop:初识图像处理》公
 高一信息技术必修3.1信息工具及文字处理最新公开
| 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | 
永利国际娱乐平台| | 永利国际娱乐官网|浙ICP备17044199号-1