学进去

如图a所示，已有若干学生从1开始编号，在文本框Text1中输入新增的学生姓名，填补到空缺的学号（2、3、6、11）位置。填补规则：从最小号开始依次填补。单击“新增”按钮后在列表框List1中完整显示所有学生信息，如图b所示。
  
实现上述功能的VB代码如下，但加框处有错，请改正。
Dim n As Integer '学生人数
Dim a(1 To 100) As Integer'存储学生的学号
Dim b(1 To 100) As String '存储学生的姓名
Private Sub Form_Load()
'从数据库中读取学生学号、学生姓名和总人数,分别存储在数组a,数b和变量n中,代码略
End Sub
Private Sub Command1_Click()
Dim L As Integer, R As Integer
Dim m As Integer, key as String
key=Text1.Text
L=1:R=n
Do While L<=R

m=(L+R)\2

If   Then     '(1)_________

L=m+1

Else

R=m-1

End If

Loop
For i=      '(2)_________

a(i+1)=a(i)

b(i+1)=b(i)

Next i
n=n+1
a(i+1)=L
b(i-1)=Key
'插入后的结果显示在列表框List2,代码略.
End Sub