將一段只含大小寫字母與空格，不含其它字符的字符串加密，加密算法描述如下.
1.將明文中的字母E替換為A，F(xiàn)替換為B，G替換為C，…A替換為W，B替換為X，C替換為Y，…，小寫字符的替換方法同理。

如：明文：ILoveChina加密為：EHkraYdejw
2.將加密后的英文字母，按順序依次放入每個(gè)字符串段落中，第1個(gè)加密字母E放在第1個(gè)段落，第2個(gè)字母H放在第2個(gè)段落，依此類推（如圖1），段落間用逗號分隔并以逗號結(jié)尾。當(dāng)遇到空格，在段落末尾“，”前，插入“+”號作為標(biāo)記。

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

3.每個(gè)段落中，隨機(jī)插入字母形成新的字母序列段，當(dāng)段號小于8時(shí)加密字母在字母序列中存放位置剛好是該段落號，位置以8為周期，第9段時(shí)，加密字母存放位置回到字母序列的第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.在每一段中隨機(jī)插入除英文字母之外的ASCII字符碼，形成一串密文。如圖2所示：
（1）若密文字符串為：“!@8G+*y/#r～!s,f？[：a34c33!＜e=w,123#r@/t++*%&M2s7s,+h@f5/j+*^e.？i*，/6*+e（c3～/：p-）h-＞w%&3@w!@，4/*i#@+m!j65&*（kr+^k++k#l,”則根據(jù)加密算法，解密后的明文為

KeQiao

KeQiao

.
（2）為了尋找密文中隱藏的信息，小明編寫了一段VB解密程序，代碼如下，請?jiān)跈M線處填入合適的代碼。
PrivateSubCommand1_Click（　?。?br />DimiAsInteger,kAsInteger
DimsAsString,cAsString,chAsString
DimletterAsString,retAsString'letter用于存放字母序列
s=Text1.Text
k=1
Fori=1ToLen（s）
c=Mid（s,i,1）
Ifc＞=″A″Andc＜=″Z″Orc＞=″a″Andc＜=″z″Then
letter=letter+c
ElseIfc=″，″Then
①
ch=Chr（Asc（ch）+4）
IfNot（ch＞=“A“Andch＜=“Z“Orch＞=″a″Andch＜=″z″）Then
ch=Chr（Asc（ch）-26）
EndIf
If②Then
ret=ret+ch+″″
Else
ret=ret+ch
EndIf
③
k=k+1
EndIf
Nexti
Text2.Text=ret
EndSub