如图所示加密程序：在文本框Text1中输入明文，单击命令按钮“加密”，在文本框Text2中输出密文。加密算法思路如下：1、只针对英文字符和数字进行加密，其余字符不变；2、将原文中的小写字母转换为大写字母；3、根据第2步所得结果，若是英文字符，则逐个后移4位（例如：A-＞E，Z-＞D），若是数字，则逐个前移2位（例如：3-＞1，1-＞9）。
综上所述：原文为Jim is at room 4！，加密后输出密文为：NMQ MW EX VSSQ 2！
（1）该程序单击命令按钮“加密”事件处理过程名为

Cmd1_Click

Cmd1_Click

（2）程序代码如下，请填空

Private Sub Cmd1_Click

（　　）

（　　）

Dim str1 As String,str2 As String,ch As String
Dim i As Integer,j As Integer,n As Integer
str1=Text1．Text
str2=““
n=Len（Text1．Text）
For i=1 To n
ch=Mid（str1，i,1）
If

ch＞=“a“Andch＜=“z“

ch＞=“a“Andch＜=“z“

Then
ch=Chr（（Asc（ch）-32））
End If
If ch＞=“A“And ch＜=“Z“Then
ch=Chr（（Asc（ch）-Asc（“A“）+4）Mod 26+Asc（“A“））
ElseIf ch＞=“0“And ch＜=“9“Then
ch=

（Val（ch）+8）Mod10

（Val（ch）+8）Mod10

End If

str2=str2+ch

str2=str2+ch

Next i
Text2．Text=str2
End Sub
（3）若在Text1中输入的明文为：Num  15*，则程序运行后在Text2中输出的密文为：

RYQ93*

RYQ93*