用Visual Basic设计抽奖程序

2008-04-09 04:44:48来源：互联网 阅读 ()

　　二、实现抽奖过程的代码

Const max = 100000 ‘范围设置
Dim d(0 To 5) As Integer ‘存储号码各位数字
Dim number(0 To 5) As Long ‘存储中奖号码
Dim ss, zhongjiang As Long
Dim stop_1 As Boolean ‘是否选定
Dim cishu As Integer ‘中奖次数
Public Function panduan(ByVal sa As Long)
　panduan = False
　Dim i
　For i = 0 To 5
　　If sa = number(i) Then
　　　panduan = True
　　　GoTo dd
　　End If
　Next
dd:
　End Function ‘判断是否出现过此号码
Public Sub quwei(ByVal sa As Long)
　Dim i As Integer
　For i = 0 To 5
　　d(i) = sa Mod 10
　　sa = sa \ 10
　Next
　For i = 0 To 5
　　Me.Command1(i).Caption = d(5 - i) ‘显示各位数字
　Next
End Sub
Private Sub Command2_Click(Index As Integer)
　If Index = 0 Then
　　If cishu > 5 Then
　　　MsgBox "提示", vbOKOnly, "中奖的次数已经超过六次了!"
　　　Timer1.Enabled = False
　　　Dim i
　　　For i = 0 To 5
　　　　If i < 2 Then
　　　　　Command1(i).Visible = False
　　　　　Command2(i).Visible = False
　　　　End If
　　　　Command1(i).Visible = False
　　　Next
　　　Dim string1
　　　string1 = "本轮中奖的号码为:" CStr(number(0)) " " CStr(number(1)) " " CStr(number(2))
　　　string1 = string1 CStr(number(3)) " " CStr(number(4)) " " CStr(number(5))
　　　Label1(0).Caption = string1 ‘显示中奖号码
　　　Label1(0).Visible = True ‘提示性标签显示
　　　Exit Sub
　　End If
　　number(cishu) = ss
　　cishu = cishu 1
　　stop_1 = True
　Else
　　stop_1 = False
　End If
End Sub
Private Sub Form_Load()
　Randomize Timer ‘调用系统函数，保证产生的数是随机的
　Label1(0).Visible = False
　stop_1 = False
　Dim i
　cishu = 0
　For i = 0 To 5
　　number(i) = 0
　　ss = (Int(Int(Form2.Text1.Text) * Rnd) 1) Mod Int(Form2.Text1.Text) 1
　Next
End Sub ‘初始化变量
Private Sub Timer1_Timer()
　If Not stop_1 Then
　　ss = (Int(Int(Form2.Text1.Text) * Rnd) 1) Mod Int(Form2.Text1.Text) 1
　　While (panduan(ss))
　　　ss = (Int(Int(Form2.Text1.Text) * Rnd) 1) Mod Int(Form2.Text1.Text) 1
　　Wend
　　quwei ss
　Else
　　Exit Sub
　End If
End Sub
　　好了，至此我们已经完成了一个简单的电脑模拟抽奖程序的编写，希望你能设计出更好的模拟程序来。
以上程序在Windows2000，中文VB6.0企业版中顺利通过。