Option Base 1
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
a(i) = InputBox("请输入6个数")
Next i
For i = 6 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
x = a(j)
a(j) = a(j + 1)
a(j + 1) = x
End If
Next j
Next i
For i = 1 To 6
Text1.Text = Text1.Text & Space(4) & a(i)
Next i
Option Base 1
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
a(i) = InputBox("请输入6个数")
Next i
For i = 6 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
x = a(j) ...