對于無序數(shù)組 a（下標(biāo) 1 到 n），通過引入數(shù)組 b（下標(biāo) 1 到 n），使得 a（b（1））
≤a（b（2））≤a（b（3））…≤a（b（n））．小王編寫了一個 VB 程序，功能如下：在列表框 List1 中顯 示 i、a（i）、b（i）、a（b（i）），在文本框 Text1 輸入要查找的數(shù)據(jù)，單擊“查找”按鈕 Command1 后，在標(biāo)簽 Label3 中顯示該數(shù)據(jù)在 a 數(shù)組中的位置．程序運行界面如圖所示．

’代碼略 End Sub
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,k As Integer Dim m As Integer,key As Integer
key=Val（Text1．Text） i=1：j=n
Do While i＜=j
a（m）
m=（i+j）\2
k=
If key=k Then Exit Do
ElseIf key＞k Then i=m+1
Else
j=m-1End If
Loop
If i＞j Then Label3．Caption=“該數(shù)據(jù)不存在“
Else
Label3．Caption=
End If
End Sub
實現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯，請改正．
Dim a（1to 8）As Integer,b（1to 8）As Integer.