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

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

李白

李白

。
（2）請在橫線處填入合適的代碼。
Dim xm（1To 600）As String'存儲學生姓名
Dim xx（1To 600）As Integer'存儲信息成績
Dim ty（1To 600）As Integer'存儲通用成績
Dim n As Integer'存儲記錄總數
Private Sub Form_Load （　　）
'本過程從數據庫中讀取學生數據，存儲在相應的變量中，并在 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
'以“信息”為主要關鍵字、“通用”為次要關鍵字排序
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 相當于是鍵盤上制表符 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