输入10个整数，按大到小输出的程序

给你一段冒泡法排序的原代码,只选了6个数，道理一样

Private Sub Command1_Click()
Dim A(5) As Integer, Temp As Integer
A(0) = 7
A(1) = 9
A(2) = 2
A(3) = 19
A(4) = 50
A(5) = 33

For i = 0 To 5
For j = i + 1 To 5
If A(i) > A(j) Then
Temp = A(i)
A(i) = A(j)
A(j) = Temp
End If
Next
Next

Text1.Text = ""
For i = 0 To 5
Text1.Text = Text1.Text & A(i) & ";"
Next i

End Sub
请先在窗体上放一个Command(Command1)控件，一个Text控件(Text1)
试运行成功

怎么感觉你在玩我们

循环