某種字符加密方法描述如下：
①輸入明文、密鑰。
②在明文中從左往右每次取連續的8個字符。
③將8個字符圍成一圈，從第1個字符開始1，2，3，……數數，數到密鑰值時取出該位字符；再由下一個字符開始1，2，3，……數數，數到密鑰值時取出該位字符，重復此過程，直至這8個字符被取完。
④依次把取出的8個字符拼接成新的字符串。
⑤重復②-④步驟，直至所有明文字符處理完畢。
編寫一個VB程序，實現功能如下：程序運行時從文本框Textl中讀入一串明文（長度為8的倍數），從文本框Text2中讀入密鑰y,單擊“加密”按鈕Commandl,對明文按上述方法轉換后在文本框Text3中顯示。程序運行界面如圖所示。
（1）運行上述程序，若在文本框Textl中輸入“Let's go”，Text2中輸入“3”，單擊“加密”按鈕，則文本框Text3中顯示的內容是

t Lseo'g

t Lseo'g

。
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼。
Const n=1000
Private Sub Commandl_Click （　　）
Dim f （1 To n） As Integer,cq （1 To n） As Integer
Dim a （1 To n） As String,s As String,res As String
Dim y As Integer,p As Integer,begin As Integer
s=Textl.Text：y=Val（Text2．Text）
For i=1 To 8
f（i）=1
Next i
'計算出列順序
p=0
For i=1 To 8
j=1
Do While j＜=y
p=p Mod 8+1
j=

j+f（p）

j+f（p）

Loop
f（p）=0：cq（i）=p
Next i
For i=1 To Len（s）
a（i）=Mid （s,i,1）
Next i
i=1：begin=-8：res=″″
Do While i＜=Len（s）
If i Mod 8=1 Then

begin=begin+8

begin=begin+8

res=res+

a（begin+cq（（i-1）Mod 8+1））

a（begin+cq（（i-1）Mod 8+1））

i=i+1
Loop
Text3．Text=res
End Sub