VB公共基础之算法小结(2)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库VB公共基础之算法小结(2)在线全文阅读。