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

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

2

2

（填數字）．
（2）請在①②③橫線處填入合適的代碼．
Dim a（1 To 20）As Integer
Private Sub Command1_Click（　　）
Dim i As Integer,j As Integer
Listl.Clear：List2．Clear
Randomize
’產生20個無重復的隨機整數，范圍為[10，99]，并存儲在數組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’退出循環
End If
Next j
Next i
For i=1 To 20
Listl.Addltem Str（a（i））
Next i
End Sub
Private Sub Command2_Click（　　）
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’有交換發生
End If
Next j
num=num+1
Loop
For i=1 To 20
List2．Additem Str（a（i））
Next i
Label3．Caption=〃本次排序的冒泡遍數為：〃& Str（num）
End Sub.