随机乱序怎么编写

Text1.MultiLine 设置为 True
Text1.ScrollBars 设置为3-BOTH
Dim num(1 To 6) As Boolean
Dim MUM(6) As String
Dim M As Integer
Private Sub Command1_Click()
Text1.Text = ""
Randomize
setNum
Do While M <= 5
M = M + 1

flag = True
While flag = True
Number% = (Abs(Fix(Rnd * 6)) + 1)

If num(Number%) = True Then ' 若此号未开
num(Number%) = False
flag = False
MUM(M) = 0 & Trim(Number%) & Chr(13) & Chr(10)
End If

Wend

Text1.Text = MUM(M) & Text1.Text
Loop

M = 0
End Sub
Private Sub setNum()
For i = 1 To 6
num(i) = True
Next
End Sub

Private Sub Form_Load()

End Sub

我觉得更好的办法是 把数放到数组里面 然后随机取两个数组内的索引交换这两个数组值的做法更科学 效率更高