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二级模拟考试第(6)套

一、单项选择题（20题，每题1.5分，共30分）

1、在Visual Basic集成环境中，要结束一个正在运行的工程，可单击工具栏上的____按钮。

A．    B．    C．      D．  

参考答案：D

2、语句Dim y%声明的变量类型是____。

A. 字符串类型

B. 单精度类型

C. 整型

D. 双精度类型

参考答案：C

3、下列表达式的值为1234的是____。

A. Val("234qaz") & 1000

B. Val("234qaz") + 1000

C. Str(234) & 1000

D. Str(234) + "1000"

参考答案：B

4、表达式2 + 36 * 4 / 6 Mod 5的值是____。

A. 5

B. 6

C. 7

D. 8

参考答案：B

5、执行赋值语句s = 123 + Mid("12345678", 3, 2)后，变量s中的值是____。

A. "12334"

B. "157"

C. 12334

D. 157

参考答案：D

6、在窗体上有一个命令按钮，然后编写如下事件过程：

Private Sub Cmdl_Click()

a = InputBox("输入第一个整数")

b = InputBox("输入第二个整数")

Print b + a

End Sub

程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为____。

A. 2

B. 62

C. 8

D. 26

参考答案：B

7、函数Int(Rnd*10+10)产生的随机整数在____范围内。

A. [0,10]

B. [10,20]

C. [0,20]

D. [10,19]

参考答案：D

8、设x=-3，执行以下语句后，x的值是____。

If x Then

x = 1

Else

x = 0

End If

A. 实时错误

B. 编译错误

C. 1

D. 0

参考答案：C

9、以下代码段：

For i = a To b Step -1

Print i

Next i

如果整型变量a、b的值分别为10和5，循环体的执行次数是____。

A. 4

B. 5

C. 6

D. 7

参考答案：C

10、如果要改变窗体的标题，则需要设置的属性是____。

A. Caption

B. Name

C. BackColor

D. BorderStyle

参考答案：A

11、若要将某命令按钮设置为默认命令按钮，则可设置____属性为True来实现。

A. Value

B. Cancel

C. Default

D. Enable

参考答案：C

12、以下控件中，没有Caption属性的是____。

A. 复选框

B. 单选按钮

C. 组合框

D. 框架

参考答案：C

13、____可将数据项"北京"添加为列表框List1中的第一项。

A. List1.AddItem 0,"北京"

B. List1.AddItem "北京",0

C. List1.AddItem "北京",1

D. List1.AddItem 1,"北京"

参考答案：B

14、将“D:\pic.gif”文件装入图片框Picture1，应执行____语句。

A. Picture1 = "D:\pic.gif"

B. Picture = LoadPicture("D:\pic.gif")

C. Picture1.Picture = LoadPicture("D:\pic.gif")

D. Picture1 = LoadPicture()

参考答案：C

15、计时器只有一个____事件。

A. Click

B. Interval

C. Timer

D. Time

参考答案：C

16、下列____属性可返回目录列表框的路径。

A. Drive

B. Initdir

C. Path

D. PathRoad

参考答案：C

17、默认数组下界为0，并有数组声明语句：Dim a(3,-1 To 16)，数组a包含元素的个数为____。

A. 36

B. 72

C. 54

D. 18

参考答案：B

18、在过程定义中用____表示参数的传递方式为按值传递方式。

A. Var

B. ByRef

C. ByVal

D. ByValue

参考答案：C

19、能判断文件指针是否到达文件尾的函数是____。

A. BOF()

B. LOC()

C. EOF()

D. LOF()

参考答案：C

20、在数据库中，唯一标识不同记录的字段称为____。

A. 表

B. 关系

C. 记录

D. 关键字

参考答案：D

二、程序改错题（10分）

考核点：侧重程序结构、过程调用等

注意事项：以下程序有2处错误，错误均在"'*ERROR*"注释行，请直接在该行修改。不得增加或减少程序行数，也不得删除或修改错误标记'*ERROR*。

窗体Form1.frm中程序的功能是：调用自定义函数，计算两个正整数的阶乘及阶乘之和。

程序运行效果如下图所示：

 

原题代码如下：

Private Sub Form_Click()

'程序的功能是：调用自定义函数，计算两个正整数的阶乘及阶乘之和。

Print "4 的阶乘是：" & fun(4)

Print "5 的阶乘是: " & fun(5)

Print "两数阶乘的和是：" & fun(4) + fun(5)

End Sub

Function fun()             '*ERROR*

Dim s1 As Long

Dim i As Integer

s1 = 1

For i = 1 To n

s1 = s1 * i

Next i

s1 = fun                '*ERROR*

End Function

参考答案：

*ERROR*   Function fun(n)

*ERROR*   fun = s1

三、基本操作题（15分）

考核点：侧重界面设计

注意事项：请勿删除考生文件夹中的内容，否则将影响考生成绩。

在考生文件夹下\基本操作题\文件夹中，完成以下要求：

1.启动工程文件sjt1.vbp，将工程名称改为“spks”，窗体文件sjt1.frm的窗体名称改为“vbcz”，窗体的标题改为“画图”；

2.在窗体上添加以下控件：

框架Frame1，标题为“选择图形”；

在Frame1中添加单选按钮Option1、Option2、Option3，标题分别为“圆形”、“矩形”、“正方形”，Option3设置为选中；

框架Frame2，标题为“颜色”；

在Frame2中添加单选按钮Option4、Option5，标题分别为“红色”、“蓝色”，Option5设置为选中；

图片框Picture1；

在Picture1中添加形状Shape1，设置为“正方形”，填充样式为“0-Solid”，填充颜色为蓝色（&H00FF0000&）；

命令按钮Command1，标题为“确定”。

程序运行效果如下图所示：

 

四、简单应用题（15分）

考核点：侧重对象事件

注意事项：请勿删除考生文件夹中的内容，否则将影响考生成绩。

在考生文件夹下\简单应用题\文件夹中，完成以下要求：

1.启动工程文件sjt2.vbp，打开窗体文件sjt2.frm；

2.编写Form_Load()事件：设置Text1中文本为“打印”；

3.编写Command1_Click()事件：当选中Option1，Text1中的文本为“开始打印”，当选中Option2，Text1中的文本为“开始扫描”；

4.调试、运行该程序，将工程、窗体保存并生成可执行文件sjt2.exe。

程序运行效果如下图所示：

 

注：窗体上已添加的控件包括：框架Frame1，标题为“选择方式”；单选按钮Option1，标题为“打印”，单选按钮Option2，标题为“扫描”；图像框Image1、Image2；标签Label1，标题为“当前业务”；命令按钮Command1，标题为“确定”。

参考程序如下：

Private Sub Command1_Click()

If Option1.Value = True Then

Text1.Text = "开始打印"

Else

Text1.Text = "开始扫描"

End If

End Sub

Private Sub Form_Load()

Text1.Text = "打印"

End Sub

五、综合应用题（30分）

考核点：侧重程序综合设计与应用

注意事项：请勿删除考生文件夹中的内容，否则将影响考生成绩。

在考生文件夹下\综合应用题\文件夹中，完成以下要求：

1.启动工程文件yyt.vbp，在窗体Form1上添加菜单，格式与内容如下：

 文件              运行(R)

   打开                计算

   保存                结束

   ────

   关闭  F5

其中，括号内的字符为热键；分隔条的名称为fgt，其他菜单项的名称与标题相同，但不含热键；

F5：设置为快捷键；

将“结束”菜单项设置为运行时不可见。

2.编写代码实现如下功能：

（1）单击“计算”菜单项，根据公式

  ，计算s的值，直到第n项的绝对值小于   ，并在窗体Form1上输出相应结果。

程序运行效果参考下图：

 

（2）单击“关闭”菜单项结束程序运行，其他菜单项不执行任何操作。

3.调试、运行该程序，将工程、窗体保存并生成可执行文件yyt.exe。

操作步骤如下：

1. 启动工程文件yyt.vbp，打开其中的Form1.frm窗体文件。

2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。

3. 在“标题”栏中输入菜单项的标题“文件”，在“名称”栏中输入菜单项的名称“文件”。

4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法添加下一级菜单项“打开”；使用类似的操作，输入如下所示的菜单：

 文件              运行(R)

   打开                计算

   保存                结束

   ────

   关闭  F5

5. 说明：在“关闭”菜单项的“快捷键”下拉列表框中选择“F5”；将“结束”菜单项的“可见”复选框取消选中；分隔条的标题为“-”，名称为“fgt”；“运行”菜单项的标题为“运行(&R)”。

6. 关闭“菜单编辑器”窗口，并在Form1窗体中单击“计算”子菜单项，打开代码窗口。

7. 编写代码如下（参考）：

（1）

Private Sub 计算_Click()

Dim k As Integer, s As Single

k = 1

s = 0

Do While k < 1000

s = s + (-1) ^ (k + 1) / k

k = k + 1

Loop

Print s

End Sub

（2）

Private Sub 关闭_Click()

End

End Sub

调试、运行、保存并生成相应的可执行文件。