在VB中，下列程序段执行后，变量b的值是（  ）
a=4
b=7
a=a+b
b=a+b

A．7

B．11

C．15

D．18

设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
DIM   x  As Integer
x = 10
y=5
Z = f(x)
Print x;Z
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（   ）

A．10   5

B．20   5

C．20   40

D．10 40

function abc( n as integer) as integer
Abc=n*5+10
End function
Private sub form_click()
Dim x as integer
X=abc(2)+100* abc(1)
Print x
End sub

A．2

B．1520

C．1500

D．700

设有数组定义语句：Dim a(5) As Integer，Listl 为列表框控件。下列给数组元素赋值的语句，错误的是（ ）。

A．a(3)=3

B．a(3)=VAL(InputBox(“InputData”）

C．a(3)=Listl.ListIndex

D．a=Array(1,2,3,4,5,6)

语句A%=6.8执行后，变量A%的值是（ ）。

A．6

B．7

C．6.8

D．7.0

在下面列出的四个程序段中，不能正确地将 x和y两个变量中的数据进行交换的是（  ）

A．x=y   y=x	B．x=x+y    y=x-y    x=x-y
C．m=x   x=y   y=m	D．m=y    y=x    x=m

观察下面流程图，n的初值为5，最后s输出的值为（   ）

A．5

B．6

C．7

D．8

某数据加密方法描述如下：
(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”，加密后的密文可能无法解密，原因是