k = i
For j = i + 1 To 7 If a(k) > a(j) Then k = j Next j
t = a(k): a(k) = a(i): a(i) = t Next i For i = 1 To 7 Print a(i); Next i End Sub 例9 冒泡排序 Option Base 1
Private Sub Command1_Click()
Dim a, t As Integer, i As Integer, k As Integer a = Array(4, 3, 4, 9, 23, 7, 8) For i = 1 To 7 - 1 '7为数组的上界 For j = 7 To i + 1 Step -1 If a(j-1) > a(j) Then
t = a(j - 1): a(j - 1) = a(j): a(j) = t End If Next j Next i
For i = 1 To 7 Print a(i); Next i End Sub