vb 遞迴 new

Private Sub Command1_Click()



Form1.Cls



Randomize Timer

Dim lotto(46) As Integer

For i = 1 To 46

lotto(i) = i

Next



For i = 1 To 2000

'洗牌

x = Int(Rnd * 46) + 1

y = Int(Rnd * 46) + 1

temp = lotto(x)

lotto(x) = lotto(y)

lotto(y) = temp

Next



For i = 1 To 6

Print lotto(i)

Next



End Sub