某对分查找算法的VB程序段如下：
Loop
数组元素a（1）到a（10）的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text l中输人待查找的数，执行该程序段，则文本框Text 2中显示的内容可能的是（ ）
Loop
数组元素a（1）到a（10）的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text l中输人待查找的数，执行该程序段，则文本框Text 2中显示的内容可能的是（ ）
| A．9 3 | B．9 3 5 | C．9 17 19 13 | D．9 3 5 8 19 |
有两个以字母结尾的字符串s 1和s 2，在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下：
Else
End If
Loop
.
“相同”
.“不相同”方框中的代码由以下三部分组成：
①
②
③
＜＞" " 
＜＞" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是（ ）
Else
End If
Loop
.“相同”.“不相同”方框中的代码由以下三部分组成：①
②
③
＜＞" " ＜＞" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是（ ）| A．①②③ | B．②①③ | C．②③① | D．③②① |
”功能相同的是（ ）
某数据加密方法描述如下：
(1)以字节为单位进行加密处理；
(2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数；
(3)分别将上述两个4位二进制数转换为十进制数；
(4)将每个十进制数转换为1个加密字符，对应的“密码表”如下：
小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：
程序运行效果如图所示。
实现上述功能的VB程序如下：
（1）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Integer, s As String, i As Integer, ss As String
Dim a As Integer '存储加密前字符的ASCII码
Dim b1 As Integer, b2 As Integer '分别存储分割、转换后的两个十进制数
s = Text1.Text
①
For i =" 1" To n
a =" Asc(Mid(s," i, 1))
b1 =" a" \ 16
b2 =" a" Mod 16
ss =" ss" + Code2Char(b1) + Code2Char(b2)
Text2.Text = ss
Next i
End Sub
'十进制值转换为加密字符的函数
Function Code2Char(c As Integer) As String
Dim s As String
s = "IlikeCHNpostcard"
Code2Char = ②
End Function
（2）若将“密码表”中值为“0”对应的加密字符“I”改成“i”，加密后的密文可能无法解密，原因是
(1)以字节为单位进行加密处理；
(2)将1个字节的8位二进制数分割成前4位与后4位两个二进制数；
(3)分别将上述两个4位二进制数转换为十进制数；
(4)将每个十进制数转换为1个加密字符，对应的“密码表”如下：
| 值(十进制) | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 |
| 加密字符 | I | l | i | k | e | C | H | N | P | 0 | s | t | c | a | r | d |
小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：
程序运行效果如图所示。
实现上述功能的VB程序如下：
（1）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Integer, s As String, i As Integer, ss As String
Dim a As Integer '存储加密前字符的ASCII码
Dim b1 As Integer, b2 As Integer '分别存储分割、转换后的两个十进制数
s = Text1.Text
①
For i =" 1" To n
a =" Asc(Mid(s," i, 1))
b1 =" a" \ 16
b2 =" a" Mod 16
ss =" ss" + Code2Char(b1) + Code2Char(b2)
Text2.Text = ss
Next i
End Sub
'十进制值转换为加密字符的函数
Function Code2Char(c As Integer) As String
Dim s As String
s = "IlikeCHNpostcard"
Code2Char = ②
End Function
（2）若将“密码表”中值为“0”对应的加密字符“I”改成“i”，加密后的密文可能无法解密，原因是