VB数组题目！急！

来源：百度知道 编辑：UC知道 时间：2024/06/08 09:33:08
编程，用随机函数产生50个10～100之间的互不相同的整数，存于一数组中，并以升序每行10个数显示在窗体上。
这个题是怎么做的，老是弄不对，希望各位高手能帮帮忙解答下，谢谢了，最好要具体过程的

Option Base 1
Private Sub Command1_Click()
'生成50个 10-100不相同数字
Dim 判断 As Boolean, a As Integer, x As Integer, temp As Integer, i As Integer, j As Integer
Cls
Randomize
x = 1
Print "排序前"
ReDim b(1)
Do While x <= 50
a = Int(Rnd * 91 + 10)
For i = 1 To UBound(b)
If b(i) = a Then
判断 = True
Exit For
Else
判断 = False

End If

Next i
If 判断 = False Then
b(x) = a
Print b(x);
If x Mod 10 = 0 Then Print
x = x + 1
ReDim Preserve b(x)
End If

Loop
Print
Print "排序后"
'排序

For i = 1 To 49
For j = i + 1 To 50
If b(i) > b(j) Then
temp = b(i)
b(i) = b(j)
b(j) = temp
End If
Next j
Next i
For i = 1 To 50
Print b(i);
If i Mod 10 = 0 Then Print
Next

End Sub

Pri