某小寫字母字符串加密算法規(guī)則如下：
（1）將小寫字符轉(zhuǎn)換到數(shù)字，如“a”-＞1，“z”-＞26，將轉(zhuǎn)換后的數(shù)字分成4個數(shù)一組分別存入數(shù)組中，最后一組數(shù)字不夠的后面補0
（2）將4個數(shù)一組的數(shù)據(jù)，組內(nèi)做循環(huán)右移1位存儲
（3）按照隨機產(chǎn)生的位置矩陣（圖1）（3*4規(guī)模，每行內(nèi)的值為1-4的隨機數(shù)，且行內(nèi)不重復）按行做位置變換，位置矩陣可以循環(huán)使用

（1）加密結(jié)果和位置矩陣如圖2所示。待加密字符為

hello

hello

。
（2）請根據(jù)代碼完善如下程序，加框處有錯，請改正。
Dima（1To100）AsInteger,b（1To12）AsInteger
PrivateSubForm_Load （　?。?br />'產(chǎn)生位置矩陣存入數(shù)組b,代碼略
EndSub
PrivateSubCommand1_Click （　　）
DimmAsInteger,nAsInteger,sAsString
Dimres（1To100）AsInteger'加密結(jié)果
s=Text1.Text
n=

（len（s）-1）/4+1

（len（s）-1）/4+1

m=4*n
Fori=1Tom
Ifi＜=Len（s）Then
a（i）=Asc（Mid（s,i,1））-Asc（“a“）+1
Else
a（i）=0
EndIf
Nexti
Fori=1Ton
tmp=a（4*i）

4*i to 4*（i-1）+2 step-1

4*i to 4*（i-1）+2 step-1

a（j）=a（j-1）
Nextj
a（4*（i-1）+1）=tmp
Nexti
Fori=1Tom
col=（i-1）\4+1
row=（i-1）Mod4+1
res（（col-1）*4+row）=

a（4*（col-1）+b（（（col-1）mod3））*4+row））

a（4*（col-1）+b（（（col-1）mod3））*4+row））

Nexti
′在列表框List3中輸出加密結(jié)果，代碼略