小林發(fā)給小周一串密文“VghpcyBpcyBhbiBleGFtcGxl”并告訴小周，這串密文由明文字符串（僅包含ASCII字符，且字節(jié)數(shù)為3的倍數(shù)）經(jīng)以下規(guī)則加密而成：
（1）將明文ASCII碼分成3個字節(jié)一組，順次連接后得到24位二進(jìn)制數(shù)；
（2）將得到的24位二進(jìn)制數(shù)字按每6位一組分成4組，每組6個位；
（3）在（2）中得到的6個位前補(bǔ)上兩個0，得到4個字節(jié)的二進(jìn)制數(shù)；
（4）將（3）中得到的四個二進(jìn)制數(shù)分別轉(zhuǎn)換為十進(jìn)制數(shù)；
（5）將每個十進(jìn)制數(shù)轉(zhuǎn)換為1個加密字符，對應(yīng)的“密碼表”按數(shù)值由0到63依次為“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”小周按照上述規(guī)則，設(shè)計了一個解密VB程序，功能如下：單擊“解密”按鈕Command1，程序依次將文本框Text1中每4個密文字符按加密規(guī)則轉(zhuǎn)換為3個明文字符，連接這些明文字符，最后在文本框Text2中輸出結(jié)果。程序運行效果如圖所示。
實現(xiàn)解密功能的VB程序如下，請回答下列問題：
（1）若密文字符串的長度是120，則解密后明文字符串的長度是

90

90

。
（2）請在橫線處填入合適代碼。
Function Char2Int（c As String） As Integer
If c＞=“A“And c＜=“Z“Then’字母“A”的 ASCII碼是65
Char2Int=Asc（c）-65
Elself c＞=“a“And c＜=“z“Then’字母“a”的ASCII碼是 97
Char2Int=Asc（c）-71
ElseIf c＞=“0“And c＜=“9“Then’數(shù)字“0”的ASCII碼是48

①

①

ElseIf c=“+“Then
Char2Int=62
Else
Char2Int=63
End If
End Function
Private Sub Command1_Click （　　）’解密過程
Dim n As Integer,s As String,i As Integer,ss As String
Dim a（0 To 3）As Integer’依次存儲一組四個密文按密碼表換算出的數(shù)值
Dim b（0 To 2）As Integer’依次存儲一組三個明文字符的ASCII值
s=Text1．Text
n=Len（s）
ss=““
For i=1 To n Step 4
For j=i To i+3
a（

②

②

）=Char2Int（Mid（s,j,1））
Next j
b（0）=a（0）*4+a（1）\16

③

③

b（2）=（a（2）Mod 4）*64+a（3）
For j=0 To 2
ss=ss+Chr（b（j））
Next j
Next i
Text2．Text=ss
End Sub