编写一个技术成绩查询的 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