Question

按键精灵或者vb随机选数问题

从0-4每次随机挑选出一个数 ，且不跟上一个数相同，直到挑完五个数，继续循环。

Answer 1

按键精灵我就会，我写按键精灵代码，代码你自行分析，代码如下：
Dim Num(4)

While True
For i = 0 To 4
Num(i) = 5
Next

n = 0
While n < 5
Randomize
a = Int(5 * Rnd)
For i = 0 To n
If a = Num(i) Then
Exit For
End If
Next

If i >= n Then
Num(n) = a
n = n + 1
End If
Wend
MessageBox Num(0) & "," & Num(1) & "," & Num(2) & "," & Num(3) & "," & Num(4)
Wend

Answer 2

VB6:
dim rnm％,a％,alnm(4) as long,b％
do
rnm＝int(rnd*5)
for a＝0 to b
if rnm＝alnm(a) then
exit for
else
alnm(b)＝rnm
print rnm;
b＝b＋1
end if
next
loop until b＝5

追问

谢谢！