m=1：k=1

    For i=2 To 10

      If a(i)<a(i-1)Then

    k=k+1

         If k>m Then m=k

       Else

         k=1

       End If

    Next i

    Text1．Text=Str(m)

  End Sub

执行该程序段，文本框Text1中显示的是 （  ）

  ①将该字符的ASCII码值转化为8位二进制数；

  ②将后4位二进制数进行按位取反(1变0，0变1)；

  ③将操作②生成的4位二进制数均左移1位(原第1位变为新的第4位)；

  ④原高4位二进制数连接到新的后4位二进制数成为最终加密后字符的内码。

  例如：字符“a”经过上述加密运算，可得到字符“m”。

程序运行界面如图所示，请改正加框处有误的代码：

Private Sub Command1_Click()

    Dim s As String：Dim sl As String：Dim jg As String

    Dim n As Integer：Dim x As Integer：Dim i As Integer：Dim j As Integer

    Dim a(15)As String

    a(0)=“0000”：a(1)=“0001”：a(2)=“0010”：a(3)=“0011”

    a(4)=“0100”：a(5)=“0101”：a(6)=“0110”：a(7)=“0111¨

    a(8)=“1000”：a(9)=“1001”：a(10)=“1010”：a(11)=“1011¨

    a(12)=“1100”：a(13)=“1101”：a(14)“1110”：a(15)=“1111”

    jg=“ ”

    s=Text1．Text

    For i=1 To Len(s)

        n=Asc(Mid(s，i，1))

        low=n Mod 16

        low=15-low          ‘执行步骤②

        s1=Mid(a(low)，2，3)&Mid(a(low)，1，1)  ‘执行步骤③

        For i=l To 4

            x=x+Val(Mid(s1，j，1))*         ‘⑴{#blank#}1{#/blank#}

        Next j

        x= *16+x                        ‘⑵{#blank#}2{#/blank#}

jg=jg&Chr(x)

    Next i

    Text2．Text=jg

End Sub

S=0

For i=1 To 3

  s=s+2

Next i

Print s

实现以上功能的VB程序如下,在横处填入合适的代码。

Dim a(1 To 20) As Integer     ‘存储区间的左端点数值

Dim b(1 To 20) As Integer     ‘存储区间的右端点数值

Private Sub Form_Load()

‘将区间左端点存入数组a,区间右端点存入数组b,并在列表框List1显示,代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim curL As Integer, curR As Integer

For i=1 To n-1

 For j=1 To n-i

  If{#blank#}1{#/blank#}Then

   t=a(j): a(j)=a(j+1): a(j+1)=t

   t=b(j): b(j)=b(j+1): b(j+1)=t

  End If

 Next j

Next i

curL=a(1): curR=b(1)

For i=2 To n

 If{#blank#}2{#/blank#}Then

  If curR < b(i) Then{#blank#}3{#/blank#}

 Else

  List2.AddItem“["+Str(curL)+Str(curR)+"]”

  curL=a(i): curR=b(i)

 End If

Next i

List2. AddItem “[”+Str(curL)+Str(curR)+“]”

End Sub

i = 1

Do While i<=6

    a(i) = Int(Rnd * 10) + 1

    If a(i) Mod 2 = i Mod 2 Then i = i + 1

Loop

For i = 1 To 2

    k = 1

    For j = 1 To 6 - i * 2

        If a(j) * k > a(j + 2) * k Then

            t = a(j): a(j) = a(j + 2): a(j + 2) = t

        End If

        k = -k

    Next j

Next i

执行该程序段后，在下列选项中，a(1)~a(6)各元素值可能的是（  ）

用户从Text1中输入计划人数，单击“入围划线”按钮Command1，面试分数线显示在文本框Text2 中，入围面试最终人数显示在 Text3中，进入面试考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号从小到大的顺序显示。程序界面如图所示。

Dim kh(1 To 500) As String, cj(1 To 500) As Integer

Dim n As Integer ′参加考试总人数

Private Sub Form_Load()

Dim conn As New ADODB.Conncction

Dim rs As New ADODB.Recordset

conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0；datasource=”+App.Path + ”\BSCJ.accdb”

conn.Open

Set rs.ActiveConnection = conn

rs.Open “select * FROM scoreinfo”

′本过程其他代码略

End Sub

Private Sub Commandl_click()

Dim m As Integer, i As Integer, j As Integer

Dim t1 As Integer, t2 As String, flag As Boolean

For i = 1 To n - 1

  For j = 1 To

    If cj(i) < cj(j) Then

      t1 = cj(i): cj(i) = cj(j): cj(j) = t1

      t2 = kh(i): kh(i) = kh(j): kh(j) = t2

    EleIf      ①      Then

      t2 = kh(i): kh(i) = kh(j): kh(j) = t2

    End If

  Next j

Next i

m =     ②     

If m <= n Then

  i = m

  flag = Flase

  Do While i < n And Not flag
    If cj(i) = cj(i + 1) Then

      i = i + 1

 Else

             ③     

 End If
  Loop

  Text2.Text = Str(cj(m))

  Text3.Text = Str(i)

  For j = 1 To i

    List2.Addltem kh(j) + “ ” + Str(cj(j))

  Next j

Else

  Text2.Text = “面试人数超过了总人数”

End If

End Sub