某字符串（字節(jié)數(shù)為3的倍數(shù)）編碼規(guī)則如下：
（1）將該字符串內(nèi)碼分成3個(gè)字節(jié)一組，順次連接后得到24位二進(jìn)制數(shù)；
（2）將得到的24位二進(jìn)制數(shù)字分成4組，每組6位；
（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è)加密字符，對(duì)應(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ù)最大是

63

63

．
（2）實(shí)現(xiàn)上述功能的VB程序如下．請(qǐng)?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 String,i As Integer,ss As String
   Dim a1 As Integer,a2 As Integer,a3 As Integer'存儲(chǔ)加密前字符的ASCII碼
   Dim b1 As Integer,b2 As Integer'分別存儲(chǔ)分割、轉(zhuǎn)換后的前兩個(gè)十進(jìn)制數(shù)
   Dim b3 As Integer,b4 As Integer'分別存儲(chǔ)分割、轉(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）*16+（a2\16）
      b3=

③

③

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