题型：综合题 题类：常考题 难易度：困难
浙江省杭州地区重点中学2018-2019学年高二下学期信息技术期中考试试卷
综上所述：原文为Jim is at room 4！，加密后输出密文为：NMQ MW EX VSSQ 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 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 =
End If
Next i
Text2.Text = str2
End Sub
试题篮
