小劉在研究n個數(shù)的冒泡排序算法時，發(fā)現(xiàn)可以從兩個方面進行優(yōu)化：
（1）在每遍冒泡過程中，若最后一次交換的是last與last-1位置的數(shù)，則last位置之前的相鄰數(shù)據(jù)均已有序．進行下一遍冒泡時，無序區(qū)域設(shè)置為[last,n]，這樣一遍排序可能使當前無序區(qū)域縮?。?br />（2）若在某一遍排序中沒有數(shù)據(jù)交換，說明待排序數(shù)據(jù)都已經(jīng)有序，冒泡排序過程可在此遍排序后終止．因此可以引入一個邏輯變量flag,記錄在每遍排序過程中是否發(fā)生了交換，每遍排序結(jié)束時檢查flag,若未發(fā)生過交換則終止排序．
    小劉按上述方法編寫的冒泡優(yōu)化VB程序，功能如下：單擊“生成數(shù)據(jù)”按鈕Commandl后，生成一組隨機的兩位整數(shù)存入數(shù)組a,并顯示在列表框Listl中．單擊“排序”按鈕Command2后，對數(shù)組a 中的數(shù)據(jù)進行降序排序，排序后的數(shù)據(jù)顯示在列表框List2中，排序過程中實際的 泡遍數(shù)顯示在標簽Label2上．程序運行界面如圖所示．

    實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）若按小劉優(yōu)化后的冒泡排序算法，對數(shù)據(jù)28，15，10，8，12進行降序排序，冒泡的遍數(shù)為

2

2

（填數(shù)字）．
（2）請在①②③橫線處填入合適的代碼．
Dim a（1 To 20）As Integer
Private Sub Command1_Click（　?。?br />Dim i As Integer,j As Integer
Listl.Clear：List2．Clear
Randomize
’產(chǎn)生20個無重復(fù)的隨機整數(shù)，范圍為[10，99]，并存儲在數(shù)組a中
For i=1 To 20
a（i）=

①Rnd（　?。?90+10

①Rnd（　?。?90+10

j=1
For j=1 To i-1
If a（i）=a（j）Then
i=i-1
Exit For’退出循環(huán)
End If
Next j
Next i
For i=1 To 20
Listl.Addltem Str（a（i））
Next i
End Sub
Private Sub Command2_Click（　?。?br />Dim flag As Boolean,i As Integer,j As Integer
Dim temp As Integer,num As Integer,last As Integer
num=0：last=1
flag=True
Do While

②flag=true

②flag=true

flag=False
For

③j=20 To last+1 Step-1

③j=20 To last+1 Step-1

If  a（j）＞a（j-1）Then
temp=a（j）：a（j）=a（j-1）：a（j-1）=temp
last=j
flag=True’有交換發(fā)生
End If
Next j
num=num+1
Loop
For i=1 To 20
List2．Additem Str（a（i））
Next i
Label3．Caption=〃本次排序的冒泡遍數(shù)為：〃& Str（num）
End Sub.