close
Private Sub CommandButton1_Click()
Dim a(1, 9) As Integer
For i = 1 To 9
a(1, i) = i
Next
For y = 1 To 9
i = 10 - y
x = Fix(Rnd() * 9) + 1
tmp = a(1, x)
a(1, x) = a(1, 9)
a(1, 9) = tmp
Next
For i = 1 To 9
Cells(1, i) = a(1, i)
Next
End Sub
全站熱搜
留言列表
