欢迎来到天天文库
浏览记录
ID:27608499
大小:16.46 KB
页数:4页
时间:2018-12-05
《用vb编写抽奖程序教学设计》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、学生会成立以来,学生会搞了一系列的活动,而且都取得了较好的成绩。通过各部的相互努力,我们获得了不少经验。用VB编写抽奖程序教学设计一、界面设计新建一个标准的EXE工程。在Form1窗体中放置一个定时器(Timer1)、两个文本框(Label1,Label2)、两个命令按钮(command1,command2)和包含7个元素的控件数组(Label3(0)—Label3(6))。二、属性设置Label3控件数组中的所有元素皆采用相同设置。三、代码编写本程序的实现原理是:当用户单击“开始”按钮时,打
2、开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。当产生了7个中奖号码时,关闭定时器控件,停止产生随机数。本程序用到的函数简介:Randomize:初始化随机数的种子数。Int():返回一个非整形数字取整后的整数。Rnd:产生一个0~1之间的随机数(大于等于0,但小于1)。Qbcolor():返回参数(0~15)对应的颜色。Val:将
3、一个字符形变量转化为一个数值型变量。团结创新,尽现丰富多彩的课余生活1。庆祝##系成立之时,我们学生会举办了一次“邀明月,共成长,师生同欢”茶话会。职教系部分老师和我系全体教师以及各班班委参加了此茶话会。学生会成立以来,学生会搞了一系列的活动,而且都取得了较好的成绩。通过各部的相互努力,我们获得了不少经验。Format:格式化一个表达式。以下是程序的完整代码:DimsyAsInteger′命令按钮1的单击事件PrivateSubcommand1_click()′清除Label3控件数组的内容Fori=0T
4、o6Label3(i).caption=″″NextTimer1.Enabled=True′打开定时器command1.Enabled=False′使开始按钮失效sy=-1′索引值初始化为-1EndSub′命令按钮2的单击事件PrivateSubcommand2_click()Unloadme′卸载本窗体EndSub′定时器1的定时事件PrivateSubTimer1_Timer()Dimsj1,sj2,ysAsIntegerRand
5、omize′初始化随机数sj1=Int(Rnd*32)+1团结创新,尽现丰富多彩的课余生活1。庆祝##系成立之时,我们学生会举办了一次“邀明月,共成长,师生同欢”茶话会。职教系部分老师和我系全体教师以及各班班委参加了此茶话会。学生会成立以来,学生会搞了一系列的活动,而且都取得了较好的成绩。通过各部的相互努力,我们获得了不少经验。sj2=Int(Rnd*50)Label1.caption=sj1′设置标签1的内容ys=Int(Rnd*6)+9Label1.Forecolor=QBcolor(ys)Ifsj2
6、=24Then′如果sj2等于24sy=sy+1′索引值加1Fora=oTosyIfsj1=Val(Label3(a).caption)Thensy=sy-1ExitSubEndIfNextLabel3(sy).caption=Format(sj1,″00″)Label3(sy).Forecolor=QBcolor(ys)EndIfIfsy=6Then′如果索引值等于6Timer1.Enabled=False′关闭定时器command1.Enabled=Tr
7、ue′使命令按钮有效(即可重新开始抽奖)EndIfEndSub团结创新,尽现丰富多彩的课余生活1。庆祝##系成立之时,我们学生会举办了一次“邀明月,共成长,师生同欢”茶话会。职教系部分老师和我系全体教师以及各班班委参加了此茶话会。学生会成立以来,学生会搞了一系列的活动,而且都取得了较好的成绩。通过各部的相互努力,我们获得了不少经验。单击工具栏上的“启动”按钮,启动抽奖程序。单击“开始”按钮,Label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在Label3控
8、件数组中产生一组7个数字的中奖号码。再次单击“开始”按钮,程序将自动清除Label3控件数组中的内容,并重新产生一组7个数字的中奖号码(与前面的不相同)。<团结创新,尽现丰富多彩的课余生活1。庆祝##系成立之时,我们学生会举办了一次“邀明
此文档下载收益归作者所有