VB程序中有两个工程，每个工程中有两个窗体，保存时需要保存（ ）次。

A．3

B．5

C．7

D．6

属性窗口中没有的是（    ）

A．对象下拉列表框

B．标题栏

C．选项卡

D．按钮

保存一个VB程序时需要保存两个文件：（  ）

A．工程文件和 .vbp	B．窗体文件和 .frm文件
C．vbp文件和 .frm文件	D．模块文件和 .bas文件

观察下图，下列说法正确的是（ ）

A．“第一个 VB 小程序”是窗体的 Name 属性值

B．“Label4”是当前选中对象的名称

C．“VB01.vbp”是工程文件名

D．该窗体中共有 3 个对象

在 VB 中，窗体加载的事件处理过程名为（ ）

A．Form_Click	B．Form_DblClick
C．Form_Load	D．Form_Change

“杨辉三角”问题，如图所示，其规律如下：其显著特征是除斜边上的1以外，其余数值均等于其肩部两数之和。编写VB程序，其功能如下：在文本框Text1中输入20以内的整数，点击“打印”按钮，在列表框list1中输出杨辉三角，程序界面如图所示，VB程序代码如下。

实现上述功能的VB程序如下，请回答下列问题：
(1)代码“Private Sub Command1_Click()”中的Command1_Click()属于_________(单选，填字母：

A．对象名/

B．属性名/

C．事件名/

D．事件过程)。

(2)请在划线处填入合适的代码。
(3)若将加框处代码改为“1 To i”，则__________(选填：会/不会)影响程序结果。
Private Sub Command1_Click()
Dim a (20) As Long
Dim I As Integer，j As Integer，s As String
List1.Clear
n＝Val(Text1.Text)
a(1)＝1
List1.AddItem Str(a(1))
For i＝2 To n
s＝""
For j＝i To 1 Step－1
a(j)＝_____
s＝s＋Str(a(j))
Next j
_____
Next i
End Sub

有如下VB程序：
Dim i As Integer，j As Integer，k As String，n As Integer
n＝3
List1.Clear
For i＝1 To n
k＝“”
For j＝1 To i
k＝k＋“*”
Next j
List1.AddItem k
Next i
该程序运行中，在列表框List1中显示的是(  )

A．	B．
C．	D．

下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。
Private Sub Command1_Click( )
Dim i As Integer，P As Integer
p＝0
For i＝100 To 999
If __①__ Then
List1.AddItem Str(i)
②__
End If
Next i
List1.AddItem Str(p)
End Sub
为实现上述功能，请在程序划线处填入合适的语句：
划线①处应填入的语句为：_____________________________________；
划线②处应填入的语句为：_____________________________________。

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

有如下VB程序段：
Dim n As Integer , I As Integer
Dim s As String , ch As String
s=text1.Text
n=Len(s) '(1)
For I = 1 To n '(2)
ch=Mid(s,i,1)
If Asc(ch) >= 65 and Asc(ch) <= 97 Then
ch=Chr(Asc(ch)+32)
End If
Label1.Caption=Label1.Caption+ch
Next i
已知字母“A”的ASCII码65，字母“a”ASCII码97。若在Text1中输入“Happy2018”，则Label1中应显示（）

A．H2018

B．APPY2018

C．HAPPY2018

D．Happy2018