某字符串加密算法，規(guī)則如下：
（1）根據(jù)字符串長度構建一個最小的n*n矩陣，將字符串中每個字符從左到右，自上而下順序填入矩陣，不足部分用字符“*”代替；
（2）將矩陣轉置（行列對換），然后將奇數(shù)行字母內碼加上1，偶數(shù)行字母內碼減1，字符為a、z或A、Z時做循環(huán)處理。比如，字符a減1為z；字符Z加1為A。
（3）按從左到右，從上而下依次取出字符，形成新的字符串。如圖a為字符串“Go to the zoo.”的加密過程。編寫VB程序，在文本框Text1中輸入字符串，點擊“加密”按鈕，在文本框Text2中輸出加密后的字符串。程序運行結果如圖b所示。

圖a

圖b

（1）若在文本框Text1中輸入3個字母“Far”，執(zhí)行加密程序后，輸出結果為 

Gsz*

Gsz*

。
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼
Dim a（1 To 100）As String,b（1 To 100）As String,n As Integer
Private Sub Command1_Click

加密

加密

Dim s1 As String,s2 As String,i As Integer,j As Integer,m As Single
s1=Text1.Text
m=Sqr（Len（s1））
If m＞Int（m） Then n=Int（m）+1 Else n=m
For i=1 To n*n
If i＜=Len（s1）Then  a（i）=Mid（s1，i,1）Else  a（i）=“*“
Next i
For i=1 To n
For j=1 To n
b（（i-1）*n+j）=

a（（j-1）*n+i）

a（（j-1）*n+i）

‘將矩陣轉置
b（（i-1）*n+j）=jm（i,j）‘內碼變換
Next j
Next i
s2=““
For i=1 To n*n
s2=s2 & b（i）
Next i
Text2.Text=s2
End Sub
Function jm（x As Integer,y As Integer） As String
Dim s As String
s=b（（x-1）*n+y）
If s＜=“Z“And s＞=“A“Or s＜=“z“And s＞=“a“Then
If x Mod 2＜＞0 Then
If s＜＞“Z“And s＜＞“z“Then
s=Chr（Asc（s）+1）
Else
s=Chr（Asc（s）-25）
End If
Else
If s＜＞“a“And s＜＞“A“Then
s=Chr（Asc（s）-1）
Else
s=

chr（Asc（s）+25）

chr（Asc（s）+25）

End If
End If
End If

jm=s

jm=s

End Function