【机试登录界面】：

【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

侧重程序综合设计与应用

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

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

注意事项：以下程序有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;

考核点：侧重界面设计

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

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”图片。

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

考核点：侧重对象事件

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

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

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

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

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

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

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