某字符串（字節(jié)數(shù)為3的倍數(shù)）編碼規(guī)則如下：（1）將該字符串內(nèi)碼分成3個(gè)字節(jié)一組，順次連接后得到24位二進(jìn)制數(shù)；
（2）將得到的24位二進(jìn)制數(shù)字分成4組，每組6個(gè)位；
（3）在每組數(shù)字前補(bǔ)上兩個(gè)0，得到4個(gè)字節(jié)的二進(jìn)制數(shù)；
（4）將（3）中得到的四個(gè)二進(jìn)制數(shù)分別轉(zhuǎn)化為十進(jìn)制數(shù)；
（5）將每個(gè)十進(jìn)制數(shù)轉(zhuǎn)換為1個(gè)加密字符，對應(yīng)的“密碼表”按數(shù)值由小到大依次為“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”
小明按照上述方法，設(shè)計(jì)了一個(gè)字符串（僅包含ASCⅡ字符）加密的VB程序，功能如下：單擊“加密按鈕”Command1，程序依次將文本框Text1中每3個(gè)字符的ASCⅡ碼值按編碼規(guī)則轉(zhuǎn)換為四個(gè)加密字符，連接這些加密字符，最后在文本框Text2中輸出加密結(jié)果．程序運(yùn)行效果如圖所示．
實(shí)現(xiàn)上述功能的VB程序如下：
（1）在上述加密算法步驟（4）中，得到的十進(jìn)制數(shù)最大是
（2）實(shí)現(xiàn)上述功能的VB程序如下．請?jiān)跈M線處填入合適代碼．
Function Code2Char（c As Integer）As String
Dim s As String
s=“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/“
Code2Char=

①

①

End Function
Private Sub Command1_Click（　?。?加密過程
Dim n As Integer,s As Integer,i As Integer,ss As String
Dim a1 As Integer,a2 As Integer,a3 As Integer'存儲加密前字符的ASC碼
Dim b1 As Integer,b2 As Integer'分別存儲分割、轉(zhuǎn)換后的前兩個(gè)十進(jìn)制數(shù)
Dim b3 As Integer,b4 As Integer'分別存儲分割、轉(zhuǎn)換后的后兩個(gè)十進(jìn)制數(shù)
s=Text1．Text
n=Len（s）
ss=““
For i=1 To n

②

②

a1=Asc（Mid（s,i,1））
a2=Asc（Mid（s,i+1，1））
a3=Asc（Mid（s,i+2，1））
b1=a1\4
b2=（a1 Mod4）*4+（a2\16）
b3=

③

③

b4=a3 Mod 64
ss=ss+Code2Char（b1）+Code2Char（b2）+Code2Char（b3）+Code2Char（b4）
Next i
Text2．Text=ss
End Sub.