VB：随机生成10个数，递减排序并打印出来

题目来源：大工慕课 链接
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验5-4
作者：Caleb Sung

题目要求

随机产生10个2位数，按从大到小递减的顺序排列，并显示排序结果。

参考代码

Private Sub Form_Click()
    Dim a(1 To 10) As Integer
    For i = 1 To 10
        a(i) = Int(Rnd * 90 + 10)
    Next i
    Print "随机数组 "
    For i = 1 To 10
        Print a(i);
        If i Mod 10 = 0 Then Print
    Next i
    For i = 1 To 9
        For j = 9 To i Step -1
            If a(j) < a(j + 1) Then
                t = a(j)
                a(j) = a(j + 1)
                a(j + 1) = t
            End If
        Next j
    Next i
    Print "排序数组 "
    For i = 1 To 10
        Print a(i);
        If i Mod 10 = 0 Then Print
    Next i
End Sub

运行效果