CCT-2021（上半年）全国高校(安徽考区)计算机水平考试
【机试登录界面】：
【VB模拟准考证号】：111211 21100 001 ~ 111211 21100 699
（1）考试时间：90分钟
（2）机试环境：Windows 7＋Visual Basic 6.0
（3）VB二级考试题型：
题型 |
题数 |
每题分值 |
总分值 |
题目说明 |
单项选择题 |
20 |
1.5 |
30 |
|
程序改错题 |
1 |
10 |
10 |
侧重程序结构、过程调用等 |
基本操作题 |
1 |
15 |
15 |
侧重界面设计 |
简单应用题 |
1 |
15 |
15 |
侧重对象事件 |
综合应用题 |
1 |
30 |
30 |
侧重程序综合设计与应用 |
2021年上半年VB二级模拟考试 第(1)套
一、单项选择题（20题，每题1.5分，共30分）
1、以下不属于Visual Basic系统的文件类型是____。
A. .frm
B. .bas
C. .app
D. .vbp
参考答案：C
2、以下关键字中，不能定义变量的是____。
A. Exit
B. Dim
C. Private
D. Public
参考答案：A
3、函数Sgn(-2 * 3 - 2 * 3)的值是____。
A. -12
B. 1
C. 0
D. -1
参考答案：D
4、表达式Print 1 = 5 \ 3 的值是____。
A. 0
B. 1
C. True
D. False
参考答案：C
5、下列表达式值为True的是____。
A. "A" > "a"
B. "That" > "Thank"
C. 12 > 12.1
D. "9" < "25"
参考答案：B
6、执行语句a = InputBox("请输入数据","例题")，从键盘输入一个数据后，下列说法正确的是____。
A. 输入对话框的标题是“请输入数据”
B. 输入对话框的默认值是“例题”
C. 变量a的数据类型是数值型
D. 变量a的数据类型是字符型
参考答案：D
7、随机产生区间[1,6]的一个整数的表达式为____。
A. Int(Rnd * 6 + 1)
B. Int(Rnd * 6)
C. Int(Rnd * 7)
D. Int(Rnd(6) + 1)
参考答案：A
8、设x=76，执行语句Max=IIf(x>=60,True,False)后，Max的值是____。
A. -1
B. 1
C. True
D. False
参考答案：C
9、以下循环体的执行次数是____。
For k = 10 To 0 Step -3
Print "你好"
Next k
A. 12
B. 0
C. 4
D. -10
参考答案：C
10、如果要改变窗体的背景颜色，需要设置的属性是____。
A. Caption
B. Name
C. BackColor
D. BorderStyle
参考答案：C
11、文本框没有____属性。
A. Enabled
B. Visible
C. BackColor
D. Caption
参考答案：D
12、复选框或单选按钮的当前状态通过____属性来设置或访问。
A. Value
B. Checked
C. Selected
D. Caption
参考答案：A
13、____可将组合框Combo1中所选项删除。
A. Clear
B. Cls
C. Delete
D. RemoveItem
参考答案：D
14、以下对图像框和图片框的描述中，错误的是____。
A. 两者都支持Print方法
B. 两者都有Picture属性
C. 两者都可以用LoadPicture函数把图形文件装入控件中
D. 两者都能在属性窗口装入图形文件，也都能在程序运行期间装入图形文件
参考答案：A
15、水平滚动条HScroll1的LargeChange属性值表示____。
A. 该滚动条的最小值
B. 该滚动条的最大值
C. 单击滚动条两端箭头时滚动条值的变化量
D. 单击滚动条两端箭头和滑块之间的空白处时滚动条值的变化量
参考答案：D
16、目录列表框的Path属性作用是____。
A. 显示当前驱动器或指定驱动器上的路径
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件名
参考答案：A
17、默认数组下界为0，并有数组声明语句：Dim A(3,-2 to 2, 5)，则数组A包含____个元素。
A. 200
B. 120
C. 75
D. 60
参考答案：B
18、在标准模块中，用于声明全局变量的关键字是____。
A. Public
B. Private
C. Dim
D. Static
参考答案：A
19、执行语句Open "C:\ini.txt" For Input As #1后，可对文件“C:\ini.txt”进行的操作是____。
A. 只能读不能写
B. 只能写不能读
C. 既可以写，也可以读
D. 既不能读，也不能写
参考答案：A
20、VB中数据库的访问技术不包括____。
A. ADO
B. DAO
C. RDO
D. DBMS
参考答案：D
二、程序改错题（10分）
考核点：侧重程序结构、过程调用等
注意事项：以下程序有2处错误，错误均在"'*ERROR*"注释行，请直接在该行修改。不得增加或减少程序行数，也不得删除或修改错误标记'*ERROR*。
窗体Form1.frm中程序的功能是：输出等腰三角形的图案。图案的行数和组成图案的字符从键盘输入。
程序运行效果如下图所示：
原题代码如下：
Private Sub Form_Click()
'程序的功能是：输出等腰三角形的图案。行数和组成图案的字符从键盘输入。
Form1.Cls
Print
Dim n As Integer
Dim c As String
n = Val(InputBox("请输入行数:"))
c = InputBox("请输入组成图案的单个字符：")
c = Left(LTrim(c), 1)
p1(n, c) '*ERROR*
End Sub
Sub p1(n, c)
Dim i As Integer
For i = 1 To n
Print Tab(25 - i);
For j = 1 To 2 * i - 1
Print c, '*ERROR*
Next j
Print
Next i
End Sub
参考答案：
*ERROR* Call p1(n, c)
*ERROR* Print c;
三、基本操作题（15分）
考核点：侧重界面设计
在考生文件夹下\基本操作题\文件夹中，完成以下要求：
1.启动工程文件sjt1.vbp，将工程名称改为“spks”，窗体文件sjt1.frm的窗体名称改为“vbcz”，窗体的标题改为“会员信息”；
2.在窗体上添加以下控件：
标签Label1，标题为“昵称”；
文本框Text1，内容为“妞妞”；
框架Frame1，标题为“性别”；
在Frame1中添加单选按钮Option1、Option2，标题分别为“男”、“女”，其中Option2设置为选中；
标签Label2，标题为“出生年月”；
组合框Combo1，显示内容为“2001”；
标签Label3，可自动调整大小，标题为“年”；
组合框Combo2，显示内容为“10”；
标签Label4，可自动调整大小，标题为“月”；
图像框Image1，Stretch值为“True”，加载“头像.jpg”图片。
程序运行效果如下图所示：
四、简单应用题（15分）
考核点：侧重对象事件
在考生文件夹下\简单应用题\文件夹中，完成以下要求：
1.启动工程文件sjt2.vbp，打开窗体文件sjt2.frm；
2.编写Text1_KeyPress()事件：在文本框Text1中输入内容时，如果按键不是数字键，则用MsgBox()函数弹出消息框，提示内容为“请输入数字”，并清除输入的非数字符号；
3.编写Command1_Click()事件：将Text1中的成绩显示在Label2中，并判断是否优秀：如果成绩>=85，在Label3中显示“成绩优秀”，否则，显示“成绩不优秀”；
4.调试、运行该程序，将工程、窗体保存并生成可执行文件sjt2.exe。
程序运行效果如下图所示：
注：窗体上已添加的控件包括：标签Label1，标题为“输入一个成绩”，标签Label2，用于显示成绩，标签Label3，用于显示成绩是否优秀结论；文本框Text1，用于输入一个成绩；命令按钮Command1，标题为“判断”。
参考程序如下：
Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
Label2.Caption = Text1.Text
If n >= 85 Then
Label3.Caption = "成绩优秀"
Else
Label3.Caption = "成绩不优秀"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
MsgBox ("请输入数字")
KeyAscii = 0
End If
End Sub
五、综合应用题（30分）
考核点：侧重程序综合设计与应用
注意事项：请勿删除考生文件夹中的内容，否则将影响考生成绩。
在考生文件夹下\综合应用题\文件夹中，完成以下要求：
1.启动工程文件yyt.vbp，在窗体Form1上添加菜单，格式与内容如下：
版式 运行(R)
√节 计算
√页眉和页脚
──────
退出
其中，括号内的字符为热键；分隔条的名称为fgt，其它菜单项名称与标题相同，但不含热键；
√ ：复选标记。
2.编写代码实现如下功能：
（1）单击“计算”菜单项，根据公式a=1！+2！+3！+ … +5！，计算a的值，并在窗体Form1上输出相应结果。（要求使用循环结构）
程序运行效果参考下图：
（2）单击“退出”菜单项结束程序运行，其他菜单项不执行任何操作。
3.调试、运行该程序，将工程、窗体保存并生成可执行文件yyt.exe。
操作步骤如下：
1. 启动工程文件yyt.vbp，打开其中的Form1.frm窗体文件。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3. 在“标题”栏中输入菜单项的标题“版式”，在“名称”栏中输入菜单项的名称“版式”。
4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法添加下一级菜单项“节”；使用类似的操作，输入如下所示的菜单：
版式 运行(R)
√节 计算
√页眉和页脚
──────
退出
5. 说明：分别将“节”、“页眉和页脚”两个菜单项中的“复选”复选框选中；分隔条的标题为“-”，名称为“fgt”；“运行”菜单项的标题为“运行(&R)”。
6. 关闭“菜单编辑器”窗口，并在Form1窗体中单击“计算”子菜单项，打开代码窗口。
7. 编写代码如下（参考）：
（1）
Private Sub 计算_Click()
Dim i As Integer, j As Integer
Dim s As long, a As long
a = 0
For i = 1 To 5
s = 1
For j = 1 To i
s = s * j
Next j
a = a + s
Next i
Print "a="; a
End Sub
（2）
Private Sub 退出_Click()
End
End Sub
调试、运行、保存并生成相应的可执行文件。
