学进去

将一段只含大小写字母与空格，不含其它字符的字符串加密，加密算法描述如下
(1).将明文中的字母 E 替换为 A，F 替换为 B，G 替换为 C，… A 替换为 W，B 替换为 X，C 替换为 Y，…，小写字符的替换方法同理。

如：明文：I Love China  加密为：E Hkra Ydejw
(2).将加密后的英文字母，按顺序依次放入每个字符串段落中，第 1 个加密字母 E 放在第 1 个段落，第 2 个字母 H 放在第 2 个段落，依次类推（如下图），段落间用逗号分隔并以逗号结尾。当遇到空格，在段落末尾“，”前，插入“+”号作为标记。

第 1 段	第 2 段	第 3 段	第 4 段	第 5 段	第 6 段	第 7 段	第 8 段	第 9 段	第 10 段
E+,	H,	k,	r,	a+,	Y,	d,	e,	j,	w+，

(3).每个段落中，随机插入字母形成新的字母序列段，当段号小于 8 时加密字母在字母序列中存放位置刚好是该段落号，位置以 8 为周期，第 9 段时，加密字母存放位置回到字母序列的第 1 位，第 10 段加密字母存放位置回到第 2 位，依次类推。（位置号<=8）

第 1 段	第 2 段	第 3 段	第 4 段	第 5 段
Etc+,	mHfryh,	oTkrestf,	rfir,	Ccfta+,
第 6 段	第 7 段	第 8 段	第 9 段	第 10 段
iynhyYf,	tqswjyd,	nrtesiueh,	jnytq,	Uwccdb+,

(4).在每一段中随机插入除英文字母之外的 ASCII 字符码，形成一串密文。如图所示：

①若密文字符串为：“!@8G+*y/$#r~!s,f?[:a34c33!<e=w,123#r@/{t++*%&M2s7s,+h@f$5/j+*^e.? i*,/6*+e$（c3~/: p-）h->w%&3@w!@,4/*i#$@+m!j65&*（kr+^$k++k#l,”
则根据加密算法，解密后的明文为_________
②为了寻找密文中隐藏的信息，小明编写了一段 VB 解密程序，代码如下，请在划线处填入合适的代码。

Private Sub Command1_Click（） Dim i As Integer, k As Integer

Dim s As String, c As String, ch As String

Dim letter As String, ret As String    'letter 用于存放字母序列

s = Text1.Text k = 1

For i = 1 To Len（s）

c = Mid（s, i, 1）
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then letter = letter + c

ElseIf c = "," Then

________
ch = Chr（Asc（ch） + 4）
If Not （ch >= "A" And ch <= "Z" Or ch >= "a" And
ch <= "z"） Then ch = Chr（Asc（ch） - 26）
End If
If ______ Then ret = ret + ch + " "
Else
ret = ret + ch
End If
______
k = k + 1

End If

Next i
Text 2.Text = ret
End Sub