对于无序数组 a（下标 1 到 n），通过引入数组 b（下标 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 输入要查找的数据，单击“查找”按钮 Command1 后，在标签 Label3 中显示该数据在 a 数组中的位置．程序运行界面如图所示．

’代码略 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=“该数据不存在“
Else
Label3．Caption=
End If
End Sub
实现上述功能的 VB 程序如下，但加框处代码有错，请改正．
Dim a（1to 8）As Integer,b（1to 8）As Integer.