校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如图所示：

数据库文件与应用程序在同一文件夹中，在文本框Text1中输入学生的学号，单击“查询”按钮，在标签Label4、Label5中分别显示学生姓名和余额。

Private Sub Command1_Click()

 Dim adocn As new connection

 Dim adors As new recordeset

 Dim str1 As string,str2 as string

 Str1=”driver=microsoft access driver(*.mdb);dbq=”&app.path&”\    ①      .mdb”

 Adon.open str1

 Str2=”select * from Yue where    ②     =’”+text1.text+”’”

 Adors.open str2,adocn,adOpenDynamic,adLockOptimistic

 If adors.eof then

  Msgbox”你输入的学号不存在!”

 Else

  Label4. caption =adors.Fields(“name”).value

       ③         =adors.Fields(“money”).value

 Endif

 Adors.close

 Adocn.close

End Sub

为了实现上述目标，在画线处填入合适的语句或表达式：

① {#blank#}1{#/blank#}

②{#blank#}2{#/blank#}

③{#blank#}3{#/blank#}

Dim a(1 To 10) As Integer

Dim s As String, n, key As Integer

a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77

i = 1: j = 6: c = 0: key = 35

Do While i <= j

c = c + 1

m = (i + j) \ 2

If (j - i + 1) Mod 2 = 0 Then m = m + 1

If a(m) = key Then Exit Do

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

Loop

该程序段运行后，下列各变量的值不正确的是（  ）

k=Val(Text1.Text)

i=1: j=6: Label1.Caption="": f=False

Do While i <=j And Not f

 m=(i+j) \ 2

 If a(m)=k Then f=True

 If a(m) > a(i) Then

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

 Else

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

 End If

 Label1.Caption=Label1.Caption+Str(a(m))

Loop

数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输入的值为35，执行该程序段，标签Label1中显示的值是（  ）

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

Const n = 10    ‘数组元素的总数

Dim a(1 To n) As Integer

Private Sub Form_Load()

‘该过程对数组a进行赋值,并在列表框List1中显示，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer,flag(1 To n) As Boolean

‘flag(i)记录第i个元素是否重复出现

For i = 1 To n      ‘flag(i)=true开始假设都只出现1次

 flag(i) = True

Next i

For i = 1 To n

 If flag(i) Then

  For j = i + 1 To n

    If Then flag(i) = False: flag(j) = False    ‘①

  Next j

 End If

Next i

For i = 1 To n

  If Then List2.AddItem Str(a(i))    ‘②

Next i

End Sub

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

n=0

Key=int(Rnd*7)+2

L=1: R=8

Do While L<=R

    m=(L+R)\2

    if Key=a(m) Then

       Exit Do

    Elseif a(m)<Key Then

       L=m+1

       n=n+1

    Else

       R=m-1

       n=n-1

Loop

print Str(n)

则程序运行后，输出的结果不可能是（     ）