下列程序的功能是對(duì)某校2011年3月份技術(shù)高考成績(jī)進(jìn)行排名分析，數(shù)組a中保存學(xué)生技術(shù)考試的成績(jī)，數(shù)組b中保存學(xué)生的姓名，第i個(gè)學(xué)生的技術(shù)成績(jī)保存在a（i）中，對(duì)應(yīng)的學(xué)生姓名保存在b（i）中，最后按技術(shù)成績(jī)從高到低進(jìn)行排序。程序界面如圖所示，左邊列表框List1中顯示的是所有學(xué)生到的原始數(shù)據(jù)，單擊“排序“按鈕（Command1）后，在右邊的列表框List2中顯示排序完成后的結(jié)果（按成績(jī)從高到低排列）。
（1）虛線內(nèi)程序段所采用的排序算法名稱是

冒泡排序

冒泡排序

。
（2）程序加框處代碼有錯(cuò)，請(qǐng)改正。
Dim a（1 To n） As Single'設(shè)共有n名學(xué)生
Dim b（1 To n） As String
Private Sub Form_Load

（　?。?/div>

（　?。?/div>
End Sub
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim i As Integer,j As Integer
Dim tmp As ，st As String

b（j）=st
End If
Next j
Next i
For i=1 To n
st=Str（a（i））+″″+b（i）
List2．AddItem st
Next i
End Sub