图1

图2

当n的值为10时，关于该两段程序，下列说法不正确的是(  )

  ①将该字符的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=Text.Text

c=0

For i=1 To 26

      ⑴ 

Next

For i=1 To Len(s)

      ⑵ 

IF d(t)=0 Then d(t)=i

      ⑶ 

Next

Text2 Text=Str(c)

填空处的代码可由以下部分组成

①d(i)=0 ②=val(Mid(si, 1) ③IFd(t)<>0Andi-d(t)> c Then c=i-d(t)

④d(i)=1 ⑤t=Asc(Mid(s, i, 1)-Asc("a")+1 ⑥fi-d(t)> c Then c=i-d(t)

代码顺序正确的是（  ）

Dim a(1 To 10) As Integer

a(1)=2: a(2)=18: a(3)=10: a(4)=34: a(5)=16

a(6)=7: a(7)=37: a(8)=6: a(9)=15: a(10)=15

c=0: x=0: t= 1

For i=1 To 10

    a(i)=a(i)*t

    c=c+a(i)

    If c>0 Then x=x+1

    t=-t

Next i

Text1.Text=Str(x)

则程序运行后Text1中显示（  ）