⑴以字节为单位进行加密处理；

⑵将1个字节的8位二进制数分割成前4位与后4位两个二进制数；

⑶分别将上述两个4位二进制数转换为十进制数；

⑷将每个十进制数转换为1个加密字符，对应的“密码表”如下：

小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：

程序运行效果如图所示。

实现上述功能的VB程序如下：

实现上述功能的VB程序代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

  Dim s As String, ch As String

  Dim ch2 As String, sum As Double

  Dim n As Integer, i As Integer

  s = Text1.Text

  n = Len(s)

  i = 1: sum = 0

  Do While                                    ＇①

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

      j = i

      ch2 = Mid(s, j, 1)

      Do While ch2 >= "0" And ch2 <= "9"

        j = j + 1

        ch2 = Mid(s, j, 1)

      Loop

      sum = sum + Val（ ）     ＇②

      i = j

    End If

    i = i + 1

  Loop

  Label3.Caption = Str(sum)

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}