VB任意输入n个数,按由小到大的顺序排列并显示输出

Question

VB任意输入n个数,按由小到大的顺序排列并显示输出

Answer 1

Dim a() As Integer
Private Sub Command1_Click()
b = InputBox("请输入将要输入数字的个数")
ReDim a(b) As Integer
For i = 1 To b
a(i) = InputBox("请输入数字","数字排序")
Next i
For i = b To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
For i = 1 To b
Print a(i)
Next i
End Sub