Question

求一个vb程序，关于产生随机数排序的。

实现随机产生两位整数并排序的功能
程序运行后，单击产生随机数“按钮，在图片框中输出10个随机的两位整数。
单击”排序“按钮，接着输出排序结果。
例如： 产生一维数组为：33 11 22 44 55 66 77 88 99 98
按降序排序后的一维数组为：99 98 88 77 66 55 44 33 22 11 （点击排序后出现下面这一行）
单击”退出“按钮结束程序。

Answer 1

Dim r(9) As Integer

Private Sub Command1_Click() '产生随机数
Dim i As Integer
Randomize
For i = 0 To 9
r(i) = Int(Rnd * 90) + 10
Picture1.Print r(i);
Next
Picture1.Print
End Sub

Private Sub Command2_Click() '排序
Dim i As Integer, j As Integer, k As Integer
For i = 0 To 8
For j = i + 1 To 9
If r(i) < r(j) Then
k = r(i): r(i) = r(j): r(j) = k
End If
Next
Picture1.Print r(i);
Next
Picture1.Print r(9)
End Sub

Private Sub Command3_Click() '退出
End
End Sub