用Visual Basic设计抽奖程序

领测软件测试网

下一页 1 2 

　　 

　　抽奖活动在生活中屡见不鲜，给我们日常生活也增添了不少乐趣。这里向大家介绍一种都很熟悉的电脑模拟抽奖游戏，就像各类晚会上经常使用的抽奖模式。抽奖程序操作要求方便直观，全体人员都可以清楚地观看抽奖全过程。

　　一、设计界面

　　先打开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

文章来源于领测软件测试网 https://www.ltesting.net/