小明編寫了一個數據加密的VB程序功能如下：在文本框Text1中輸入明文，單擊“加密”按鈕Command1后在文本框Text2中顯示加密后的密文，運行界面如圖所示。

其中加密算法如下：
①將明文中的ASCII碼每3個字節為一組（該明文字符串均為ASCII碼，且字節數為3的倍數），順次連接后得到24位二進制數
②將①中的24位二進制數每8位進行一次翻轉操作，比如原來的“01010001”變為“10001010”
③將②所得24位二進制數逐位取反，比如原來的“1110”變為“0001”
④將③中所得的24位二進制數每6位一組轉換為相應的十進制數，即得到對應的密文
⑤將所有密文順序連接并輸出
實現上述功能的VB程序如下，請回答下列問題：
（1）按照上述加密算法進行加密，則“ABC”的密文是

31275261

31275261

（已知“A”的ASCII碼值為65）
（2）請在橫線處填入合適代碼：
Dima（1To24）AsInteger,kAsInteger
PrivateSubCommand1_Click （　　）
DimmwAsString,ch1AsInteger,ch2AsString,ch3AsString,sAsString
DimmAsInteger,iAsInteger,jAsInteger
s=″″
mw=Text1．Text‘mw存儲明文字符串
Fori=1ToLen（mw）Step3
Forj=1To24‘初始化數組，用于存儲三個字節的二進制數
a（j）=0
Nextj
k=1
ch1=Asc（Mid（mw,i,1））
ch2=Asc（Mid（mw,i+1，1））
ch3=Asc（Mid（mw,i+2，1））
Convert（ch1）‘調用自定義過程Convert
Convert（ch2）
Convert（ch3）
Forj=1To24‘逐位取反
①
Nextj
Forj=1To4
m=0
Forp=②Toj*6‘每6位一組進行權值相加
m=m*2+a（p）
Nextp
s=s&m
‘&連接運算符，連接數字和字符串時，會將數字自動轉換為字符串
Nextj
Nexti
Text2．Text=s
EndSub
SubConvert（xAsInteger）
DimiAsInteger,jAsInteger
DoWhilex＞0
a（k）=xMod2
x=x\2
k=k+1
Loop
j=③‘8位二進制數，高位補“0”
k=k+j
EndSub