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

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

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

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

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

程序运行效果如图所示。

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

Private Sub Command1_Click()

x = Text1.Text

n = Len(x)

s=s+Mid(x,1,1)

For i = 2 To n

flag =0

For j = 1 To Len(s)

If  Then '{#blank#}1{#/blank#}

flag = 1: Exit For

End If

Next j

If  Then '{#blank#}2{#/blank#}

s = s + Mid(x, i, 1)

End If

Next i

Text2.Text = s

End Sub

PRIVATE SUB FORM__CLICK( ）

S=0

FOR A= 1 TO 5

    S=S+（10^A-1）/3

NEXT A

PRINT S

END SUB

Private Sub Commandl_Click( )

Dim s As Integer, cz As Integer            'cz存储超重克数

Dim k As Integer

'依次从1～5号瓶中取出1、2、4、8、16粒药，并计算总重量，存储在变量s中，代码略

cz=s-310

Text1.Text=    ①    

k=0

Do While cz<>0

k=k+1

If    ②     Then List 1.Addltem"第"+Str(k)+"瓶"

cz=cz\2

Loop

End Sub