当前所在位置:珠峰网资料 >> 计算机 >> 计算机等级考试 >> 正文
2015年9月计算机等考二级VB模拟题及解析(1)
发布时间:2010/3/17 21:42:49 来源:城市学习网 编辑:jo

一 、选择题

(1) 根据数据结构中各数据元素之间前后件关系的复杂程度,一般将数据结构分成

A) 动态结构和静态结构

B) 紧凑结构和非紧凑结构

C) 线性结构和非线性结构

D) 内部结构和外部结构

正确答案: C

(2) 设一棵二叉树中有3个叶子结点,有8个度为1的结点,则该二叉树中总的结点数为

A) 12

B) 13

C) 14

D) 15

正确答案: B

(3) 在下列几种排序方法中,要求内存量最大的是

A) 插入排序

B) 选择排序

C) 快速排序

D) 归并排序

正确答案: D

(4) 下列叙述中,不属于结构化程序设计方法的主要原则的是

A) 自顶向下

B) 由底向上

C) 模块化

D) 限制使用goto语句

正确答案: B

(5) 下列不属于软件调试技术的是

A) 强行排错法

B) 集成测试法

C) 回溯法

D) 原因排除法

正确答案: B

[NextPage]

(6) 为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为

A) PAD图

B) N-S图

C) 结构图

D) 数据流图

正确答案: B

(7) 软件复杂性度量的参数包括

A) 效率

B) 规模

C) 完整性

D) 容错性

正确答案: B

(8) 下列叙述中,不属于数据库系统的是

A) 数据库

B) 数据库管理系统

C) 数据库管理员

D) 数据库应用系统

正确答案: B

(9) 数据库系统的核心是

A) 数据库

B) 数据库管理系统

C) 数据模型

D) 软件工具

正确答案: B

(10) 视图设计一般有3种设计次序,下列不属于视图设计的是

A) 自顶向下

B) 由外向内

C) 由内向外

D) 自底向上

正确答案: B

[NextPage]

(11) 下列说法错误的是

A) 标准模块的扩展名是.bas

B) 标准模块由程序代码组成

C) 标准模块只用来定义一些通用的过程

D) 标准模块不附属于任何一个窗体

正确答案: C

(12) 如果要将窗体中的某个命令按钮设置成无效状态,应该动命令按钮的何种属性

A) Value

B) Visible

C) Default

D) Enabled

正确答案: D

(13) 在窗体上有多个控件,要实现程序运行后焦点默认在某一控件上,应该设置的属性是

A) 设置Enabled的值为True

B) 设置TabIndex的值为1

C) 设置TabIndex的值为0

D) 设置Index的值为0

正确答案: C

(14) 下列几项中,属于合法的日期型常量的是

A) "10/10/02"

B) 10/10/02

C) {10/10/02}

D) #10/10/02#

正确答案: D

(15) 下列程序段的执行结果为

A=2

B=5

If A * B < 1 Then B=B - 1 Else B=-1

Print B - A > 0

A) True

B) False

C) -1

D) 1

正确答案: B

[NextPage]

 

(16) 以下语句的输出结果是

a=Sqr(26)

Print Format$ (a, "$####.###")

A) $5.099

B) 5.099

C) 5099

D) $0005.099

正确答案: A

(17) 标签控件能够显示文本信息,决定其文本内容的属性是

A) Alignment

B) Caption

C) Visible

D) BorderStyle

正确答案: B

(18) 在属性窗口中,加载指定的图形放入当前对象中的属性是

A) CurrentY

B) Picture

C) CurrentX

D) Caption

正确答案: B

(19) 在使用应用程序时,常常用作在单击时执行指定的操作的控件是

A) 命令按钮

B) 图片框

C) 复选框

D) 单选按钮

正确答案: A

(20) 当直线或形状的BorderStyle属性设置为1时,控件是

A) 虚线

B) 点线

C) 不可见

D) 实线

正确答案: D

[NextPage]

 

(21) 通过设置何属性可以改变所画图形的形状?

A) Shape

B) Index

C) Enabled

D) Height

正确答案: A

(22) 在窗体上画一个命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

s=1

Do

s=(s + 1) * (s + 2)

Number=Number + 1

Loop Until s >=30

Print Number, s

End Sub

程序运行后,输出的结果是

A) 2 3

B) 2 56

C) 5 12

D) 10 20

正确答案: B

(23) 下列程和序段的执行结果为

x=Int(Rnd() + 9)

Select Case x

Case 10

Print "excellent"

Case 9

Print "good"

Case 8

Print "pass"

Case Else

Print "fail"

End Select

A) excellent

B) good

C) pass

D) fail

正确答案: B

[NextPage]

 

(24) 下列程序段的执行结果为

a=75

If a > 60 Then Score=1

If a > 70 Then Score=2

If a > 80 Then Score=3

If a > 90 Then Score=4

Print " Score="; Score

A) Score=1

B) Score=2

C) Score=3

D) Score=4

正确答案: B

(25) 下列程序段的执行结果为

I=1

x=5

Do

I=I + 1

x=x + 2

Loop Until I >=7

Print "I="; I

Print "x="; x

A) I=4

x=5

B) I=7

x=15

C) I=6

x=8

D) I=7

x=17

正确答案: D

[NextPage]

 

(26) 下面的程序的运行结果是

a=1

b=1

Do

a=a^2

b=b + 1

Loop Until b > 5

Print "k="; a; Spc(4) ; "b="; b + a

A) k=7

b=14

B) k=6

b=6

C) k=4

b=8

D) k=1

b=7

正确答案: D

[NextPage]

 

(27) 单击命令按钮,下列程序的执行结果为

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x=32: y=42

Call PCS(x, y)

Print x; y

End Sub

Public Sub PCS(Byval n As Integer, ByVal m As Integer)

n=n Mod 10+1

m=m Mod 10+1

End Sub

A) 32 42

B) 2 32

C) 2 3

D) 12 3

正确答案: A

[NextPage]

 

(28) 下列程序的执行结果为

Private Sub Command1_Click()

Dim s1 As String, s2 As String

s1="abcd"

Call Transfer(s1, s2)

Print s2

End Sub

Private Sub Transfer (ByVal xstr As String, ystr As String)

Dim tempstr As String

i=Len(xstr)

Do While i >=1

tempstr=tempstr + Mid(xstr, i, 1)

i=i - 1

Loop

ystr=te mpstr

End Sub

A) dcba

B) abdc

C) abcd

D) dabc

正确答案: A

[NextPage]

 

(29) 单击命令按钮,下列程序的执行结果是

Private Sub Blck(x As Integer)

x=x * 2 + 1

If x < 6 Then

Call Blck(x)

End If

x=x * 2 + 1

Print x;

End Sub

Private Sub Command1_Click()

Blck 2

End Sub

A) 23 47

B) 10 36

C) 22 44

D) 24 50

正确答案: A

 [NextPage]

 

(30) 有如下程序:

Private Sub Command1_Click()

Dim a As Integer

a=2

For i=1 To 3

Print Gad (A)

Next i

End Sub

Function Gad (a As Integer)

b=0

Static c

b=b + 1

c=c + 1

Gad=a + b + c

End Function

运行上面的程序后,单击命令按钮,输出结果为

A)1

2

3

B) 2

3

4

C) 4

5

6

D) 1

4

6

正确答案: C

[NextPage]

 

(31) 下列过程定义语句中,参数不是对象的定义语句是A) Sub Pro4(x As Form)

B) Sub Pro4(y As Control)

C) Sub Pro4(Form1 As Form,Labell As Control)

D) Sub Pro4(x As Currency)

正确答案: D

(32) 下列说法正确的是

A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器

B) 只有当代码窗口为当前活动窗口时,才能打开菜单编辑器

C) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令,打开菜单编辑器

D) 只有当某个窗体为当前活动窗体时,才能打开菜单编辑器

正确答案: D

(33) 下列各选项说法错误的一项是

A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框

B) DefaultEXT属性和DialogTitle属性都是打开对话框的属性,但非保存对话框的属性

C) 打开文件对话框可以让用户指定一个文件,由程序使用;而用保存文件对话框可以指定一个文件,并以这个文件名保存当前文件

D) 通用对话框的名称属性的默认值为CommonDialogX(X=1,2……) ,此外,每种对话框都有自己的默认标题

正确答案: B

[NextPage]

(34) 下列数组定义语句错误的是

A)k%=10

Dim Arr(k)

B)Const k%=10

Dim Arr(k)

C)Dim Arr1(10) As Integer

Dim Arr2 (10)

D)Dim Arr1(1 To 10)

Dim Arr2(1 To 10, 2 To 11)

正确答案: A

(35) 在Visual Basic中按文件的数据性质不同,可将文件分为

A) 数据文件和程序文件

B) 文本文件和数据文件

C) 顺序文件和随机文件

D) ASCII文件和二进制文件

正确答案: A

[NextPage]

 

二 、填空题

(1) 算法的工作量大小和实现算法所需的存储单元多少分别称为算法的 【1】 。

正确答案: 1.(时间复杂度和空间复杂度)

(2) 数据结构包括数据的逻辑结构、数据的 【2】 以及对数据的操作运算。

正确答案: 1.(存储结构)

(3) 可以把具有相同属性的一些不同对象归类,称为 【3】 。

正确答案: 1.(对象类)

(4) 软件工程包括3个要素,分别为方法、工具和 【4】 。

正确答案: 1.(过程)

(5) 由关系数据库系统支持的完整性约束是指 【5】 和参照完整性。

正确答案: 1.(实体完整性)

(6) 表达式3 ^ 2 Mod 36 \ 2 ^ 5的值是 【6】

正确答案: 1.(0)

[NextPage]

 

(7) 我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题:每只公鸡5元,每只母鸡3元,三只雏鸡1元;如何用100元买100只鸡,即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容,将程序补充完整。

Private Sub Command1_Click()

Dim Cock As Integer

Dim Hen As Integer

Dim Chick As Integer

Form1.Print "公鸡数", "母鸡数", "雏鸡数"

For Cock=0 To 20

For Hen=0 To 33

For Chick=0 To 100

If 【7】 Then

Form1.Print Cock, Hen, Chick

End If

Next Chick

Next Hen

Next Cock

End Sub

正确答案: 1.(Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + )

[NextPage]

 

(8) 每一个窗体或者控件都有一个名字,为提高程序的可读性,可以用前缀的方式来表示对象的类型,如Form的前缀为frm,则Image的前缀为 【8】 ,Picture的前缀为 【9】 。

正确答案: 1.(img) 2.(pic)

(9) 在一个工程中有两个窗体,窗体Form1上有一个命令按钮Disp,单击该按钮,Form1窗体隐藏,显示Form2窗体,程序如下,请补充完整。

Private Sub Disp_Click ()

Me.Hide

Form2. 【10】

End Sub

正确答案: 1.(Show)

(10) 在窗体上有几个对象,运行程序时,当对象得到焦点时,会触发 【11】 事件,当对象失去焦点时将触发 【12】 事件。

正确答案: 1.(GotFocus) 2.(LostFocus)

(11) 下面是用冒泡法将5个整数按升序排列,请将程序补充完整。

Sub GASR()

Dim m

m=Array(10, 1, 5, 6, 7)

For i=0 To 3

For j= 【13】

If m(i) >=m(j) Then

【14】

m(i) =m(j)

m(j) =t

End If

Next j

【15】

For i=0 To 4

Print m(i)

Next i

End Sub

正确答案: 1.(i +1 To 4) 2.(t = m(i)) 3.( Next i)

 

广告合作:400-664-0084 全国热线:400-664-0084
Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号
珠峰网 版权所有 All Rights Reserved