VB程序运行界面如图2所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生的人数，如果人数为0,则在列表框中显示“没有该等级的学生”。按此要求编写程序如下，在下划线处填上合适的代码。

Private Sub Command1_Click()

Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna

Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum

Dim i As Integer, j As Integer, n As Integer

Dim t As String

Dim cn As New ADODB.Connection       '连接数据库

Dim rs As New ADODB.Recordset

Dim strSQL As String

cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\stugrade.accdb "

cn.Open

strSQL = "select * from      ①       where 语文等级='" + Text1.Text + "'"

Set rs.ActiveConnection = cn

rs.Open strSQL

n = 0

Do While Not rs.EOF

          ②    

   stuna(n) = rs.Fields("姓名").Value

   stunum(n) = rs.Fields("学号").Value

   rs.MoveNext       

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

List1.Clear '清除列表框

If n = 0 Then

   List1.AddItem "没有该等级的学生"

Else

   For i = 1 To n - 1       '按姓名排序

      For j = n To    ③    Step -1

         If        ④          Then      

            t = stunum(j): stunum(j) = stunum(j - 1): stunum(j - 1) = t

            t = stuna(j): stuna(j) = stuna(j - 1): stuna(j - 1) = t

         End If

     Next j

   Next i

   For i = 1 To n

      List1.AddItem stunum(i) + "  " + stuna(i)

   Next i

   Label2.Caption = "该等级的学生共有" + Str(n) + "名"

End If

End Sub

其中①处填入          ；②处填入           ；③处填入           ；④处填入           

Dim ID（ ） As String    '用于存放客户卡号

Dim total（ ） As Long      '用于存放积分数

Dim sc As Long                  'VIP客户人数

Dim jf As Long                  '积分数

Private Sub Command1_Click（ ）

  Dim k As String                '客户卡号

  Dim q As Long               '代金券额度

  Dim i As Long

  k = Text1.Text

  For i = 1 To sc     ’顺序查找

      If ID（i） = k Then

          jf = total（i）     

          cash（jf） = q               ’ ①

          Exit For

      End If

      Text2.Text = Str（jf）

      Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”

    Next i

  End If

End Sub

' cash函数用于计算VIP客户可换购的代金券额度

Function cash（jf As Long） As Long

  If jf >= 2000 And jf <= 20000 Then

       Cash = jf\2000*10

ElseIf jf > 20000 And jf <= 50000 Then

       Cash = jf\2000*11

ElseIf jf > 50000 And jf <= 100000 Then

       Cash = jf\2000*12

ElseIf jf > 100000 And jf <= 150000 Then

       Cash = jf\2000*13

 Else jf > 150000 Then         ’ ②

       Cash = jf\2000*14

End If

End Function

Private Sub Form_Load（）

   Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

   Dim intSQL As Long

   conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ customer.accdb"

    conn.Open

   intSQL = "SELECT score  FROM Integral" 

     Set rs.ActiveConnection = conn

     rs.CursorType = adOpenStatic

     rs.Open intSQL

     sc = 0

     Do While Not rs.EOF

       sc = sc + 1

       total（sc） = rs.Fields（"score"）

       rs.MoveNext

     Loop

rs.Close

     conn.Close

     Set rs = Nothing

     Set conn = Nothing

End Sub

  Key=Val(Text1．Text)

  i=1：j=10

  flag=False

  s=””

  Do While i<一i And NOt flag

  mid1=Int(i+(j-i)／3)

  mid2=Int(j-(i-i)／3)

  If Key=a(mid1)Then

    flag=True

  ElseIf Key<a(mid1) Then

    j=mid1-1

  ElseIf Key=a(mid2) Then

    flag=True

  ElseIf Key>a(mid2) Then

    j=mid2+1

    Else

      i=mid1+1

      i=mid2-1

      End If

      s=s&”  ”＆ mid1 ＆ “：”&  mid2

 Loop

 Text2．Text=s

已知数组a(1 To 10)中的数据分别是12，21，34．45，59，63，72，86，94，100，在文本框Text1中输入34，程序运行后文本框Text2中显示的内容是（  ）

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

    End if

    if Key<a(m) Then j=m-1  Else  i=m+1

    Label1.Caption=Label1.Caption+“→”+Str(m)

Loop

Label2.Caption=“经历”+ Str(s)+“步”

Key=Val(Text1.Text)\10

Text2.Text=“”

i=1: j=9: f=False

Do While i<=j And Not f

    m=(i+j)\2

    if a(m) Mod 10=Key Then

        search=m

        f=True

    Elseif a(m) Mod 10>Key Then

        i=m+1

    Else

        j=m-1

    End if

    Text2.Text=Text2.Text+Str(m)

Loop

则在执行该程序后，Text2中显示的内容是（    ）

i=1: j=63: n=0

Do While i<=j

    M=(i+j)\2

    If Key=a(m) Then

        Exit Do

    Elself Key＜a(m) Then

        J=m-1:n=n-1

    Else

        I=m+1:n=n+1

    End if

Loop

数组元素a(1)到a(63)存放着递增的数据。若执行该程序段后n的值为6，则下列表达式成立的是（    ）