7 5 3 2编程为2 3 5 7

冒泡阿冒泡
Private Sub Command3_Click()
Dim sOrig As String
Dim sTo As String
Dim v As Variant
Dim t
sOrig = "7 5 3 2"
Debug.Print sOrig
v = Split(sOrig)

Dim i As Integer
Dim j As Integer

For i = 0 To UBound(v) - 1
For j = i + 1 To UBound(v)
If CLng(v(i)) > CLng(v(j)) Then
t = v(i)
v(i) = v(j)
v(j) = t
End If
Next j
Next i

sTo = Join(v, " ")
Debug.Print sTo

End Sub

Dim a() As Integer = {7, 5, 3, 2}
Dim i As Integer
Dim j As Integer
Dim temp As Integer
For i = 0 To a.Length - 1
For j = i + 1 To a.Length - 1
If (a(i) > a(j)) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next
Next<