校园卡信息存储在一个综合的数据库“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#}

实现上述功能的VB程序如下：

Private Sub Command1_Click()  

Dim a(1 To 1000) As String   '数组a存储文中出现该指定单词(或字符串)的各个位置

Dim s As String, c As String ,ch As String

Dim n As Integer, max As Integer, i As Integer

s = Text1.Text 

c = Text2.Text

n = 0: Max = 0

For i = 1 To Len(s) - Len(c) + 1

    ch =     ①   

    If ch = c Then

        n = n + 1

        a(n) = i

        If n >= 2 Then

If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)

        End If

    End If

Next i

Text3.Text =     ②  

End Sub

以上程序段运行时，为了实现上述功能，划线处①和②应填入的代码分别为： 

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

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

Function f(x As Double)As Double

    Dim Y As Double

    y=x^3-4*x^2+x+5：              ‘（1）

  End Function

  Private Sub Command1_Click()

    Dim a As Double，b As Double，m As Double，x As Double

    a=Val(Text1．Text)：b=Val(Text2．Text)

    If f(a)*f(b)<0 And a<b Then

       Do While a<=b

       m=(a+b)／2

       If Abs(f(m))<0.00001 Then Exit Do

       If <0 Then         ‘（2）

          b=m

       Else

          a=m

       EndIf

      Loop

      x=Format(m，“0．00000”)      ‘Format函数用于定义输出的小数位数

      List1．AddItem"["&Text1．Text&"，"&Text2．Text&"]" & "解为："＆x

    Else

      List1．AddItem"["&a&"，"&b＆"]" & "重新输入区间"

    EndIf

End Sub

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