如圖所示加密程序：在文本框Text1中輸入明文，單擊命令按鈕“加密”，在文本框Text2中輸出密文。加密算法思路如下：1、只針對(duì)英文字符和數(shù)字進(jìn)行加密，其余字符不變；2、將原文中的小寫字母轉(zhuǎn)換為大寫字母；3、根據(jù)第2步所得結(jié)果，若是英文字符，則逐個(gè)后移4位（例如：A-＞E，Z-＞D），若是數(shù)字，則逐個(gè)前移2位（例如：3-＞1，1-＞9）。
綜上所述：原文為Jim is at room 4！，加密后輸出密文為：NMQ MW EX VSSQ 2！
（1）該程序單擊命令按鈕“加密”事件處理過(guò)程名為

Cmd1_Click

Cmd1_Click

（2）程序代碼如下，請(qǐng)?zhí)羁?br />
Private Sub Cmd1_Click

（　?。?/div>

（　?。?/div>
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*，則程序運(yùn)行后在Text2中輸出的密文為：

RYQ93*

RYQ93*