key = Val(Text1.Text)

i = 0: j = 9:  s = 0

Do While i <= j

m = Fix((i + j) \ 2 + 0.5)

s = s + 1

If key = a(m) Then

Label1.Caption = Label1.Caption + "→" + Str(m)

Exit Do  'Exit Do表示退出循环

End If

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

Label1.Caption = Label1.Caption + "→" + Str(m)

Loop

Label2.Caption = "历经" + CStr(s) + "步"

若存在和为key的数对，输出该数对包含的两个整数，小的在前，大的在后；

若存在多个数对满足条件，则输出最先找到的数对；

若找不到符合要求的数对，则输出“没有符合条件的数对”。

根据上述算法，小黄编写了一个VB程序，功能如下：程序加载时，自动生成50个互异的、按升序排列的随机正整数，依次存入数组a中，并显示在列表框List1中。在文本框Text1中输入key的值，单击“查找”按钮Command1，查找结果在列表框List2中输出。程序运行界面如图所示。

    key=Val(Text1．Text)

    n=0：i=1：j=7

    flag=False

    Do While i<=j And flag=False

        n=n+1

        m=Fix((i+j)／2)

        If a(m)=key Then flag=True

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

    Loop

If flag=True Then

Text2 Text=“在第”＆ Str(m) &“个。”

    Else

        Text2．Text=“未找到。”

End If

数组元素a(1)到a(7)的值依次为“89，72，68，45，23，19，17”，文本框Text1中输入的值是19，执行该程序段后，下列变量的值不正确的是（   ）

Private Sub Command1_Click()

 Dim a(1 To 8) As Integer

 Dim n, i, j, x As Integer

 List1.Clear

 List2.Clear

 a(1) = -5: a(2) = 3: a(3) = 4: a(4) = 12: a(5) = 20: a(6) = 45: a(7) = 70

 For j = 1 To 7

  List1.AddItem Str(a(j))

 Next j

 x = Val(Text1.Text)

 i = 1

 Do While x > a(i) And i < 8 ’找x的插入位置

  ① 

 Loop

 For j = 8 To i + 1 Step -1 ’移动数据

  ② 

 Next j

 a(i) = x

 For j = 1 To 8

  List2.AddItem Str(a(j))

 Next j

 Label1.Caption = “插入的位置是” &Str(i)

End Sub

i=1: j=5: k=0: s=""

key=Int(Rnd*100)

Do While i <=j

  k=k+1

  m=(i+j) \ 2

  s=s+Str(a(i))

  If key=a(m) Then

   Exit Do     ‘Exit Do表示退出循环

  ElseIf key < a(m) Then

   j=m-1

  Else

   i=m+1

  End If

Loop

Text1.Text=s

数组元素a(1)到a(5)的值依次为“6，18，25，37，49”。若该程序段执行后，k的值为3，则key的值不可能为（  ）