3.4 加密与解密 知识点题库

Private Sub Command1_ Click()

  Dim s As String, s1 As String, s2 As String, n As Integer

  Dim x As Integer, i As Integer, j As Integer, C As Integer

  Dim a（15） As String

  a（0） = "000"： a(1) = "0001"： a(2) = "0010"： a(3) =“011"： a(4) = "0100"：a(5) = "0101"： a(6) ="0110"： a(7) = "111"： a(8) = "1000" a(9) ="1001"：a(10) = "1010"： a（11） ="1011"： a（12） = "1100"a（13） = "1101"： a（14）= "1110"：a（15） ="1111"

  s2 = ""： s = Text1. Text

  For i=1 To Len（s）

    n = Asc（Mid（s, i, 1））

    c=n Mod 16

    s1 = 

    x = Va1（Mid（s1, 1,1））

    For j=2 To  4

      x=x+

    Next j

    x=(n/16）*16

    s2 = s2 + Chr（x）

  Next i

  Text2. Text = s2

End Sub

Private Sub Command1_Click( )

  Dim st1，st2 As String，i，n As Integer

  St1=Text1.Text

  n=Len（s1）

  st2=""

  For i=1 To n

    If pos（st1, i）<> "—" Then

      st2=st2+ pos（st1, i）

    Else

        If pos（st1, i） <pos（st1, 1） Then

          For j=Asc（pos（st1, i-1））+1To Asc（pos（st1, i+ 1））-1

                ①   

          Next j

        Else

          st2 = st2+"—"

        End If

      End If

  Next i

  Text2. Text = s2

End Sub

Function pos（s As String, x As Integer） As String

       ②   

End Function

以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。