某高校自主招生考試后，為了便于查詢考生信息，開(kāi)發(fā)了一套考生信息查詢軟件．程序界面如圖所示，在文本框Text1和文本框Text2分別輸入自己的身份證和密碼，單擊“查詢”按鈕后，如果身份信息和密碼都正確，在標(biāo)簽Label4中顯示成績(jī)，否則在Label4中顯示相關(guān)提示信息．
運(yùn)行程序，程序啟動(dòng)時(shí)自動(dòng)讀取數(shù)據(jù)庫(kù)中數(shù)據(jù)，將所有考生的身份證號(hào)、密碼及成績(jī)按身份證號(hào)碼從小到大的順序，分別存放在數(shù)組sfz、mm和cj中．第i個(gè)考生的身份號(hào)在sfz（i），密碼信息在mm（i）中，成績(jī)?cè)赾j（i）中．

實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Dim sfz（1 To 4000）As String'身份證信息
Dim cj（1 To 4000）As Integer'成績(jī)信息
Dim mm（1 To 4000）As String'密碼信息
Private Sub Form_Load（　?。?br />‘連接數(shù)據(jù)庫(kù)，將考生各項(xiàng)數(shù)據(jù)按身份證號(hào)從小到大存在數(shù)組sfz、mm、cj中
‘代碼略
End Sub
Private Sub Command1_Click（　?。?br />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=“沒(méi)有找到該身份證的考生數(shù)據(jù)“
ElseIfmm（p）＜＞pwdThen
      Label4．Caption=“密碼錯(cuò)誤，請(qǐng)核對(duì)密碼后再次登錄“
Else
      Label4．Caption=“成績(jī)：“+'（2）
End If
End Sub.