VB中可用的抽奖程序的代码

VB中可用的抽奖程序的代码

Dim a(1 To 100) As String
Dim i As Integer, x As Integer
Const n = 3 'n的值可根据实际需要赋予不同的变量

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
 Randomize '初始化随机数生成器
a(1) = "富士康" '以此将n个人的姓名保存在数组a中
a(2) = "庞麦郎"
a(3) = "非主流"
For i = 1 To n
List1.AddItem a(i)
Next
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
x = Rnd() * n + 1 '产生一个[1，n]中的随机整数并存入变量x中
Label2.Caption = a(x) '在标签Label2中显示下标变量a(x)的值（第x个人的姓名）
End Sub

我知道你的意思：是不是每组数字来回滚动，随即组合。 停止时，组合成一组数字，并以这组数字作为中奖号码。 建立一个按钮：command1 private sub command1_click() dim a as integer dim b as integer dim c as integer 'a b c 为随机变量 dim abc as string 'abc为组合号码 a = int(rnd * 9) + 1 b = int(rnd * 9) + 1 c = int(rnd * 9) + 1 abc=a & b & c '组合中奖号码 '假设3到10等奖为003,004......,010 if a = 001 then msgbox "你中了1等奖!", vbokonly, "系统提示" end if if a = 002 then msgbox "你中了2等奖!", vbokonly, "系统提示" end if ...... ...... if a = 010 then msgbox "你中了10等奖!", vbokonly, "系统提示" end if end sub ok...