哪位大虾能用冒泡法对31,17,4,22,8,19,1进行排序(请用BASIC语言)

Private Sub Form_Load()
Dim a(1 To 7) As Integer
a(1) = 31: a(2) = 17: a(3) = 4: a(4) = 22: a(5) = 8: a(6) = 19: a(7) = 1
For i = 1 To 6
For j = 1 To 7 - i
If a(j) > a(j + 1) Then
x = a(j)
a(j) = a(j + 1)
a(j + 1) = x
End If
Next
Next
For i = 1 To 7
Label1.Caption = Label1.Caption & Str(a(i)) & " "
Next
End Sub