2009年3月全国计算机等级考试二级笔试试卷
Visual Basic语言程序设计
(考试时间90分钟,满分100分)
一、选择题(每小题2分,共70分)
下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
(1)下列叙述中正确的是()。
A)栈是“先进先出”的线性表
B)队列是“先进后出”的线性表
C)循环队列是非线性结构
D)有序线性表既可以采用顺序存储结构,也可以采用链式存储结构
(2)支持子程序调用的数据结构是()。
A)栈B)树
C)队列D)二叉树
(3)某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是()。
A)10 B)8
C)6 D)4
(4)下列排序方法中,最坏情况下比较次数最少的是()。
A)冒泡排序B)简单选择排序
C)直接插入排序D)堆排序
(5)软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是()。
A)编译程序B)操作系统
C)教务管理系统D)汇编程序
(6)下面叙述中错误的是()。
A)软件测试的目的是发现错误并改正错误
B)对被调试的程序进行“错误定位”是程序调试的必要步骤
C)程序调试通常也称为Debug
D)软件测试应严格执行测试计划,排除测试的随意性
(7)耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是()。
A)提高耦合性降低内聚性有利于提高模块的独立性
B)降低耦合性提高内聚性有利于提高模块的独立性
C)耦合性是指一个模块内部各个元素间彼此结合的紧密程度
D)内聚性是指模块间互相连接的紧密程度
(8)数据库应用系统中的核心问题是()。
A)数据库设计B)数据库系统设计
C)数据库维护D)数据库管理员培训
(9)有两个关系R,S如下:
R S
A B C    A B
a 3 2    a 3
b 0 1    b 0
c 2 1    c 2
由关系R通过运算得到关系S,则所使用的运算为()。
A)选择B)投影
C)插入D)连接
(10)将E-R图转换为关系模式时,实体和联系都可以表示为()。
A)属性B)键
C)关系D)域
(11)执行语句Dim X, Y As Integer后,()。
A)X和Y均被定义为整型变量
B)X和Y均被定义为变体类型变量
C)X被定义为整型变量,Y被定义为变体类型变量
D)X被定义为变体类型变量,Y被定义为整型变量
(12)以下关系表达式中,其值为True的是()。
A)"XYZ">"XYz" B)"VisualBasic" <> "visualbasic"
C)"the" = "there" D)"Integer" < "Int"
(13)执行以下程序段
a$ = "Visual Basic Programming"
b$ = "C++"
c$ = UCase(Left$(a$,7)) & b$ & Right$(a$,12)
后,变量c$的值为()。
A)Visual BASIC Programming B)VISUAL C++ Programming
C)Visual C++ Programming D)VISUAL BASIC Programming
(14)下列叙述中正确的是()。
A)MsgBox语句的返回值是一个整数
B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作
C)MsgBox语句的第一个参数不能省略
D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空
(15)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是()。
A)Private Sub Text1_Change()
Label1.Caption = Str(Len(Text1.Text))
End Sub
B)Private Sub Textl_Click()
Label1.Caption = str(Len(Text1.Text))
End Sub
C)Private Sub Textl_Change()
Label1.Caption = Text1.Text
End Sub
D)Private Sub Label1_Change()
Label1.Caption = Str(Len(Text1.Text))
End Sub
(16)在窗体上画两个单选按钮(名称分别为Optionl、Option2,标题分别为“宋体”和“黑体”)、1个复选框(名称为Checkl,标题为“粗体”)和1个文本框(名称为Textl,Text属性为“改变文字字体”),窗体外观如图所示。程序运行后,要求“宋体”单选按钮和“粗体”复选框被选中,则以下能够实现上述操作的语句序列是()。
A)Optionl.Value = False
Checkl.Value = True
B)Optionl.Value = True
Checkl.Value = 0
C)Option2.Value = False
筛子怎么玩
Checkl.Value = 2
D)Optionl.Value = True
Checkl.Value = 1
(17)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c=1234
c1=Trim(Str(c))
For i=1 To 4
Print __________
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
1
12
123
1234
则在横线处应填入的内容为()。
A)Right(c1,i) B)Left(c1,i)
C)Mid(c1,i,1) D)Mid(c1,i,i)
(18)假定有以下程序段
For i=1 To 3
二级VBFor j=5 To 1 Step -1
Print i*j
Next j
Next i
则语句Print i * j的执行次数是()。
A)15 B)16
C)17 D)18
(19)在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2) * (x+3)
n=n+1
Loop
Textl.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。
A)1和0 B)2和72
C)3和50 D)4和168
(20)阅读程序:
Private Sub Form_Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,单击窗体,输出结果是()。
A)105 B)1
C)120 D)15
(21)以下说法中正确的是()。
A)当焦点在某个控件上时,按下一个字母键,就会执行该控件的KeyPress事件过程
最好的我们演员表B)因为窗体不接受焦点,所以窗体不存在自己的KeyPress事件过程
C)若按下的键相同,KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同
D)在KeyPress事件过程中,KeyAscii参数可以省略
(22)语句Dim a(-3 To 4,3 To 6)As Integer定义的数组的元素个数是()。
A)18 B)28
C)21 D)32
(23)在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
程序运行后,单击命令按钮,其输出结果是()。
A)4321 B)1234
C)34 D)12
(24)假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是()。
A)数组中每个命令按钮的名称(Name属性)均为Command1
转相思B)若未做修改,数组中每个命令按钮的大小都一样
C)数组中各个命令按钮使用同一个Click事件过程
D)数组中每个命令按钮的Index属性值都相同
(25)在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
诗意的个性签名
Option Base 0
Private Sub Command1_Click()
Dim A1 (4) As Integer, A2 (4) As Integer
For k=0 To 2
A1 (k+1) = InputBox("请输入一个整数")
A2 (3-k) = A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为()。
A)0 B)1
C)2 D)3
(26)以下关于函数过程的叙述中,正确的是()。
A)函数过程形参的类型与函数返回值的类型没有关系
B)在函数过程中,过程的返回值可以有多个
C)当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递
D)如果不指明函数过程参数的类型,则该参数没有数据类型
(27)在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:
Private Sub func(L As Label)
L.Caption="1234"
End Sub
Private Sub Form_Load()
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub
Private Sub Command1_Click()
a=Val(Label2.Caption)
Call func(Label1)
Label2.Caption=a
End Sub
程序运行后,单击命令按钮,则在两个标签中显示的内容分别为
A)ABCD和10 B)1234和100
C)ABCD和100 D)1234和10
(28)在窗体上画一个命令按钮(名称为Command1),并编写如下代码:
Function Funl (ByVal a As Integer, b As Integer) As Integer
Dim t As Integer
范冰冰和佟大为是真的干了吗
t=a-b
b=t+a
Funl=t+b
End Function
Private Sub Command1_Click()
Dim x As Integer
x=10
Print Funl (Funl (x, (Funl (x, x-1))), x-1)
End Sub
程序运行后,单击命令按钮,输出结果是()。
A)10 B)0
C)11 D)21
(29)以下关于过程及过程参数的描述中,错误的是()。
A)过程的参数可以是控件名称
B)调用过程时使用的实参的个数应与过程形参的个数相同
C)只有函数过程能够将过程中处理的信息返回到调用程序中
D)窗体可以作为过程的参数
(30)设有如下通用过程:
Public Function Fun (xStr As String) As String
Dim tStr As String, strL As Integer
tStr=""
strL=Len (xStr)
i=strL/2
Do While i<=StrL
tStr=tStr & Mid (xStr,i+1,1)
i=i+1
Loop
Fun=tStr & tStr
End Function
在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Textl.Text=LCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是()。
A)ABCDEF B)abcdef
C)defdef D)defabc
(31)在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Textl),并把窗体的KeyPreview 属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load()
Show
Textl.Text=""
Textl.SetFocus
End Sub
Private Sub Command1_Click()
Textl.Text=LCase (SaveAll) +SaveAl1