分享
 
 
 

用VB编写抽奖程序

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

用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:格式化一个表达式。

以下是程序的完整代码:

Dim sy As Integer

′命令按钮1的单击事件

Private Sub Command1_Click()

′清除Label3控件数组的内容

For i=0 To 6

Label3(i).Caption=″″

Next

Timer1.Enabled=True′打开定时器

Command1.Enabled=False′使开始按钮失效

sy=-1′索引值初始化为-1

End Sub

′命令按钮2的单击事件

Private Sub Command2_Click()

Unload Me ′卸载本窗体

End Sub

′定时器1的定时事件

Private Sub Timer1_Timer()

Dim sj1,sj2,ys As Integer

Randomize′初始化随机数

sj1=Int(Rnd*32)+1

sj2=Int(Rnd*50)

Label1.Caption=sj1′设置标签1的内容

ys=Int(Rnd*6)+9

Label1.ForeColor=QBColor(ys)

If sj2=24 Then′如果sj2等于24

sy=sy+1′索引值加1

For a=o To sy

If sj1=Val(Label3(a).Caption) Then

sy=sy - 1

Exit Sub

End If

Next

Label3(sy).Caption=Format(sj1, ″00″)

Label3(sy).ForeColor=QBColor(ys)

End If

If sy=6 Then′如果索引值等于6

Timer1.Enabled=False ′关闭定时器

Command1.Enabled=True ′使命令按钮有效(即可重新开始抽奖)

End If

End Sub

单击工具栏上的“启动”按钮,启动抽奖程序。单击“开始”按钮,Label1控件将用五彩缤纷的颜色快速显示1~32之间的数字,并在Label3控件数组中产生一组7个数字的中奖号码。再次单击“开始”按钮,程序将自动清除Label3控件数组中的内容,并重新产生一组7个数字的中奖号码(与前面的不相同)。

(沈从)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有