某字符串（字节数为 2 的倍数）编码规则如下：
（1）将该字符串内码分成 2 个字节一组，每个字节前补上一个 0，构成 9 位二进制，顺次链接后得 到 18 位二进制；
（2）将得到的 18 位二进制数字分成 3 组，每组 6 位；
（3）在每组数字前补上两个 0，得到 3 个字节的二进制数；
（4）将（3）中得到的三个字节的二进制数分别转换为十进制数；
（ 5 ）将 每个十 进制数转 换为 1 个加 密字符，对应的“密码表”按数 值由小到 大依次 为“012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/”小明按照上述方法，设计了一个字符串（仅包含 ASCII 字符）加密的 VB 程序，功能如下：单击“加 密”按钮 Command1，程序依次将文本框 Text1 中每 2 个字符的 ASCII 码值按编码规则转换为三个加 密字符，连接这些加密字符，最后在文本框 Text2 中输出加密结果。程序效果如图所示。

实现上述功能的 VB 程序如下：
（1）在 Text1 中输入明文“AB”，用上述加密算法得到的密文为

781

781

。
（2）实现上述功能的 VB 程序如下。请在横线处填入合适的代码。
Function cc（n As Integer） As String
Dim s As String
s=“012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/“
①

cc=Mid（s,n,1）

cc=Mid（s,n,1）

End Function
Private Sub Command1_Click （　　）
Dim n As Integer,s As String,i As Integer,ss As String
Dim a1 As Integer,a2 As Integer
Dim b1 As Integer,b2 As Integer,b3 As Integer s=Text1．Text
n=Len（s）
ss=““
For i=1 To nStep 2
a1=Asc（Mid（s,i,1））
②

a2=Asc（Mid（s,i+1，1））

a2=Asc（Mid（s,i+1，1））

b1=a1\8
b2=③

b2=b1 Mod 8+a2\64

b2=b1 Mod 8+a2\64

b3=a2 Mod 64
ss=ss+cc（b1）+cc（b2）+cc（b3）Next i
Text2．Text=ss
End Sub