急求vb彩票摇奖

Question

如题所述

Answer 1

Dim a(0 To 4) As Integer
Private Sub Command1_Click()
For i = 1 To 30
If i = 30 Then
t = t & i
Else
t = t & i & ","
End If
Next
For i = 0 To 4
j = Split(t, ",")
Randomize
temp = Int(Rnd * (UBound(j) + 1) + 0)
Text1(i) = j(temp)
If temp <> UBound(j) Then
t = Replace(t, "," & j(temp) & ",", ",")
Else
t = Replace(t, "," & j(temp) & ",", "")
End If
Next
End Sub

Private Sub Command2_Click()
For i = 1 To 30
If i = 30 Then
t = t & i
Else
t = t & i & ","
End If
Next
For i = 0 To 4
j = Split(t, ",")
Randomize
temp = Int(Rnd * (UBound(j) + 1) + 0)
a(i) = j(temp)
If temp <> UBound(j) Then
t = Replace(t, "," & j(temp) & ",", ",")
Else
t = Replace(t, "," & j(temp) & ",", "")
End If
Next
Print "中奖号码为：" & a(0) & vbTab & a(1) & vbTab & a(2) & vbTab & a(3) & vbTab & a(4)
For i = 0 To 4
For k = 0 To 4
If a(i) = Text1(k) Then n = n + 1
Next
Next
If n <> 0 Then
MsgBox "恭喜你中了" & 6 - n & "等奖"
Else
MsgBox "很遗憾，您没中奖"
End If
End Sub