【加試題】某加密程序，對輸入的原始字符串進行加密處理，輸出加密后得到的字符串，數據加密方法為對原始字符串中的每個字符進行如下處理：
①將該字符的ASCII碼值轉化為8位二進制數；
②將后4位二進制數進行按位取反（1變0，0變1）；
③將操作②生成的4位二進制數均左移1位（原第1位變為新的第4位）；
④原高4位二進制數連續新的后4位二進制數稱為最終加密后字符的內碼．
例如：字符“a”經過上述加密運算，可得到字符“m”．

ASCII碼值	轉二進制	后四位數取反	后四位左移	拼合	轉十進制	轉字符
97D	0110001B	1110	1101	01101101B	109D	“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'執行步驟②
             sl=Mid（a（low），2，3）& Mid（a（low），1，1）'執行步驟③
             x=0
             For j=1 To 4
                    x=x+Val（Mid（sl,j,1））*'（1）

2^（4-j）

2^（4-j）

             Next j 
             x=*16+x'（2）

n\16

n\16

             jg=jg & Chr（x）
      Next i
      Text2．Text=jg
End Sub.