| 澳门金沙网上平台首页 | 澳门金沙网上平台 | 澳门金沙网上平台官网 | 小学试卷 | 初中教案 | 初中课件 | 初中试卷 | 高中教案 | 高中课件 | 高中试卷 | 选修课程 | 教师考试 | 心理班会 | 素材 | Map | 
澳门金沙网上平台: 本站域名www.tfcyberhaven.com,提供自幼儿园到高中各科各类资源免注册高速免费下载。 设为首页 | 加入收藏 |
您现在的位置: 澳门金沙网上平台 >> 高中教案 >> 信息技术 >> 教案信息

高中信息技术资源导航
高中信技教案 高中信技课件 高中信技试卷
::高中信息技术最近更新::
 高中信息技术基础VB程序设计实例:幸运抽奖源
 高中信息技术基础VB程序设计实例:积分源
 高二信息技术下册VB程序设计第十课选择结构表
 高二信息技术下册VB程序设计第八课函数与赋值
 高二信息技术下册VB程序设计第七课赋值语句表
 高二信息技术下册VB程序设计第五课常量变量函
 高二信息技术下册VB程序设计第三课编写别碰我
 高二信息技术下册VB编程第二课面向对象程序设
 高中信息技术基础Photoshop知识点复习备考整理
高中信息技术推荐资源
 高中信息技术基础VB程序设计实例:幸运抽奖源代码数
 高中信息技术基础VB程序设计实例:积分源代码数
 高二信息技术下册VB程序设计第十课选择结构表格式精
 高二信息技术下册VB程序设计第八课函数与赋值语句表
 高二信息技术下册VB程序设计第七课赋值语句表格式精
 高二信息技术下册VB程序设计第五课常量变量函数表达
 高二信息技术下册VB程序设计第三课编写别碰我程序表
 高二信息技术下册VB编程第二课面向对象程序设计表格
 高中信息技术基础Photoshop知识点复习备考整理DOC免
 高中信息技术基础4.3Access记录的高级操作优秀公开课
 教科版高中信息技术基础必修4.2.1表格数据的处理公开
 最新高中信息技术学业考试Flash专题复习讲义导学案D
教案搜索 高级搜索
教学资源本地高速下载地址:
高中信息技术基础VB程序设计实例:幸运抽奖源代码数据库打包下载DOC免费下载>>>>>下载地址1  
高中信息技术相关资源
高中信息技术基础VB程序设计实例:积分源代
高二信息技术下册VB程序设计第十三课滚动条控件
高二信息技术下册VB程序设计第十课选择结构表格
高二信息技术下册VB程序设计第九课关系表达式与
高二信息技术下册VB程序设计第八课函数与赋值语
高二信息技术下册VB程序设计第七课赋值语句表格
高二信息技术下册VB程序设计第六课常用语句表格
高二信息技术下册VB程序设计第五课常量变量函数
高二信息技术下册VB程序设计第四课顺序结构表格
高二信息技术下册VB程序设计第三课编写别碰我程
高二信息技术下册VB编程第二课面向对象程序设计
高二信息技术下册VB程序设计第一课算法表格式精
高中信息技术基础Photoshop知识点复习备考整理
高中信息技术基础4.3Access记录的高级操作优秀
最新高一历史必修二《战后资本主义的新变化》优
教科版高中信息技术基础必修4.2.1表格数据的处
最新高中信息技术学业考试Photoshop知识点整理
最新高中信息技术学业考试Flash专题复习讲义导
中职职高信息技术《轻松玩转大数据》教师竞赛说
高中信息技术基础《Word2007制作表格》教案设计
高中信息技术热门资源
 高中信息技术基础Photoshop知识点复习备考整理
 高中信息技术基础4.3Access记录的高级操作优秀
 教科版高中信息技术基础必修4.2.1表格数据的处
 最新高中信息技术学业考试Photoshop知识点整理
 最新高中信息技术学业考试Flash专题复习讲义导
 高中信息技术基础《Word2007制作表格》教案设计
 高中信息技术基础《Word2007创意排版》教案设计
 高中信息技术基础《Word2007模仿排版》教案设计
 高中信息技术基础《Word2007的认识》教案设计D
 高中信息技术基础《中文输入法》教案设计DOC免
 高中信息技术基础《系统管理设置》教案设计DOC
 高中信息技术基础《文件(夹)的管理》教案设计
 高中信息技术基础《WindowsXP入门》教案设计DO
 高中信息技术基础《计算机的数制与编码》教案设
 高中信息技术基础《计算机的软件》教案设计DOC
 高中信息技术基础《计算机的硬件》教案设计DOC
 高中信息技术基础《计算机的历史》教案设计DOC
 高中信息技术基础《Photoshop:初识图像处理》
 高一信息技术必修3.1信息工具及文字处理最新公
 教科版信息技术基础必修《表格数据的处理》表格
::资源内容预览::
资源名称:高中信息技术基础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

 

温馨提示:本资源 ,点击关键字可以直接在澳门金沙网上平台上搜索出相关资料。
更多
  网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)发表评论

说明: 如果您发现该软件不能下载,请通知管理员或点击【此处报错】,谢谢!
未经本站明确许可,任何网站不得非法盗链及抄袭本站资源;如引用页面,请注明来自本站,谢谢您的支持!
本站提供的教育资源,仅可用于教育教学以及相关研究,不得用于商业用途。如果侵犯了你的版权,请联系删除。
| 设为首页 | 加入收藏 | 联系 | 友情链接 | 版权申明 | 360网站安全检测平台 | 管理登录 | 
澳门金沙网上平台| | 免费教学资源高速下载||浙ICP备17044199号-1

澳门金沙网上平台