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

第一步：x被除16取余数r1，r1是所求的十六进制数的一个数(第一次就是个位数)；

第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数s的左边；

第三步：求出x被除16的商x1；

第四步：对x1重复第一、二、三步，直至商为0；

第五步：最后的s即为所求的十六进制数；

下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示，在文本框Text1中输入一个十进制数，单击“十进制转十六进制”按钮(Command1)后，在文本框Text2中输出转换的结果。

相应的Visual Basic程序如下:

Private Sub Command1_Click()

 Dim s As String, r As Integer

 dec=val(Text1.Text)      ‘dec得到一个十进制整数,例如:255

 base=16       ‘base表示16

  s=“”      ‘s变量存放要转换到的十六进制整数

  Do While dec <> 0

     r=(1)     

     If r >=10 Then       ‘如果base>10,r可能>10

      s=Chr(65+(r-10))+s     ‘Chr(65)=“A”,16进制数A对应10;

     Else

      s=Str(r)+s      ‘余数r<10时,十进制数和十六进制基数相同

     End If      ‘Chr(65+( r-10))或str(r)在s左边,实现了反次序输出

     dec=(2)     

  Loop

 Text2.Text=s

End Sub

在(1)处应填入{#blank#}1{#/blank#} ， 在(2)处应填入{#blank#}2{#/blank#}。

A.base Mod dec   B.dec/base

C.dec Mod base   D.dec\base

则密码强度为“强”。