用vb编写抽奖程序教学设计

《用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。庆祝##系成立之时，我们学生会举办了一次“邀明