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

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

1、保存新建工程，系统会提示先保存____文件。

A. .frx

B. .bas

C. .frm

D. .vbp

参考答案：C

2、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为____。

A. 0

B. -1

C. True

D. False

参考答案：B

3、表达式Int(18.55*100+0.5)/100的值是____。

A. 19

B. 19.05

C. 18.55

D. 18.5

参考答案：C

4、下列____不是Visual Basic逻辑运算符。

A. Not

B. And

C. ！

D. Or

5、已知a="12345678"，则表达式Mid(a,3,2)+Right(a,2)的值是____。

A. "23478"

B. "3478"

C. 312

D. 112

参考答案：B

参考答案：C

6、InputBox()函数返回值的类型为____。

A. 整型

B. 字符型

C. 变体型

D. 日期型

参考答案：B

7、随机产生区间[1,6]的一个整数的表达式为____。

A. Int(Rnd * 6 + 1)

B. Int(Rnd * 6)

C. Int(Rnd * 7)

D. Int(Rnd(6) + 1)

参考答案：A

8、设a=5，b=6，c=7，d=8，执行x=IIf(a>b And c>d,10,20)语句后，x的值为____。

A. 10

B. 20

C. True

D. False

参考答案：B

9、下列结构中不属于循环结构的是____。

A. For/Next

B. While/Wend

C. Sub/End Sub

D. Do/Loop

参考答案：C

10、将标签L1的标题赋值给窗体Form1的标题可以使用的语句是____。

A. Form1.Caption = L1.Caption

B. Form1.Caption = L1.Text

C. Form1.Name = L1.Text

D. Form1.Name = L1.Caption

参考答案：A

11、若要求在文本框中输入密码时只显示*号，则应____。

A. 设置Text属性值为*

B. 设置Caption属性值为*

C. 设置PasswordChar属性值为*

D. 设置PasswordChar属性值为True

参考答案：C

12、当一个单选按钮未被选中时，它的Value属性值是____。

A. True

B. False

C. 1

D. -1

参考答案：B

13、列表框List1的ListCount值为10，则其最后一项的ListIndex值为____。

A. 10

B. 9

C. 0

D. 1

参考答案：B

14、要清除Picture1中的图片，可用____语句。

A. Picture1.Cls

B. Picturel.Picture = " "

C. Picture1.Picture = LoadPicture("")

D. Picturel.Clear

参考答案：C

15、滚动条不具备的属性是____。

A. Caption

B. Value

C. SmallChange

D. LargeChange

参考答案：A

16、下列4个控件中具有FileName属性的是____。

A. 驱动器列表框

B. 文件列表框

C. 目录列表框

D. 列表框

参考答案：B

17、默认条件下有数组声明语句：Dim A(3, -2 to 2)，则数组A包含____个元素。

A. 12

B. 15

C. 20

D. 24

参考答案：C

18、使用____关键字声明的局部变量在整个程序运行中一直存在。

A. Dim

B. Private

C. Static

D. Public

参考答案：C

19、读取C盘根目录下的数据文件f1.dat，应使用____。

A. Open "c:\f1.dat" For Input As #1

B. Open c:\f1.dat For Output As #1

C. Open "c:\f1.dat" For Output As #1

D. Open c:\f1.dat For Input As #1

参考答案：A

20、下列____不是ADO的主要对象。

A. Connection

B. Command

C. Recordset

D. SQL

参考答案：D

二、程序改错题（10分）

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

考生文件夹

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

窗体Form1.frm中程序的功能是：输出由数字符号组成的等腰三角形。

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

 

原题代码：

Option Base 1

Private Sub Form_Click()

 Dim a(3, 3) As Integer, b(9) As Integer

 Dim i As Integer, j As Integer, n As Integer

 Randomize

 Print "原始数据："

 For i = 1 To 3

   For j = 1 To 3

     a(i, j) = Int(90 * Rnd) + 10

     Print a(i, j);

   Next j

   Print

 Next i

 Print

 Print "按行顺序输出："

 n = 1

 For i = 1 To 3

   For j = 1 To 3

   '将二维数组的元素值按行顺序赋给相应的一维数组元素

     b(n) = a(j, i)     '*ERROR*

     n = i + 1          '*ERROR*

   Next j

 Next i

 For i = 1 To 9

   Print b(i);

 Next i

End Sub

参考答案：

*ERROR*    Cls

*ERROR*    For j = 1 To 2 * i - 1

三、基本操作题（15分）

考核点：侧重界面设计

考生文件夹

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

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

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

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

标签Label1，可自动调整大小，标题为“请选择目的地”；

框架Frame1，标题为“请选择您的出行方式”；

在Frame1中添加单选按钮Option1、Option2、Option3，标题分别为“自行车”、“自驾”、“飞机”，Option2设置为选中；

在Frame1中添加图像框Image1、Image2、Image3，分别加载“BICYCLE.ICO”、“CARS.ICO”、“PLANE.ICO”三个图标；

组合框Combo1，显示内容为“西藏”；

标签Label2，标题为“您选择了自驾去西藏”，WordWrap值为True，字体为“楷体四号”。

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

 

四、简单应用题（15分）

考核点：侧重对象事件

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

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

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

2.编写Option1_Click()事件：设置Text1的文字颜色为红色；编写Option2_Click()事件：设置Text1的文字颜色为蓝色；编写Option3_Click()事件：设置Text1的文字颜色为绿色；

3.编写Check1_Click()事件：设置Text1中的文本为粗体；编写Check2_Click()事件：设置Text1中的文本为斜体；

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

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

 

注：窗体上已添加的控件包括：文本框Text1，用于显示文本；框架Frame1，标题为“颜色”，框架Frame2，标题为“字形”；单选按钮Option1、Option2、Option3，标题分别为“红色”、“蓝色”、“绿色”；复选框Check1、Check2，标题分别为“加粗”、“倾斜”。

参考程序如下：

Private Sub Check1_Click()

Text1.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

Text1.FontItalic = Check2.Value

End Sub

Private Sub Option1_Click()

Text1.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

Text1.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

Text1.ForeColor = vbGreen

End Sub

五、综合应用题（30分）

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

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

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

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

 题型设置(S)          运行

   √单选题             计算

   多选题               绘图

   ──────

  退出  Ctrl+Q

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

Ctrl+Q：设置为快捷键；√ ：复选标记。

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

（1）单击“计算”菜单项，根据公式s=1+(1+2)+(1+2+3)＋．．．+(1+2+3+．．．+n)，计算s的值，n的值由用户输入，并在窗体Form1上输出相应结果。（要求使用循环结构）

程序运行效果参考下图：

 

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

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

操作步骤如下：

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

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

3. 在“标题”栏中输入菜单项的标题“题型设置(&S)”，在“名称”栏中输入菜单项的名称“题型设置”。

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

 题型设置(S)          运行

   √单选题             计算

   多选题               绘图

   ──────

  退出  Ctrl+Q

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

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

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

（1）

Option Explicit

Private Sub 计算_Click()

Dim n As Integer, i As Integer, j As Integer, s As Long

n = Val(InputBox("请输入n值："))

s = 0

For i = 1 To n

For j = 1 To i

s = s + j

Next j

Next i

Print "n=" & n, "s=" & s

End Sub

（2）

Private Sub 退出_Click()

End

End Sub

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