某种字符加密方法描述如下：
①输入明文、密钥。
②在明文中从左往右每次取连续的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中显示的内容是__________________________。
(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=___________
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___________
res=res+___________
i=i+1
Loop
Text3.Text=res
End Sub
