Const n = 100
Dim a(1 To n) As String
Private Sub Command1_ Click( )
i=1:j = ⑴
flag = False
Key = Val (Text1. Text)
Do While i <= j And Not flag
m= ⑵
If Val(a(2 * m)) = Key Then
List1. AddItem a(2* m-1)+””+ a(2* m): flag =True
Else
If ⑶ Then j= m-1 Else i=m+1
End If
Loop
If Not flag Then List1. AddItem”没有找到!”
End Sub
上述程序段(1)、(2)、(3)三个方框处的语句依次为( )
①j=n ②j=n/2
③m=(i+j)\2
④m=((i+j)\2)*2
⑤Val(a(2 * m)) < Key
⑥Val(a(m)) < Key
⑦Val(a(2 * m)) > Key