某种字符加密方法描述如下：
①将明文字符串s中的每个字母字符根据它所在的位置往后移动相应的位置，并转化为对应的小写字母（例如：大写字母A往后移动5位变成F，转化成小写字母得到f；小写字母y往后移动8位得到g,转化成大写字母得到G），非字母字符不处理，得到新串ss。
②将①得到的新串ss从中切割成两部分，再将后面一段字母依次逐个插入前一段字符后边，组成一段密文。
例如“Good.Luck!”生成密文过程如下：
①明文字符串s移位和大小写转换过程：

下标位置	1	2	3	4	5	6	7	8	9	10
原始字符	G	o	o	d	.	L	u	c	k	！
向后移动i位	H	q	r	h	.	R	b	k	t	！
大小写转换	h	Q	R	H	.	r	B	K	T	！

②将①得到的密文ss切割成两部分：假定n为明文字符串的长度，则有：
n为偶数：[1 n\2]、[n\2+1 n]；
n为奇数：[1 n\2、n\2+1]、[n\2+2 n]。
例如将上述①得到的字符串中6～10位置的字符依次逐个连接在1～5字符后面，生成密文如图a所示：

（1）已知采用上述加密方法得到的密文是“iTCDS!”，则明文为

Happy!

Happy!

。
（2）根据上述加密算法，小高设计了一个字符串加密程序，运行界面如图b所示，请在横线处填入合适的代码。

Private Sub Command1_Click （　　）
Dim s As String,ss As String,mw As String,C As String
Dim n As Integer,i As Integer,j As Integer
s=Text1.Text：n=Len（s）
For i=1 To n
C=Mid（s,i,1）
If iszm（c）Then
ss=

ss+movec（c,i）

ss+movec（c,i）

'①
Else
ss=ss+C
End If
Next i
i=1：j=n\2+1
If n Mod 2=1 Then j=j+1
Do While i＜=n\2
mw=

mw+Mid（ss,i,1）+Mid（ss,j,1）

mw+Mid（ss,i,1）+Mid（ss,j,1）

'②
i=i+1：j=j+1
Loop
If n Mod 2=1 Then mw=

mw+Mid（ss,i,1）

mw+Mid（ss,i,1）

'③
Text2.Text=mw
End Sub
Function iszm（c As String）As Boolean
iszm=False
If c＞=“a“And c＜=“z“Or c＞=“A“And c＜=“Z“Then iszm=True
End Function
Function movec（x As String,w As Integer）As
String
If x＞=“a“And c＜=“z“Then
movec=Chr（（Asc（x）-97+w）Mod 26+65）
Else
movec=

Chr（（Asc（x）-65+w）Mod26+97）

Chr（（Asc（x）-65+w）Mod26+97）

'④
End If
End Function