抽奖活动在生活中屡见不鲜,给我们日常生活也增添了不少乐趣。这里向大家介绍一种都很熟悉的电脑模拟抽奖游戏,就像各类晚会上经常使用的抽奖模式。抽奖程序操作要求方便直观,全体人员都可以清楚地观看抽奖全过程。
一、设计界面
先打开VB,在Form1中定义六个命令按钮,分别用来显示中奖号码的各位数字。默认情况下,参加的人数应少于10万人(当然,可以通过增加或减少按钮的个数,扩大或缩小参加抽奖人数的范围)。再增加两个命令按钮,一个设置为“确定”键,当按下时,显示中奖号码。另一个设置为“继续”键,让计数器在选出中奖号码后接着继续滚动,直至再次按下“确定”键(界面如图)。
再新建一个窗体Form2,加入一个文本输入框,一个命令按钮,一个标签。其中文本框用于输入参加本次活动的人数;命令按钮用于确定和检验输入的字符串是否合法;标签用于显示本次活动参加的人数。 这个程序调用系统随机函数rnd来实现号码的随机产生,定义函数quwei()来显示号码的各位数字,通过Form2中的文本输入,来限制滚动时出现的最大号码。
具体代码实现如下:
Private Sub Command1_Click() If Text1.Text = "" Then Exit Sub Text1.SetFocus End If ‘如果为空,要求重新输入。 If Len(Text1.Text) > 5 Then MsgBox "提示", vbOKOnly, "你输入的值太大" Text1.Text = "": Text1.SetFocus Exit Sub End If ‘如果太大,清空后再重新输入 If Int(Text1.Text) < 6 Then MsgBox "提示", vbOKOnly, "你输入的值太小" Text1.Text = "":Text1.SetFocus Exit Sub End If ‘如果太小,清空后再重新输入 Form2.Hide ‘关闭Form2 Form1.Show ‘打开Form1 Load Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Not (48 <= KeyAscii And KeyAscii <= 57 ) Then If KeyAscii <> 8 Then KeyAscii = 0 ‘容错,使输入的整数值有效 End If End If End Sub
|