【加試題】n個(gè)數(shù)據(jù)的冒泡排序需要經(jīng)過(guò)n-1遍加工，每一遍加工自下而上比較相鄰兩個(gè)數(shù)據(jù)，把較小者交換到上面．小劉發(fā)現(xiàn)：當(dāng)某一遍加工過(guò)程中沒(méi)有數(shù)據(jù)交換，說(shuō)明數(shù)據(jù)已經(jīng)有序，無(wú)需進(jìn)一步加工．為此，小劉對(duì)算法進(jìn)行優(yōu)化，編寫(xiě)了一個(gè)VB程序，功能如下：運(yùn)行程序時(shí)，在列表框List1中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Commaiid1，在列表框List2 中顯示這些數(shù)據(jù)按升序排序后的結(jié)果，在標(biāo)簽Label3中顯示排序過(guò)程的加工遍數(shù)．運(yùn)行效果如圖所示．

實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Dim a（1To 8）As Integer
Dim n As Integer
Private Sub Form_Load

（　　）

（　　）

'n=8，排序前數(shù)據(jù)存儲(chǔ)在數(shù)組a中，并在列表框Listl中顯示
'代碼略
End Sub
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim flag As Boolean'flag值為T(mén)rue表示一遍加工中發(fā)生過(guò)交換
i=1
flag=True
Do While'（1）i＜=n-1Or flag=True

flag=False
For j=n To i+1Step-1
If a（j）＜a（j-1）Then
k=a（j）：a（j）=a（j-1）：a（j-1）=k
flag=True
End If
Next j
i=i+1
Loop
Str（i）
Label3．Caption=“排序過(guò)程的加工遍數(shù)為“+'（2）
For i=1To n
List2．AddItem Str（a（i））
Next i
End Sub.