VB 把一组有序的数随机排列

来源：百度知道 编辑：UC知道 时间：2024/05/16 08:57:38
如 把1~22这22个数随机排列
请教下思路
或者帮我检查下以下这段代码的错误~THX~
Option Base 1
Private Sub Command1_Click()
Cls
Randomize
Dim a(22) As Integer, b() As Integer, i As Integer, j As Integer, ub As Integer
ReDim b(22)
For i = 1 To 22
b(i) = i
Next i
i = 1
ub = 22
For i = 1 To 21
j = Int(ub * Rnd) + 1
a(i) = b(j) '随机抽取b的值，并传递给a
For n = j To ub - 1
a(n) = a(n + 1) '把传递过的b删除
Next n
ub = ub - 1
ReDim Preserve b(ub)
Print a(i)
Next i
End Sub
回复1L
=.=!
那个是注释呢~程序不读取的

Option Base 1
Private Sub Command1_Click()
Cls
Randomize
Dim a(22) As Integer, b() As Integer, i As Integer, j As Integer, ub As Integer
ReDim b(22)
For i = 1 To 22
b(i) = i
Next i
i = 1
ub = 22
For i = 1 To 21
j = Int(ub * Rnd) + 1
a(i) = b(j) '随机抽取b的值，并传递给a
For n = j To ub - 1
b(n) = b(n + 1) '把传递过的b删除
Next n
ub = ub - 1
ReDim Preserve b(ub)
Print a(i)
Next i
'就这行改下就行 b(n) = b(n + 1) 把传递过的b删除 这里是b数组