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不就也沒有意義??