某种字符加密方法描述如下：
①输入明文、密钥。
②在明文中从左往右每次取连续的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