引用:
|
作者slamcar
這是ok的。因為假設第一次抽中20
ball(b1) = ball(num)
>>ball(20) = ball(39)--->ball(20)會等於39
so~ball(1~38)裡是1~19、39、21~38，
20被排除了，39取代20，要抽中39的話，只要再抽中一次20就是了。
|
For i = 1 To 39
ball(i) = i
Next
num = 39
For i = 0 To 5
b1 = Int(Rnd() * num) + 1 '亂數選號
Text1(i).Text = ball(b1) '選中的號碼，放入Text1文字方塊中
ball(b1) = ball(num)
num = num - 1
Next i
我不太能理解的是這個for迴圈中ball(b1)=ball(num)
這行不就一直等於39不會改變嗎
那這麼做的意義是什麼??
他下面那行num = num - 1不就也沒有意義??