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

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

2

2

（填數(shù)字）．
（2）請(qǐng)?jiān)冖佗冖蹤M線處填入合適的代碼．
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個(gè)無(wú)重復(fù)的隨機(jī)整數(shù)，范圍為[10，99]，并存儲(chǔ)在數(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（　　）
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.