用VB编写抽奖程序教学设计doc.docx
- 文档编号:7887662
- 上传时间:2023-01-27
- 格式:DOCX
- 页数:22
- 大小:17.97KB
用VB编写抽奖程序教学设计doc.docx
《用VB编写抽奖程序教学设计doc.docx》由会员分享,可在线阅读,更多相关《用VB编写抽奖程序教学设计doc.docx(22页珍藏版)》请在冰豆网上搜索。
用VB编写抽奖程序教学设计doc
用VB编写抽奖程序教学设计
一、界面设计
新建一个标准的exe工程。
在form1窗体中放置一个定时器(timer1)、两个文本框(label1,label2)、两个命令按钮(command1,command2)和包含7个元素的控件数组(label3(0)—label3(6))。
二、属性设置
label3控件数组中的所有元素皆采用相同设置。
三、代码编写
本程序的实现原理是:
当用户单击"开始"按钮时,打开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。
当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。
当产生了7个中奖号码时,关闭定时器控件,停止产生随机数。
本程序用到的函数简介:
(1)randomize:
初始化随机数的种子数。
(2)int():
返回一个非整形数字取整后的整数。
(3)rnd:
产生一个0~1之间的随机数(大于等于0,但小于1)。
(4)qbcolor():
返回参数(0~15)对应的颜色。
(5)val:
将一个字符形变量转化为一个数值型变量。
(6)format:
格式化一个表达式。
以下是程序的完整代码:
dimsyasinteger
′命令按钮1的单击事件
privatesubcommand1_click()
′清除label3控件数组的内容
fori=0to6
label3(i).caption=′′
next
timer1.enabled=true′打开定时器
command1.enabled=false′使开始按钮失效
sy=-1′索引值初始化为-1
endsub
′命令按钮2的单击事件
privatesubcommand2_click()
unloadme′卸载本窗体
endsub
′定时器1的定时事件
privatesubtimer1_timer()
dimsj1,sj2,ysasinteger
randomize′初始化随机数
sj1=int(rnd*32)+1
sj2=int(rnd*50)
label1.caption=sj1′设置标签1的内容
ys=int(rnd*6)+9
label1.forecolor=qbcolor(ys)
ifsj2=24then′如果sj2等于24
sy=sy+1′索引值加1
fora=otosy
ifsj1=val(label3(a).caption)then
sy=sy-1
exitsub
endif
next
label3(sy).caption=format(sj1,′00′)
label3(sy).forecolor=qbcolor(ys)
endif
ifsy=6then′如果索引值等于6
timer1.enabled=false′关闭定时器
command1.enabled=true′使命令按钮有效(即可重新开始抽奖)
endif
endsub
单击工具栏上的"启动"按钮,启动抽奖程序。
单击"开始"按钮,label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在label3控件数组中产生一组7个数字的中奖号码。
再次单击"开始"按钮,程序将自动清除label3控件数组中的内容,并重新产生一组7个数字的中奖号码(与前面的不相同)。
<
2018-11-22
一、界面设计
新建一个标准的exe工程。
在form1窗体中放置一个定时器(timer1)、两个文本框(label1,label2)、两个命令按钮(command1,command2)和包含7个元素的控件数组(label3(0)—label3(6))。
二、属性设置
label3控件数组中的所有元素皆采用相同设置。
三、代码编写
本程序的实现原理是:
当用户单击"开始"按钮时,打开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。
当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。
当产生了7个中奖号码时,关闭定时器控件,停止产生随机数。
本程序用到的函数简介:
(1)randomize:
初始化随机数的种子数。
(2)int():
返回一个非整形数字取整后的整数。
(3)rnd:
产生一个0~1之间的随机数(大于等于0,但小于1)。
(4)qbcolor():
返回参数(0~15)对应的颜色。
(5)val:
将一个字符形变量转化为一个数值型变量。
(6)format:
格式化一个表达式。
以下是程序的完整代码:
dimsyasinteger
′命令按钮1的单击事件
privatesubcommand1_click()
′清除label3控件数组的内容
fori=0to6
label3(i).caption=′′
next
timer1.enabled=true′打开定时器
command1.enabled=false′使开始按钮失效
sy=-1′索引值初始化为-1
endsub
′命令按钮2的单击事件
privatesubcommand2_click()
unloadme′卸载本窗体
endsub
′定时器1的定时事件
privatesubtimer1_timer()
dimsj1,sj2,ysasinteger
randomize′初始化随机数
sj1=int(rnd*32)+1
sj2=int(rnd*50)
label1.caption=sj1′设置标签1的内容
ys=int(rnd*6)+9
label1.forecolor=qbcolor(ys)
ifsj2=24then′如果sj2等于24
sy=sy+1′索引值加1
fora=otosy
ifsj1=val(label3(a).caption)then
sy=sy-1
exitsub
endif
next
label3(sy).caption=format(sj1,′00′)
label3(sy).forecolor=qbcolor(ys)
endif
ifsy=6then′如果索引值等于6
timer1.enabled=false′关闭定时器
command1.enabled=true′使命令按钮有效(即可重新开始抽奖)
endif
endsub
单击工具栏上的"启动"按钮,启动抽奖程序。
单击"开始"按钮,label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在label3控件数组中产生一组7个数字的中奖号码。
再次单击"开始"按钮,程序将自动清除label3控件数组中的内容,并重新产生一组7个数字的中奖号码(与前面的不相同)。
<
2018-11-22
一、界面设计
新建一个标准的exe工程。
在form1窗体中放置一个定时器(timer1)、两个文本框(label1,label2)、两个命令按钮(command1,command2)和包含7个元素的控件数组(label3(0)—label3(6))。
二、属性设置
label3控件数组中的所有元素皆采用相同设置。
三、代码编写
本程序的实现原理是:
当用户单击"开始"按钮时,打开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。
当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。
当产生了7个中奖号码时,关闭定时器控件,停止产生随机数。
本程序用到的函数简介:
(1)randomize:
初始化随机数的种子数。
(2)int():
返回一个非整形数字取整后的整数。
(3)rnd:
产生一个0~1之间的随机数(大于等于0,但小于1)。
(4)qbcolor():
返回参数(0~15)对应的颜色。
(5)val:
将一个字符形变量转化为一个数值型变量。
(6)format:
格式化一个表达式。
以下是程序的完整代码:
dimsyasinteger
′命令按钮1的单击事件
privatesubcommand1_click()
′清除label3控件数组的内容
fori=0to6
label3(i).caption=′′
next
timer1.enabled=true′打开定时器
command1.enabled=false′使开始按钮失效
sy=-1′索引值初始化为-1
endsub
′命令按钮2的单击事件
privatesubcommand2_click()
unloadme′卸载本窗体
endsub
′定时器1的定时事件
privatesubtimer1_timer()
dimsj1,sj2,ysasinteger
randomize′初始化随机数
sj1=int(rnd*32)+1
sj2=int(rnd*50)
label1.caption=sj1′设置标签1的内容
ys=int(rnd*6)+9
label1.forecolor=qbcolor(ys)
ifsj2=24then′如果sj2等于24
sy=sy+1′索引值加1
fora=otosy
ifsj1=val(label3(a).caption)then
sy=sy-1
exitsub
endif
next
label3(sy).caption=format(sj1,′00′)
label3(sy).forecolor=qbcolor(ys)
endif
ifsy=6then′如果索引值等于6
timer1.enabled=false′关闭定时器
command1.enabled=true′使命令按钮有效(即可重新开始抽奖)
endif
endsub
单击工具栏上的"启动"按钮,启动抽奖程序。
单击"开始"按钮,label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在label3控件数组中产生一组7个数字的中奖号码。
再次单击"开始"按钮,程序将自动清除label3控件数组中的内容,并重新产生一组7个数字的中奖号码(与前面的不相同)。
<
2018-11-22
一、界面设计
新建一个标准的exe工程。
在form1窗体中放置一个定时器(timer1)、两个文本框(label1,label2)、两个命令按钮(command1,command2)和包含7个元素的控件数组(label3(0)—label3(6))。
二、属性设置
label3控件数组中的所有元素皆采用相同设置。
三、代码编写
本程序的实现原理是:
当用户单击"开始"按钮时,打开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。
当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。
当产生了7个中奖号码时,关闭定时器控件,停止产生随机数。
本程序用到的函数简介:
(1)randomize:
初始化随机数的种子数。
(2)int():
返回一个非整形数字取整后的整数。
(3)rnd:
产生一个0~1之间的随机数(大于等于0,但小于1)。
(4)qbcolor():
返回参数(0~15)对应的颜色。
(5)val:
将一个字符形变量转化为一个数值型变量。
(6)format:
格式化一个表达式。
以下是程序的完整代码:
dimsyasinteger
′命令按钮1的单击事件
privatesubcommand1_click()
′清除label3控件数组的内容
fori=0to6
label3(i).caption=′′
next
timer1.enabled=true′打开定时器
command1.enabled=false′使开始按钮失效
sy=-1′索引值初始化为-1
endsub
′命令按钮2的单击事件
privatesubcommand2_click()
unloadme′卸载本窗体
endsub
′定时器1的定时事件
privatesubtimer1_timer()
dimsj1,sj2,ysasinteger
randomize′初始化随机数
sj1=int(rnd*32)+1
sj2=int(rnd*50)
label1.caption=sj1′设置标签1的内容
ys=int(rnd*6)+9
label1.forecolor=qbcolor(ys)
ifsj2=24then′如果sj2等于24
sy=sy+1′索引值加1
fora=otosy
ifsj1=val(label3(a).caption)then
sy=sy-1
exitsub
endif
next
label3(sy).caption=format(sj1,′00′)
label3(sy).forecolor=qbcolor(ys)
endif
ifsy=6then′如果索引值等于6
timer1.enabled=false′关闭定时器
command1.enabled=true′使命令按钮有效(即可重新开始抽奖)
endif
endsub
单击工具栏上的"启动"按钮,启动抽奖程序。
单击"开始"按钮,label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在label3控件数组中产生一组7个数字的中奖号码。
再次单击"开始"按钮,程序将自动清除label3控件数组中的内容,并重新产生一组7个数字的中奖号码(与前面的不相同)。
<
2018-11-22
一、界面设计
新建一个标准的exe工程。
在form1窗体中放置一个定时器(timer1)、两个文本框(label1,label2)、两个命令按钮(command1,command2)和包含7个元素的控件数组(label3(0)—label3(6))。
二、属性设置
label3控件数组中的所有元素皆采用相同设置。
三、代码编写
本程序的实现原理是:
当用户单击"开始"按钮时,打开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。
当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。
当产生了7个中奖号码时,关闭定时器控件,停止产生随机数。
本程序用到的函数简介:
(1)randomize:
初始化随机数的种子数。
(2)int():
返回一个非整形数字取整后的整数。
(3)rnd:
产生一个0~1之间的随机数(大于等于0,但小于1)。
(4)qbcolor():
返回参数(0~15)对应的颜色。
(5)val:
将一个字符形变量转化为一个数值型变量。
(6)format:
格式化一个表达式。
以下是程序的完整代码:
dimsyasinteger
′命令按钮1的单击事件
privatesubcommand1_click()
′清除label3控件数组的内容
fori=0to6
label3(i).caption=′′
next
timer1.enabled=true′打开定时器
command1.enabled=false′使开始按钮失效
sy=-1′索引值初始化为-1
endsub
′命令按钮2的单击事件
privatesubcommand2_click()
unloadme′卸载本窗体
endsub
′定时器1的定时事件
privatesubtimer1_timer()
dimsj1,sj2,ysasinteger
randomize′初始化随机数
sj1=int(rnd*32)+1
sj2=int(rnd*50)
label1.caption=sj1′设置标签1的内容
ys=int(rnd*6)+9
label1.forecolor=qbcolor(ys)
ifsj2=24then′如果sj2等于24
sy=sy+1′索引值加1
fora=otosy
ifsj1=val(label3(a).caption)then
sy=sy-1
exitsub
endif
next
label3(sy).caption=format(sj1,′00′)
label3(sy).forecolor=qbcolor(ys)
endif
ifsy=6then′如果索引值等于6
timer1.enabled=false′关闭定时器
command1.enabled=true′使命令按钮有效(即可重新开始抽奖)
endif
endsub
单击工具栏上的"启动"按钮,启动抽奖程序。
单击"开始"按钮,label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在label3控件数组中产生一组7个数字的中奖号码。
再次单击"开始"按钮,程序将自动清除label3控件数组中的内容,并重新产生一组7个数字的中奖号码(与前面的不相同)。
<
2018-11-22
一、界面设计
新建一个标准的exe工程。
在form1窗体中放置一个定时器(timer1)、两个文本框(label1,label2)、两个命令按钮(command1,command2)和包含7个元素的控件数组(label3(0)—label3(6))。
二、属性设置
label3控件数组中的所有元素皆采用相同设置。
三、代码编写
本程序的实现原理是:
当用户单击"开始"按钮时,打开定时器,利用定时器控件同时产生两个随机数sj1、sj2,sj1的范围是1~32,sj2的范围是0~49。
当sj1=24的时侯,用sj2与前面产生的中奖号码作比较,若与前面的中奖相同,则退出本过程;若与前面的中奖号码不同,则将此随机数作为中奖号码。
当产生了7个中奖号码时,关闭定时器控件,停止产生随机数。
本程序用到的函数简介:
(1)randomize:
初始化随机数的种子数。
(2)int():
返回一个非整形数字取整后的整数。
(3)rnd:
产生一个0~1之间的随机数(大于等于0,但小于1)。
(4)qbcolor():
返回参数(0~15)对应的颜色。
(5)val:
将一个字符形变量转化为一个数值型变量。
(6)format:
格式化一个表达式。
以下是程序的完整代码:
dimsyasinteger
′命令按钮1的单击事件
privatesubcommand1_click()
′清除label3控件数组的内容
fori=0to6
label3(i).caption=′′
next
timer1.enabled=true′打开定时器
command1.enabled=false′使开始按钮失效
sy=-1′索引值初始化为-1
endsub
′命令按钮2的单击事件
privatesubcommand2_click()
unloadme′卸载本窗体
endsub
′定时器1的定时事件
privatesubtimer1_timer()
dimsj1,sj2,ysasinteger
randomize′初始化随机数
sj1=int(rnd*32)+1
sj2=int(rnd*50)
label1.caption=sj1′设置标签1的内容
ys=int(rnd*6)+9
label1.forecolor=qbcolor(ys)
ifsj2=24then′如果sj2等于24
sy=sy+1′索引值加1
fora=otosy
ifsj1=val(label3(a).caption)then
sy=sy-1
exitsub
endif
next
label3(sy).caption=format(sj1,′00′)
label3(sy).forecolor=qbcolor(ys)
endif
ifsy=6then′如果索引值等于6
timer1.enabled=false′关闭定时器
command1.enabled=true′使命令按钮有效(即可重新开始抽奖)
endif
endsub
单击工具栏上的"启动"按钮,启动抽奖程序。
单击"开始"按钮,label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在label3控件数组中产生一组7个数字的中奖号码。
再次单击"开始"按钮,程序将自动清除label3控件数组中的内容,并重新产生一组7
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编写 抽奖 程序 教学 设计 doc