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

Question

如题所述

Answer 1

新建一个form1添加command1添加label1label1高度设的稍高一点，以显示数据。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

Answer 2

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