学进去

如图所示加密程序：在文本框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）程序代码如下，请填空。
①处代码______________；②处代码______________。
Private Sub Command1_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" And ch <="z" Then

  ①  

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=Chr((  ②  ) Mod 10+Asc("0"))

End If

str2 =str2 + ch

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