程序运行界面如图所示，左边列表框List1中显示的是会员卡号和余额，在文本框Text1中输入会员卡号，单击"查询余额"按钮（Command1）后，如果找到此卡号，则在标签Label2中显示"此卡号余额为"和卡号对应的余额值，如果未找到则显示"找不到此卡号，请重新输入"。

解决此问题的部分程序段如下：

Dim kh (1 To n) As Long

Dim ye (1 To n) As Single

Private Sub Command1_Click()

Dim x As Long, i As Long, j As Long, m As Long, f As Boolean

x = Val(Text1.Text)

i = 1: j = n: f = False           ‘ 设卡号总数为n

Do While        ①            

        ②    

       If x = kh (m) Then

           f = True

       ElseIf x < kh (m) Then

           j = m - 1

       Else

         ③      

      End If

Loop

If f Then

      Label2.Caption = "此卡号余额为" + Str(ye(m)) + "元"

Else

      Label2.Caption = "找不到此卡号，请重新输入"

  End If

End Sub

Private Sub Form_Load()

   ’此过程用于对数组kh和数组ye进行初始赋值，代码略

End Sub

shifouzhaodao = False    ‘shifouzhaodao：是否找到

szysxh = 0        ‘szysxh：数组元素序号

Do While szysxh < 5 And not shifouzhaodao

   szysxh = szysxh + 1

   if dczsz(szysxh) = Key then shifouzhaodao = true

Loop

if not shifouzhaodao then szysxh = 0

数组元素dczsz (1)到dczsz (5)的数据依次为“-1，3，7，10，7”，当变量key值为7时，运用该算法处理后，变量i的值是(   )

i = 1: j = 6: c = 0: f = False

key = Val(Text1.Text)

Do While i<= j And Not f

  c = c + 1

  m = Int((i + j) / 2)

  If key = a(m) Then f = True

  If key < a(m) Then j = m - 1 Else i = m + 1

Loop

数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是（   ）

依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click（）

    Const n = 6

    Dim a（1 To n）As Integer，flag As Boolean

    Dim i As Integer，j As Integer，m As Integer，key As Integer

    '读取一组正整数，按上述规则存入数组a中，代码略。

    key = VaKText1. Text）

    i = 1

    j = （n + 1） \ 2

    flag = False

    Do While  And Not flag       ‘① 

        m = （i + j） \ 2

        If key = a（m） Then

            flag = True

        ElseIf key< a（m） Then

            j = m - 1

        Else

            i = m + 1

        End If

    Loop

    If Not flag And j > 0 Then

        m =    ‘②

        If key = a（m） Then flag = True

    End If

    If flag Then

        Text2. Text = Str（m）

    Else

        Text2. Text = "找不到"

    End If

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

l=1: r=6

Key=Val(Text1.Text)

Do While l <=r

 m=Int((l+r) \ 2)

 If a(m)=Key Then

   ⑴  

  Exit Do

 Elself a(m) >=a(l) Then

   ⑵  

 Elself a(m) < a(l) Then

   ⑶  

 End If

Loop

上述程序中方框处可选语句为:

①If a(m) < Key And a(r) >=Key Then l=m+1 Else r=m-1

②Listl .AddItem “第”+Str(m)+“值是”+Str(a(m))

③If a(m) > Key And a(l) <=Key Then r=m-1 Else l=m+1

则(1)、(2)、(3)处语句依次是（  ）