82问答网 > VB：随机产生10个两位数，按大到小递减次序排列，并将排序结果显示出来。。。大神求代码

VB：随机产生10个两位数，按大到小递减次序排列，并将排序结果显示出来。。。大神求代码

2025-04-15 02:07:03

推荐回答（1个）

回答1：

Private Sub Form_Click()
Dim i As Integer, j As Integer, k As Integer
Dim a(10) As Integer
For i = 1 To 10
a(i) = Fix(Rnd * 90) + 11
Print a(i); " ";
Next
Print
For i = 1 To 10
    For j = 1 To 10 - i
        If a(j) < a(j + 1) Then
        a(0) = a(j)
        a(j) = a(j + 1)
        a(j + 1) = a(0)
        End If
    Next
Next

Print
For i = 1 To 10
'a(i) = Fix(Rnd * 90) + 11
Print a(i); " ";
Next
End Sub