在文本框 TxtIn中输入原文,单击“加密”按钮,对文中所有英文字母进行加密,其它字符不变,在文本框 TxtOut中输出加密结果。
加密规则如下表所示:
原字
A
B
C
…
X
Y
Z
a
b
c
…
x
y
z
密字
z
y
x
…
c
b
a
Z
Y
X
…
C
B
A
注:“A”的ASCⅡ码值是65,“a”的ASCI码值是97。
(1)
若输入的内容是“ Beauty!”(不包括双引号),则输出为。
程序运行界面如图所示
(2)
实现上述功能的VB程序如下,请在划线处填入合适代码。
Private sub Cmd1-
Click()
Dim i As Integer, s As String, c As String, ans As String
①
For i=1 To Len(s)
c= Mid(s, i, 1)
If c<="z “And c >=”a"Or c<=”Z” And c >=”A” Then
c=②
End If
③
Next i
TxtOut. Text =ans
End Sub
(3)
根据上述程序,“加密”按钮名称是 。
答案: 【1】yVZFGB!
【1】s = TxtIn.Text【2】Chr(187 - Asc(c))【3】ans = ans + c 或者 ans = ans& c
【1】Cmd1