小明编写了一个数据加密的VB程序功能如下：在文本框Text1中输入明文，单击“加密”按钮Command1后在文本框Text2中显示加密后的密文，运行界面如图所示。

其中加密算法如下：
①将明文中的ASCII码每3个字节为一组（该明文字符串均为ASCII码，且字节数为3的倍数），顺次连接后得到24位二进制数
②将①中的24位二进制数每8位进行一次翻转操作，比如原来的“0101 0001”变为“1000 1010”
③将②所得24位二进制数逐位取反，比如原来的“1110”变为“0001”
④将③中所得的24位二进制数每6位一组转换为相应的十进制数，即得到对应的密文
⑤将所有密文顺序连接并输出
实现上述功能的VB程序如下，请回答下列问题：
（1）按照上述加密算法进行加密，则“ABC”的密文是

31275261

31275261

（已知“A”的ASCII码值为65）
（2）请在横线处填入合适代码：
Dim a（1To 24）As Integer,k As Integer
Private Sub Command1_Click （　　）
Dim mw As String,ch1As Integer,ch2As String,ch3As String,s As String
Dim m As Integer,i As Integer,j As Integer
s=““
mw=Text1．Text‘mw存储明文字符串
For i=1To Len（mw） Step 3
For j=1To 24‘初始化数组，用于存储三个字节的二进制数
a（j）=0
Next j
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）
For j=1To 24‘逐位取反
①

a（j）=a（j）xor 1

a（j）=a（j）xor 1

Next j
For j=1To 4
m=0
For p=②

p=6*（j-1）+1

p=6*（j-1）+1

 To j*6‘每6位一组进行权值相加
m=m*2+a（p）
Next p
s=s & m
‘&连接运算符，连接数字和字符串时，会将数字自动转换为字符串
Next j
Next i
Text2．Text=s
End Sub
Sub Convert（x As Integer）
Dim i As Integer,j As Integer
Do While x＞0
a（k）=x Mod 2
x=x\2
k=k+1
Loop
j=③

j=8-（k-1）

j=8-（k-1）

‘8位二进制数，高位补“0”
k=k+j
End Sub