从键盘输入5个数，从大到小输出 用VB

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim a(10) As Integer
Dim temp As Integer
Print "输入的原始数字是：";
For i = 1 To 10
    a(i) = InputBox("请输入第" & i & "个数字")
    Print a(i) & " ";
Next i
Print

Print "排序后的数字是：";
For i = 1 To 10
 For j = 1 To 10 - i
    If a(j) < a(j + 1) Then
        temp = a(j + 1)
        a(j + 1) = a(j)
        a(j) = temp
     End If
  Next j
Next i
For i = 1 To 10
    Print a(i) & " ";
Next i
End Sub

Answer 2

百度一下vb冒泡排序程序，网上有。