編寫一個(gè)技術(shù)成績查詢的 VB 程序。程序功能如下：在文本框 Text1 中輸入分?jǐn)?shù) key（0-50 的整數(shù)），單擊“查詢”按鈕 Command1，查詢出信息成績大于等于 key 的所有記錄，并以“信息”為主要關(guān)鍵字、“通用”為次要關(guān)鍵字均進(jìn)行降序排序，結(jié)果輸出在列表框 List2 中。運(yùn)行界面如圖所示。

實(shí)現(xiàn)上述功能的 VB 程序如下，請回答下列問題：
（1）觀察圖，排序后第 5 位的學(xué)生姓名是

李白

李白

。
（2）請?jiān)跈M線處填入合適的代碼。
Dim xm（1To 600）As String'存儲學(xué)生姓名
Dim xx（1To 600）As Integer'存儲信息成績
Dim ty（1To 600）As Integer'存儲通用成績
Dim n As Integer'存儲記錄總數(shù)
Private Sub Form_Load （　　）
'本過程從數(shù)據(jù)庫中讀取學(xué)生數(shù)據(jù)，存儲在相應(yīng)的變量中，并在 List1 中顯示'代碼略
End sub
Private Sub Command1_Click （　　）
Dim key As Integer,mid As Integer
Dim i As Integer,L As Integer,R As Integer,k As Integer
Dim tmp1As String,tmp2As Integer
'以“信息”為主要關(guān)鍵字、“通用”為次要關(guān)鍵字排序
For i=1To n-1
k=i
For j=i+1To n
If xx（k）＜xx（j） or①

xx（k）=xx（j）And ty（k）＜ty（j）

xx（k）=xx（j）And ty（k）＜ty（j）

 Then
k=j
End If
Next j
If k＜＞i Then
tmp1=xm（k）：xm（k）=xm（i）：xm（i）=tmp1
tmp2=xx（k）：xx（k）=xx（i）：xx（i）=tmp2
tmp2=ty（k）：ty（k）=ty（i）：ty（i）=tmp2
End If
Next i'查詢記錄
key=Val（Text1．Text） L=1：R=n
Do While L＜=R
mid=（L+R）\2
If②

xx（mid）＜=key

xx（mid）＜=key

 Then
L=mid+1
Else
R=mid-1
End If
Loop
List2．Clear
'vbTab 相當(dāng)于是鍵盤上制表符 TAB 按鍵的功能
List2．AddItem“姓名“& vbTab &“信息“& vbTab &“通用“
For i=1to③

R或L-1

R或L-1

List2．AddItem xm（i） & vbTab & xx（i） & vbTab & ty（i）
Next i
End sub