CCT-VB2021(上)模拟考试(5)

2021-06-01 17:23

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

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

1、启动程序时，系统自动执行启动窗体的____事件过程。

A. Load

B. Unload

C. Click

D. DblClick

参考答案：A

2、下列没有类型说明符的变量是____。

A. 日期型

B. 长整型

C. 字符型

D. 单精度型

参考答案：A

3、下列语句中有函数非法调用的是____。

A. x = Sgn(-1.5)

B. x = Sqr(-1.5)

C. x = Int(-1.5)

D. x = Round(-1.5)

参考答案：B

4、语句Print 5 * 5 \ 5 / 5的输出结果是____。

A. 5

B. 25

C. 0

D. 1

参考答案：B

5、表达式Len("VB6程序设计")的值是____。

A. 7

B. 8

C. 9

D. 11

参考答案：A

6、可以实现从键盘输入一个作为双精度变量a的值的语句是____。

A. a = InputBox()

B. a = InputBox "请输入一个值"

C. a = Val(InputBox("请输入一个值"))

D. a = Val(InputBox())

参考答案：C

7、

骰子是一个正六面体，分别用1～6代表其六个面，掷一次骰子出现的数可表示为____。

A. Int(Rnd * 6 + 1)

B. Int(Rnd * 6)

C. Int(Rnd * 7)

D. Int(Rnd(6) + 1)

参考答案：A

8、当10<x<20时，将x赋值给y，应使用语句____。

A. If 10 < x < 20 Then y = x

B. If 10 < x Or x < 20 Then y = x

C. If 10 < x And x < 20 Then y = x

D. If 10 < x Xor x < 20 Then y = x

参考答案：C

9、若要退出For循环，可使用的语句为____。

A. Exit

B. Exit Do

C. Exit Funtion

D. Exit For

参考答案：D

10、对于窗体Form1，执行了Form1.Top = Form1.Top - 1100语句后，该窗体将____。

A. 上移

B. 下移

C. 左移

D. 右移

参考答案：A

11、若要使文本框中的文本红色显示，则可通过设置其____属性来实现。

A. FillColor

B. FontColor

C. BackColor

D. ForeColor

参考答案：D

12、决定单选按钮和复选框是否可见的属性是____。

A. Text

B. Caption

C. Visible

D. ForeColor

参考答案：C

13、删除列表框List1中的第6项内容，应使用的语句是____。

A. List1.RemoveItem 6

B. List1.RemoveItem 5

C. List1.ClearItem 6

D. List1.Clear 5

参考答案：B

14、下列控件中不能用作其他控件容器的是____。

A. Form

B. Frame

C. Image

D. PictureBox

参考答案：C

15、在程序运行时关闭计时器，可通过赋值语句使它的____属性值为False。

A. Index

B. Tag

C. Enabled

D. Interval

参考答案：C

16、当重新设置驱动器列表框的Drive属性时，会触发

____。

A. Change事件

B. Set事件

C. Driver事件

D. Click事件

参考答案：A

17、重新定义动态数组，应使用____定义关键字。

A. Dim

B. Private

C. Public

D. ReDim

参考答案：D

18、Visual Basic中，数组作为过程参数传递时，只能通过____的方式进行传递。

A. 传值

B. 传址

C. 传值或地址

D. 传形参

参考答案：B

19、VB中文件访问的三种类型是____。

A. 数据库、随机、二进制

B. 顺序、随机、二进制

C. 数据库、表格、文本

D. 顺序、随机文本、表格

参考答案：B

20、以下____不适合作为关系型数据库文件的字段名。

A. 性别

B. 年龄

C. 男

D. 籍贯

参考答案：C

二、程序改错题（10分）

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

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

窗体Form1.frm中程序的功能是：工人甲每天加工3个零件，前5天共加工15个，以后每天比前一天多加工1个零件，计算到第几天时，加工的零件总数达到或超过50个。

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

原题代码如下：

Private Sub Form_Click()

'程序的功能是：工人甲每天加工3个零件，前5天共加工15个，

'以后每天比前一天多加工1个零件，计算到第几天时，加工的零件总数达到或超过50个。

Dim day As Integer, x1 As Integer, sum As Integer

day = 5

x1 = 3

sum = 0 '*ERROR*

Print "天数"; Tab(12); "加工零件总数"

day = day + 1

x1 = x1 + 1

sum = sum + x1

Print day, sum

Loop Until sum < 50 '*ERROR*

Print "到第"; day; "天时，加工超过50个零件。"

End Sub

参考答案：

*ERROR* sum = 15

*ERROR* Loop Until sum >= 50

三、基本操作题（15分）

考核点：侧重界面设计

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

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

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

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

标签Label1，可自动调整大小，标题为“请选择景点”，字体为“宋体四号”，颜色为蓝色（&H00FF0000&）；

列表框List1，内容为“鼓浪屿”、“南普陀”、“集美学村”，字体为“宋体四号”，颜色为蓝色（&H00FF0000&）；

文本框Text1，内容为“厦门大学”，字体为“宋体四号”，颜色为蓝色（&H00FF0000&）；

命令按钮Command1，设置为缺省按钮，标题为“增加”；

命令按钮Command2，标题为“删除”；

命令按钮Command3，标题为“清除”，设置为不可用。

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

四、简单应用题（15分）

考核点：侧重对象事件

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

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

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

2.编写Command1_Click()事件：当Command1的标题为“开车”时，Timer1可用，Command1的标题变为“停车”；当Command1的标题为“停车”时，Timer1不可用，Command1的标题变为“开车”；

3.编写Timer1_Timer()事件：让小汽车自左向右行驶，当小汽车驶出窗体右侧后，小汽车将从窗体左侧驶入；

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

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

注：窗体上已添加的控件包括：图像框Image1；计时器Timer1，Interval值为100ms，Enabled值为False；命令按钮Command1，标题为“开车”。

参考程序如下：

Private Sub Command1_Click()

If Command1.Caption = "停车" Then

Timer1.Enabled = False

Command1.Caption = "开车"

Else

Timer1.Enabled = True

Command1.Caption = "停车"

End If

End Sub

Private Sub Timer1_Timer()

If Image1.Left <= Form1.Width Then

Image1.Left = Image1.Left + 100

Else

Image1.Left = 0

End If

End Sub

五、综合应用题（30分）

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

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

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

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

新用户刷新

会员调试

───────

退出 Ctrl+Q

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

Ctrl+Q：设置为快捷键；

将“刷新”菜单项设置为无效。

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

（1）单击“调试”菜单项，产生一个6×6的矩阵，该矩阵上三角的元素均为1，其余元素均为0，并在窗体Form1上输出相应结果。（要求使用循环结构）

程序运行效果参考下图：

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

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

操作步骤如下：

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

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

3. 在“标题”栏中输入菜单项的标题“登录(&L)”，在“名称”栏中输入菜单项的名称“登录”。

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

新用户刷新

会员调试

───────

退出 Ctrl+Q

5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+Q”；将“刷新”菜单项的“有效”复选框取消选中；分隔条的标题为“-”，名称为“fgt”。

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

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

（1）

Option Base 1

Private Sub 调试_Click()

Dim i%, j%

Dim a(6, 6) As Integer

For i = 1 To 6

For j = 1 To 6

If j >= i Then

a(i, j) = 1

Print a(i, j);

Else

a(i, j) = 0

Print a(i, j);

End If

Next j

Next i

End Sub

（2）

Private Sub 退出_Click()

End

End Sub

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

【关闭窗口】