小明学了排序和查找算法后，编写了一个处理成绩的程序。单击“获取成绩”按钮得到  n 个非降序数保存在数组 a(1)—a(n)中，并显示在 List1 中。在文本框 Text1 中输入成绩 key，单击“查找”按钮，则在标签 label1 中显示共有多少位同学的成绩大于等于该成绩。

（1）加框 1 处的程序代码有错，应改为____。
（2）请在划线处填入合适代码：
Dim a(1000) As Integer, n As Integer Private Sub Command1_Click()
'从数据库获取 n 个成绩存储在 a(1)---a(n)组中，代码略 For i = 2 To n    ‘排序
tmp = a(i) j = 1
Do While tmp > = a(j) j = j + 1
If    __________Then Exit Do Loop
For k = i To j + 1 　Step -1 　a(k) = a(k - 1)
Next k
'改错（１）
Next i
For i = 1 To n List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim key As Integer, i As Integer, j As Integer, m As Integer key = Val(Text1.Text)
i = 1: j = n
Do While i <= j
m = (i + j) \ 2
If　_________  Then j = m - 1
Else
i = m + 1 End If
Loop
Label1.Caption = "共有" +_________+ "位同学大于等于该成绩。"
End Sub