程序运行界面如图所示，左边列表框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

a(l) = 5: a(2) = 16: a(3) = 22: a(4) = 28: a(5) = 35

a(6) = 43: a(7) = 52: a(8) = 67: a(9) = 78: a(10) = 89

i = 1: j = 10: n = 0: flag = True

Key = Val(Textl. Text)

Do While i <= j And flag = True

  m = (i + j) \ 2

  If a(m) = Key Then

    flag = False

  Elself a(m) < Key Then

    i = m + 1

    n = n - 1

  Else

    j = m - 1

    n = n + 1

  End If

Loop

变量n的值最终为0，则文本框Text1输入的数值范围可能是（  ）

对于一个轮转后有序数组arr也可以进行二分查找，算法思路如下（以升序为例）：每次根据查找的左侧位置L和右侧位置 R 求出中间位置M后，M左边[L，M]和右边

[M+1，R]这两部分中至少一个是有序的（可根据中间位置数据和边界数据的大小关系判 断）。

arr[M]和待查找数据key比较

⑴arr[M]=key，返回M的值；

⑵若M位置右侧有序，当待查找数据在右侧，则下次在右侧查找，否则在M左侧查找。

⑶若M位置左侧有序，当待查找数据在左侧，则下次在左侧查找，否则在M右侧查找。

问题：

a(1)=2: a(2)=6: a(3)=8: a(4)=9: a(5)=12

a(6)=15: a(7)=17: a(8)=18: a(9)=22: a(10)=30

k=Val(Text1.Text)

i=1: j=10

Do While i <=j

 m=(i+j) \ 2

 If a(m) <=k Then

    i=m+1

 Else

    j=m-1

 End If

Loop

Text2.Text=Str(a(i))+"← →"+Str(a(j))

程序运行时，文本框Text1中输入5，文本框Text2中显示的内容是（  ）

n=0: i= 1:j-6

key = Val(Text1.Tex1)

Do While i<=j

  m=(i+j)\2

  n=n+1

  If key = d(m) Then Exit Do

  If key> d(m) Then j=m-1 Else i=m+ 1

Loop

d(1)到d(6)的值依次为"88，77，53，47，39，23"，并且输入key值为40，下列说法正确的是（  ）