i= 1 :  j =9  :  n =0

key=Val( Textl.Text)

Do While i <= j

m=(i + j) \ 2

If  key = d(m)  Then

Exit Do

j= m - 1

Else

i=m+1

End If

Loop

方框中的正确代码应为（   ）

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) + "步"

做法是比较中点与当前查找范围第1个数大小关系，用对分法使查找范围逼近拐点；当余下数组只有二个元素时，可根据此二元素大小关系得到拐点的位置。

依据上述描述设计了VB程序，界面如图所示。请回答下列问题：

依据对分查找思想，设计一个在数组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#}

实现上述功能的VB程序如下，请回答下列问题：

import random

a = [1,3,4,6,6,6,9,9,11,12]

key = random.randint(2,5) * 2

i,j = 0,9

while i <= j :

    m = (i + j) // 2

    if key < a[m]:

        j = m - 1

    else:

        i = m + 1

print(j)

执行该程序段后，输出的结果不可能是（   ）

A ．2                  B ．3                  C ． 5                  D ． 7