10个随机数

Private Sub Command1_Click()
    Cls
    Dim a(1 To 10) As Integer
    Dim i As Byte
    Dim j As Byte
    Dim t As Byte
    
    For i = 1 To 10
        a(i) = 10 + Rnd() * 100
    Next i
    For i = 1 To 10
        Print a(i);
    Next i
    
    Print
    
    For i = 1 To 9
        For j = 1 To 10
            If a(i) < a(j) Then
                t = a(i): a(i) = a(j): a(j) = t
            End If
        Next j
    Next i
    For i = 1 To 10
        Print a(i);
    Next i
End Sub