vb编程完成10个随机数的降序 要求用数组先产生10个随机数，然后排序输出结果

Private Sub RandomizeAndSort()
    Dim a(1 To 10) As Integer
    Dim i As Integer, j As Integer
    ' 生成 10 个整数类型的随机数
    Randomize
    For i = 1 To 10
        a(i) = Int(Rnd * 90) + 10
    Next
    '显示
    Debug.Print "排序前"
    For i = 1 To 10
        Debug.Print a(i)
    Next
    
    '排序（升序方式）
    Dim x As Integer
    For i = 1 To 9
        For j = i + 1 To 10
            If a(i) > a(j) Then
                x = a(i)
                a(i) = a(j)
                a(j) = x
            End If
        Next
    Next
    ' 显示
    Debug.Print "排序后"
    For i = 1 To 10
        Debug.Print a(i)
    Next
End Sub