发布时间 : 2024/5/1 1:22:13 星期三 文章Visual Basic快速入门更新完毕开始阅读69e99f64af1ffc4ffe47ace4

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