Visual Basic快速入门

Dim a(10) As Integer

Private Sub sort(a() As Integer, n As Integer)

Dim i As Integer, temp As Integer

Dim switch As Boolean

switch = True

Do While switch

switch = False

n = n - 1

For i = 1 To n

If a(i) > a(i + 1) Then

switch = True