程序代码如下，为实现上述功能，请在画线处填写合适的代码。

Dim bh(10 000)As String        ‘存储学生编号

Dim jf(10 000)As Integer       ‘存储学生获得的积分值

Dim n As Integer               ‘存储学生总人数

Function Search(x As Integer)As Integer

    Search=0

    i=1：j=n：flag=True

    Do While i<=j And flag=True

      m=Int((i+i)／2)

      If x=jf(m) Then

         flag=False

             ①  

      Elself    ②     Then

        i=m+1

      Else

        j=m-1

      EndIf

    Loop

End Function

Private Sub Form_Load()

    ‘从数据库中读取学生编号和积分，分别存储到bh数组和jf数组中，并按积分值从小到大排序，显示在列表框List1中

End Sub

Private Sub Command1_Click()

    Dim Top As Integer，Bottom As Integer，Topxb As Integer，Bottomxb

As Integer

    List2．Clear

    Top=Val(Text1．Text)

    Bottom=Val(Text2．Text)

    If Top>Bottom Then t=Top：Top=Bottom：Bottom=t

    If Top>jf(n)Or Bottom<jf（1）Then Exit Sub

    Do While Search(Top)=0

      Top=Top+1

    Loop

    Do While Search(Bottom)=0

      Bottom=Bottom-1

    Loop

    Topxb=Search(Top)

    Do While jf(Topxb)=jf(Topxb-1)And Topxb>l

      Topxb=Topxb-1

    Loop

    Bottomxb=Search(Bottom)

    Do While jf(Bottomxb)=jf(Bottomxb+1)And Bottomxb<n

      Bottomxb=Bottomxb+1

    Loop

    For i=    ③    

       List2.AddItem bh(i)&"    "&jf(i)

    Next i

End Sub

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

该程序采用两种查询方式：

⑴按的汽车的排量查询信息

在文本框Text1中输入需要的汽车的排量，单击Command1按钮，在列表框List1中显示等于该排量汽车的相关车辆信息。

⑵按车主查询信息

在文本框Text1中输入车主信息(手机号码或姓名)，单击Command2按钮，在列表框List1中显示车辆信息。

该程序运行时的界面如图2所示。

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

综上所述：原文为Jim is at room 4！，加密后输出密文为：NMQ MW EX VSSQ 2！

Dim i As Integer,j As Integer,Key As Integer,m As Integer,s As String

i=1: j=7: s=“”:flag=False

Key=Int(Rnd()* 50)

Do While i <=j 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

 s=s+Str(a(m))

Loop

Text1.Text=s

数组中a(1)到a(7)的值依次为“23，33，45，56，68，77，89”，则Text1 中显示的内容不可能是（  ）

①定义一个数组a(1 to 961)。产生一个3到6之间的随机整数k，将十进制数960均分成k份，字符在字符串中的位置除以k的余数决定该字符存放在第几份数据中（余数为1保存在第一份数据中，余数为2保存在第二份数据中……，余数为0保存在第k份数据中）；

②用十进制数127减去每个字符的ASCII码值，得到的差作为该字符的密文,并保存在数组a中，同一段内的密文依次存放；

③将随机产生的数k加64后保存在数组元素a(961)中，并一起参与加密；

④将数组a中所有有密文值的数组元素从后往前依次存放到数组b中；

⑤将数组b中的每个密文用3位数字保存，不足3位的前面用0补足，然后依次连接保存在变量sc中；

⑥在文本框Text2中输出sc。

例如：

①若现有待加密的字符串为“zp123”,产生的随机数k=3，则960分成3份，每份可存放320个值，分别为a(1)至a(320)，a(321)至a(640)，a(641)至a(960)；

②由于Asc(“z”) =122，则127-122=5。字符“z”在待加密字符串中的位置是1，除以k的余数为1，因此数字“5”放在第一份数据的第一个位置，即a(1)=5；同理可得，第一份数据为a(1)=5,a(2)=77；第二份数据为a(321)=15，a(322)=76；第三份数据为a(641)=78；

③将随机产生的k与十进制数64的和保存到a数组的最后一个值中，即a(961)=64+3=67；

④将数组a中所有有密文值的数组元素从后往前依次存放到数组b中，得到b(1)=67,b(2)=78,b(3)=76,b(4)=15,b(5)=77,b(6)=5；

⑤将数组b中的每个元素用0补足3位后依次连接并保存在sc中，得到sc=“067078076015077005”；

⑥输出sc。

注：（asc（“0”）=48，asc（“A”）=65，asc（“a”）=97）

Private Sub command1_Click()

    Dim a(1 To 961) As Integer

    Dim sr, sc As String

    Dim i, j, k, m, n, t As Integer

    Dim b(1 To 961) As Integer

    Randomize

    k = Int(Rnd * 4 + 3)

    sr = text1.Text

    For i = 1 To 961

        a(i) = -1

    Next i

    a(961) = k + 64

    t = 960 / k

    For i = 1 To Len(sr)

        m = i Mod k - 1

        n = i \ k + 1

        If i Mod k = 0 then n = n - 1: m = m + k

           ①     = 127 - Asc(Mid(sr, i, 1))      ‘将密文存储到数组a中

    Next i

    For i = 1 To Len(sr) + 1

        j = j + 1

        Do While a(j) = -1

            j = j + 1

        Loop

        b(Len(sr) + 2 - i) = a(j)      ‘将有密文值的a数组元素存储到数组b中

    Next i

    For i = 1 To Len(sr) + 1

        sc =   ②         ‘连接密文并保存到sc中

    Next i

    text2.Text = sc

End Sub

Function space(x As Integer) As String

    For i = 1 To    ③  

        space = space & "0"

    Next i

End Function