VB中，随机产生10个0~100之间的随机数，按从小到大的顺序排列怎么做？

VB中，随机产生10个0~100之间的随机数，按从小到大的顺序排列怎么做？

新建一个form1

添加command1

添加label1

label1高度设的稍高一点，以显示数据。

form代码视图中加入以下语句.

Private Sub Command1_Click()

'定义变量
Dim a(9) As Integer
Dim i As Integer
Dim r As Integer
Dim t As Integer

'产生随机数
Randomize
For i = 0 To 9
a(i) = CInt(Rnd() * 100)
Next i

'排序
For i = 0 To 8
For r = i + 1 To 9
If a(i) > a(r) Then
t = a(i)
a(i) = a(r)
a(r) = t
End If
Next r
Next i

'显示数据
Label1.Caption = ""
For i = 0 To 9
Label1.Caption = Label1.Caption + "第" + CStr(i + 1) + "个随机数=" + CStr(a(i)) + vbCrLf
Next i
End Sub

Private Sub rank(n As Integer, a() As Long) For i = 1 To n - 1 For j = i + 1 To n If a(j) > a(i) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i End Sub