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，执行该程序段后，下列变量的值不正确的是（   ）

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 20) As Integer ’用于保存n(n<=20)个按从小到大顺序排列的整数

‘Form_Load事件过程产生n个整数，按升序保存在数组a中，并在Text1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim i , j , m , k As Integer

Dim x As Integer，f As Boolean  ’变量f用于标记是否在数组中找到x

x = Val(Text2.Text)

i=1 ：j=n  : f=False

Do While  i<=j And  f=False

 m = Fix((i＋j)/2)

 If a(m)=x Then f=True

 If  Then i=m＋1 Else j=m－1    ‘(1)

Loop

If f = True Then

 For k = m To n-1

         ‘(2)

 Next k

n = n - 1

 Text3.Text = ""

 For k = 1 To n

Text3.Text = Text3.Text＋Str(a(k))＋","

 Next k

Else

 Text3.Text = "该数没有找到!"

End If

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴{#blank#}1{#/blank#}；⑵{#blank#}2{#/blank#}。

假如我们用数组表示上述大根堆：

现有一算法把一个无序数组改造成大根堆。例如：我们在上图的大根堆中再增加一个值为8的新元素，如下图所示。

数组存储为：

具体操作方法如下：

第一步：因为a(10)大于它的双亲结点a(5)，故需交换a(10)和a(5)的值；

数组存储为：

第二步：因为a(5)大于它的双亲结点a(2)，故需交换a(5)和a(2)(t)值；

数组存储为：

第3步：因为a(2)不大于它的双亲结点a(1)，故无需做交换操作。此时新元素已经放到了正确的位置，新的大根堆构造完成，上移行动结束。

def cal(n):

    if n <= 1:

        return 1

    if n % 2 == 0:

        return 2*cal(n-1)

执行语句k=cal(5)，则k的值为（   ）

def tob(n)

    if  n=0:

        return "*

    else:

        return tob(n//2)+str(1-n%2)

执行语句s=tob(10) 后，s的值为（   ）