1.
某ASCII字符加密方法算法如下：
⑴计算出该ASCII字符的8位二进制数值
⑵将该数值分割为前4位与后4位两个二进制数
⑶分别将上述两个4位二进制数转换为十进制数
⑷将每个十进制数转换为1个加密字符，对应的“密码表”如下
|
值（十进制） |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
|
加密字符 |
I |
1 |
i |
k |
e |
C |
H |
N |
p |
o |
s |
t |
c |
a |
r |
d |
根据以上加密算法来推断解密算法，下表显示了字符串中两个字符的解密过程：
小明设计了一个解密程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中输出解密结果。程序运行时界面如下图所示。
实现上述功能的VB程序如下，请回答下列问题：
(1)
请在划线处填入合适的代码。
(2)
若已知字符“a”的ASCI1码值为97（十进制），加密字符HN对应的英文字母是。
Private Sub Command1_Click()
Dim z As String, a As String, b As String
Dim i As Integer, y As Integer
z = Text1.Text
Text2.Text =" "
For i= 1 To ①
a=Mid(z, i, 1)
b= Mid(z, i+1, 1)
②
Text2.Text = Text2.Text + Chr(y)
Next i
End Sub
Function zn(x As String)As Integer '得出加密字符对应密码表中的十进制数
Dim m As String, i As Integer
m ="IlikeCHNpostcard"
For i =0 To 15
If ③ Then
zn=i
Exit For
End If
Next i
End Function
① ② ③
【考点】
算法的控制结构;
过程与自定义函数;
能力提升
