编写vb程序，随机产生10个3位数，按从大到小递减的顺序排列，并显示排

Question

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

Answer 1

Private Sub Command1_Click()

  Dim a(10) As Integer

  Randomize

  For i = 1 To 10

    a(i) = Int(Rnd * 900) + 100

    Print a(i);

  Next i

  Print: Print

  Print "排序后："

  For i = 1 To 9

    For j = 1 To 10 - i

      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

  For i = 1 To 10

    Print a(i);

  Next i

  Print

End Sub