下面是源码,可以自己复制一份玩一下 i = 1
While i < 7
Call 随机号码(33,1)
If i = 1 Then
hq1 = m : i = i + 1
ElseIf i = 2 and m <> hq1 Then
hq2 = m : i = i + 1
ElseIf i = 3 and m <> hq1 and m <> hq2 Then
hq3 = m : i = i + 1
ElseIf i = 4 and m <> hq1 and m <> hq2 and m <> hq3 Then
hq4 = m : i = i + 1
ElseIf i = 5 and m <> hq1 and m <> hq2 and m <> hq3 and m <> hq4 Then
hq5 = m : i = i + 1
ElseIf i = 6 and m <> hq1 and m <> hq2 and m <> hq3 and m <> hq4 and m <> hq5 Then
hq6 = m : i = i + 1
End If
Wend
Call 随机号码(16,1)
lq = m
MessageBox "红球:[" & hq1 & "]、" &"[" & hq2 & "]、" &"[" & hq3 & "]、" &"[" & hq4 & "]、" &"[" & hq5 & "]、" &"[" & hq6 & "] 蓝球:[" & lq & "]"
Sub 随机号码(最大值,最小值)
Randomize
m = Int((最大值-最小值+1) * Rnd + 最小值)
End Sub
|