Question

急求程序：用vb编写一个30选5的彩票摇奖程序。

要求：输入5个不同的整数或通过机选生成5个不同的随机数然后按摇奖按钮输出中奖号码再对用户进行中奖评价，选对一个数为五等奖，选对两个得四等奖……

Answer 1

　　手动输入数字太慢了，按按钮多好，新建一个command1(29)组，3个按钮
　　这样也好测试
　　Option Explicit
　　Private x(6) As Integer, m As Integer, n As Integer
　　Dim i As Integer
　　Private Sub Command1_Click(Index As Integer)
　　Picture1.SetFocus
　　Command1(Index).Enabled = False
　　n = n + 1
　　If n = 5 Then
　　Command2.Enabled = True
　　For i = 0 To 29
　　If Command1(i).Enabled = True Then Command1(i).Visible = False
　　Next
　　End If
　　End Sub

　　Private Sub Command2_Click()
　　Picture1.Cls
　　Picture1.Print "中奖号码："
　　m = 0: n = 0
　　For i = 1 To 5
　　Do
　　x(i) = 1 + Int(30 * Rnd)
　　Loop While x(i) = x(i - 1)
　　Picture1.Print x(i);
　　If Command1(x(i) - 1).Enabled = False Then m = m + 1
　　Next
　　Picture1.Print
　　Picture1.Print
　　If m > 0 Then Picture1.Print "恭喜您中了" & 6 - m & "等奖"
　　End Sub

　　Private Sub Command3_Click()
　　Picture1.Cls
　　n = 0
　　For i = 0 To 29
　　Command1(i).Enabled = True
　　Command1(i).Visible = True
　　Next
　　Command2.Enabled = False
　　End Sub

　　Private Sub Form_Load()

　　End Sub

Answer 2

xfbhdn