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

t Lseo'g

t Lseo'g

。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼。
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
'計(jì)算出列順序
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