某小写字母字符串加密算法规则如下:
(1)将小写字符转换到数字,如“a”->1,“z”->26,将转换后的数字分成4个数一组分别存入数组中,最后一组数字不够的后面补0
(2)将4个数一组的数据,组内做循环右移1位存储
(3)按照随机产生的位置矩阵(3*4规模,每行内的值为1-4的随机数,且行内不重复)按行做位置变换,位置矩阵可以循环使用

(1)加密结果和位置矩阵如图所示。待加密字符为______。

(2)请根据代码完善如下程序,加框处有错,请改正。
Dim a(1 To 100)As Integer,b(1 To 12)As Integer
Private Sub Form_Load()
'产生位置矩阵存入数组b,代码略
End Sub
Private Sub Command1_Click()
Dim m As Integer,n As Integer,s As String
Dim res(1 To 100)As Integer'加密结果
s=Text1.Text
n=_______
m=4*n
For i=1 To m
If i<=Len(s)Then
a(i)=Asc(Mid(s,i,1))-Asc("a")+1
Else
a(i)=0
End If
Next i
For i=1 To n
tmp=a(4*i)

________
a(j)=a(j-1)
Next j
a(4*(i-1)+1)=tmp
Next i
For i=1 To m
col=(i-1)\4+1
row=(i-1)Mod 4+1
res((col-1)*4+row)=____________
Next i
‘在列表框List3中输出加密结果,代码略
End Sub