某高校自主招生考试后，为了便于查询考生信息，开发了一套考生信息查询软件．程序界面如图所示，在文本框Text1和文本框Text2分别输入自己的身份证和密码，单击“查询”按钮后，如果身份信息和密码都正确，在标签Label4中显示成绩，否则在Label4中显示相关提示信息．
运行程序，程序启动时自动读取数据库中数据，将所有考生的身份证号、密码及成绩按身份证号码从小到大的顺序，分别存放在数组sfz、mm和cj中．第i个考生的身份号在sfz（i），密码信息在mm（i）中，成绩在cj（i）中．

实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim sfz（1 To 4000）As String'身份证信息
Dim cj（1 To 4000）As Integer'成绩信息
Dim mm（1 To 4000）As String'密码信息
Private Sub Form_Load（　　）
‘连接数据库，将考生各项数据按身份证号从小到大存在数组sfz、mm、cj中
‘代码略
End Sub
Private Sub Command1_Click（　　）
Dim stu As String,pwd As String
Dim i As Integer,j As Integer,m As Integer,p As Integer
stu=Text1．Text
pwd=Text2．Text
i=1：j=4000：p=0
Do While i＜=j And p=0
   m=（i+j）\2
     If sfz（m）＜＞stu Then
         If  thenj=m-1   else i=m+1'（1）
     Else
   p=m
     End If
 Loop
If p=0 Then
      Label4．Caption=“没有找到该身份证的考生数据“
ElseIfmm（p）＜＞pwdThen
      Label4．Caption=“密码错误，请核对密码后再次登录“
Else
      Label4．Caption=“成绩：“+'（2）
End If
End Sub.