某字符串（字節(jié)數(shù)為 2 的倍數(shù)）編碼規(guī)則如下：
（1）將該字符串內(nèi)碼分成 2 個字節(jié)一組，每個字節(jié)前補上一個 0，構(gòu)成 9 位二進制，順次鏈接后得 到 18 位二進制；
（2）將得到的 18 位二進制數(shù)字分成 3 組，每組 6 位；
（3）在每組數(shù)字前補上兩個 0，得到 3 個字節(jié)的二進制數(shù)；
（4）將（3）中得到的三個字節(jié)的二進制數(shù)分別轉(zhuǎn)換為十進制數(shù)；
（ 5 ）將 每個十 進制數(shù)轉(zhuǎn) 換為 1 個加 密字符，對應(yīng)的“密碼表”按數(shù) 值由小到 大依次 為“012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/”小明按照上述方法，設(shè)計了一個字符串（僅包含 ASCII 字符）加密的 VB 程序，功能如下：單擊“加 密”按鈕 Command1，程序依次將文本框 Text1 中每 2 個字符的 ASCII 碼值按編碼規(guī)則轉(zhuǎn)換為三個加 密字符，連接這些加密字符，最后在文本框 Text2 中輸出加密結(jié)果。程序效果如圖所示。

實現(xiàn)上述功能的 VB 程序如下：
（1）在 Text1 中輸入明文“AB”，用上述加密算法得到的密文為

781

781

。
（2）實現(xiàn)上述功能的 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 （　?。?br />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