n個數(shù)據(jù)的冒泡升序排序需要經(jīng)過n-1遍的加工，每一遍加工自下而上比較相鄰兩個數(shù)據(jù)，把較小者交換到上面，在第i遍加工過程中需要進行n-i對數(shù)據(jù)的比較，在某些情況下，第i遍加工過程中，在上面部分較小數(shù)據(jù)已經(jīng)有序情況下，不需要再進行n-i對數(shù)據(jù)的比較。如對“17，18，19，24，23，20”這6個數(shù)據(jù)排序中，第1遍排序結(jié)束后數(shù)據(jù)為“17，18，19，20，24，23”，第2遍排序時不再需要對20及其前面4個數(shù)據(jù)進行比較。程序界面如圖所示
以下程序?qū)崿F(xiàn)了冒泡排序的優(yōu)化，請在橫線處填寫合適的代碼。
Dim n As Integer
Dim a （1 to 100）As Integer
Private Sub Form_Load （　　）
‘n=10，排序前生成的數(shù)據(jù)存儲在數(shù)組a中，并在列表框List1中顯示
‘代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,start As Integer,t As Integer

①

①

Do While i＜n
start=n
For j=n To i Step

②

②

If a（j）＜a（j-1）Then
t=a（j）：

③

③

：a（j-1）=t
start=j
End If
Next j

④

④

Loop
For i=1 To n
List2．AddItem Str（a（i））
Next i
End Sub