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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024