2013年9月全国计算机等级《二级VB》上机模考试卷(4)-在线考试系统

1、【单选题】
下列关于复选框的说法，正确的是（　　）。 [1分]

、复选框的Enabled属性用于决定该复选框是否可见

、复选框的Value属性用于决定该复选框是否被选中

、复选框的Tabindex属性用于决定该复选框在控件数组中的序号

、复选框的Visible属性用于决定该复选框是否可用

答案：

2、【单选题】
以F叙述中错误的是（　　）。 [1分]

、一个工程中只能有一个Sub Main过程

、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

、窗体的Hide方法和Unload方法的作用完全相同

、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

答案：

3、【单选题】
以下说法中正确的是（　　）。 [1分]

、 MouseUp事件是鼠标向上移动时触发的事件

、 MouseUp事件过程中的X，Y参数用于修改鼠标位置

、在MouseUp事件过程中可以判断用户是否使用了组合键

、在MouseUp事件过程中不能判断鼠标的位置

答案：

4、【单选题】
设有如下程序：
Private Sub Form Click（　　）
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(i)=i+l
sum=sum+ary(i)
Next i
Print sum
End Sub
程序运行后，单击窗体，则在窗体上显示的是（　　）。 [1分]

、 15

、 16

、 20

、 25

答案：

5、【单选题】
算法的空间复杂度是指（　　）。 [1分]

、算法在执行过程中所需要的计算机存储空间

、算法所处理的数据量

、算法程序中的语句或指令条数

、算法在执行过程中所需要的临时工作单元数

答案：

6、【单选题】
在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮，运行后的窗体外观如图所示：
　

　
设有如下的类型和变量声明：
Private Type Person
name As STRING*8
major As String*20
End Type
Dim P As Person
设文本框中的数据已正确地赋值给Person类型的变量P，当点击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2．dat中的程序段是（　　）。 [1分]

、 Open"C：＼Test2．dat"For Output As#1
Put#1，1，p
Close#1

、 0pen"c：＼Test2．dat"For Random As#1
Get#1，1，P
Close#1

、 Open”C：＼Test2．dat”For Random As#1 Len—Len(p)
Put#1，1，P
Close#1

、 Open"C：＼Test2．dat"For Random As#1 Len=Len(p)
Get#1，1，P
Close#1

答案：

7、【单选题】
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序：
Private Sub rune(L AS Labe1)
Caption="1234"
End Sub
Private Sub Form Load（　）
Labe11．Caption="ABCDE"
Labe12．Caption=10
End Sub
Private Sub Command1Click（　）
a=Va1(Label2．Caption)
Call func(Label1)
Label2．Caption a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（　）。 [1分]

、 ABCD和10

、 1234和100

、 ABCD和100

、 1234和10

答案：

8、【单选题】
下面不能在信息框中输出“VB”的是（　　）。 [1分]

、 MsgBox"VB"

、 MsgBox("VB")

、 Call MsgBox"VB"

答案：

9、【单选题】
下列有关文件叙述中，正确的是（　　）。 [1分]

、以0utput方式打开一个不存在的文件时，系统将显示出错信息

、以APPend方式打开的文件，即可以进行读操作，也可以进行写操作

、在随机文件中，每个记录的长度是固定的

、无论是顺序文件还是随机文件，其打开的语句和打开方式都是完全相同的

答案：

10、【单选题】
下列排序方法中，最坏情况下比较次数最少的是（　）。 [1分]

、冒泡排序

、简单选择排序

、直接插入排序

、堆排序

答案：

11、【单选题】
执行如下两条语句后，窗体上显示的是（　　）。
a=9．8596
Print Format(a，"$00，00．00") [1分]

、 0，009．86

、 $9．86

、 9．86

、 $0，009．86

答案：

12、【单选题】
数据库管理系统中负责数据模式定义的语言是（　　）。 [1分]

、数据定义语言

、数据管理语言

、数据操纵语言

、数据控制语言

答案：

13、【单选题】
下列叙述中错误的是（　　）。 [1分]

、列表框和组合框都有List属性

、列表框有Selected属性，而组合框没有

、列表框和组合框都有Style属性

、组合框有Text属性，而列表框没有

答案：

14、【单选题】
设有如下程序：
Private Sub Form Click（　　）
Cls
a$="1234j6"
For i=1 To 6
Print Tab(12-i)；________
Next i
End Sub
　

　
程序运行后，单击窗体，要求结果如图所示，则在______处填入的内容为（　　）。 [1分]

、 Left(a$，i)

、 Mid(a$，8-i，i)

、 Right(a$，i)

、 Mid(a$，7，i)

答案：

15、【单选题】
有如下程序：
Private Type stu
X As String
Y As Integer
End Type
Private Sub Command1 Click（　　）
Dim a As stu
X="ABCD"
Y=12345
Print a
End Sub
程序运行时出现错误，错误的原因是（　　）。 [1分]

、 Type定义语句没有放在标准模块中

、变量声明语句有错

、赋值语句不对

、输出语句Print不对

答案：

16、【单选题】
设t=2，b=3，c=4，d=5，则下面语句输出的是（　　）。
Print3>2*b Or a=c And b<>c Or c>d [1分]

、 False

、 1

、 True

、 -1

答案：

17、【单选题】
软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于（　　）。 [1分]

、定义阶段

、开发阶段

、维护阶段

、上述三个阶段

答案：

18、【单选题】
算法的时间复杂度是指（　　）。 [1分]

、算法的执行时间

、算法所处理的数据量

、算法程序中的语句或指令条数

、算法在执行过程中所需要的基本运算次数

答案：

19、【单选题】
结构化程序设计的3种基本结构是（　　）。 [1分]

、过程、子程序和分程序

、顺序、选择和重复

、递归、堆栈和队列

、调用、返回和转移

答案：

20、【单选题】
若在窗体模块的声明部分声明了如下自定义类型和数组：
Private Type rec
Code As Integer
Caption As St ring
End Type
Dim art(5)As rec
则下面的输出语句中正确的是（　　）。 [1分]

、 Print arr．Code(2)，art．Caption(2)

、 Print art．Code，arr．Caption

、 Print arr(2)．Code，arr(2)．Caption

、 Print Code(2)，Caption(2)

答案：

21、【单选题】
默认情况下，下面声明的数组的元素个数是（　　）。
Dim(5，-2 To 2) [1分]

、 20

、 24

、 25

、 30

答案：

22、【单选题】
下列描述不正确的是( ．)。 [1分]

、某个子过程中声明的局部变量，其使用范围仅限定于该子过程内

、某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行过程中

、不同子过程中的局部变量可以具有相同的名称

、不同子过程中具有相同的名称的局部变量是同一变量

答案：

23、【单选题】
请阅读程序：
Sub subP(b（　　）As Integer)
For i=1 To4
b(i)=2*i
Next i
End Sub
Private Sub Commandl Click（　　）
Dim a(1 To 4)As Integer
a(1)=5:a(2)=6:a(3)=7:a(4)=8
subP a（　　）
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，则输出结果是（　　）。 [1分]

、 2
4
6
8

、 5
6
7
8

、 10
12
14
16

、出错

答案：

24、【单选题】
设窗体上有一个名为List1的列表框，并编写下面的事件过程：
Private Sub List1_Click（　　）
Dim ch As String
ch=List1．List(List1．Listlndex)
List1．RemoveItem List1．Listlndex
List1．Addltem ch
End Sub
程序运行时，单击一个列表项，则产生的结果是（　　）。 [1分]

、该列表项被移到列表的最前面

、该列表项被删除

、该列表项被移到列表的最后面

、该列表项被删除后又在原位置插入

答案：

25、【单选题】
在窗体上画1个命令按钮，并编写如下事件过程：
private Sub Command1_Click（　　）
For i=5 To 1 Step-0．8
Print Int(i)；
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为（　　）。 [1分]

、 5 4 3 2 1 1

、 5 4 3 2 1

、 4 3 2 1 1

、 4 4 3 2 1 1

答案：

26、【单选题】
数据库应用系统中的核心问题是（　）。 [1分]

、数据库设计

、数据库系统设计

、数据库维护

、数据库管理员培训

答案：

27、【单选题】
下列（　　）标识符不能作为Visual Basic的变量名。 [1分]

、 ABCabe

、 bl234

、 28wed

、 crud

答案：

28、【单选题】
窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能：
Private Sub Command l Click（　　）
Dim n％，k％
n=Len(Text1．Text)
For k=0 To List1．ListCount-1
If Left(List1．List(k)，n)=Text1．Text Then
List 1．Removeltem k
End If
Next k
End Sub
在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1．ListCount-1改为（　　）。
　

　 [1分]

、 For k=List1．ListCount-1 To 0 Step-1

、 For k=0 To List1．ListCount

、 For k=1 To List1．ListCount-1

、 For k=1 To List1．ListCount

答案：

29、【单选题】
阅读下面的程序段：
a==0
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+l
Next k
Next j
Next i
执行上面的程序段后，a的值为（　　）。 [1分]

、 3

、 9

、 14

、 21

答案：

30、【单选题】
单击命令按钮时，下列程序段的执行结果是（　　）。
Private Sub Command1 Click（　　）
Dim a As Integer，b As Integer，C As Integer
a=2：b=4：c=6
Call S1(a．b)
Print"a="；a；"b="；b；"c="；c
Call S2(a，b)
Print"a="；a；"b="；b；"c="；c；
End Sub
Private Sub S1(X．As Integer，Y As Integer)
Dim C As Integer
x=2*X：y=y+2：c=x+y
End Sub
Sub S2(x As Integer，ByVal Y As Integer)
Dim e As Integer
x=2*x：Y=Y+2：e=x+y
End Sub [1分]

、 a=4 b=6 c=6
a=4 b=6 c=6

、 a=8 b=6 c=6
a=8 b=6 c=6

、 a=4 b=6 c=6
a=8 b=6 c=6

、 a=8 b=6 c=6
a=4 b=6 c=6

答案：

31、【单选题】
要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是（　　）。 [1分]

、 Private Sub P1 MouseMove(Button As Integer，Shift As Integer，X As Single，Y
As Single)
Print X Y
End Sub

、 Private Sub P1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y
As Single)
Picture．Print X，Y
End Sub

、 Private Sub P1 MouseMove(Button As Integer，Shift As Integer，X As Single，Y
As Single)
P1．Print X，Y
End Sub

、 Private Sub Form MouseMove(Button As Integer，Shift As Integer，X As Single，Y
As Single)
P1．Print X，Y
End Sub

答案：

32、【单选题】
有如下程序：
Option Base 1
Private Sub Command1 Click（　　）
Dim arr(10)
arr=Array(10，35，28，90，54，68，72，90)
For Eaeh a In arr
If a>50Then
Sum=Sum+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是（　　）。 [1分]

、数组定义语句不对，应改为Dim arr

、没有指明For循环的终值

、应在For语句之前增加Sum=0

、 Next a应改为Next

答案：

33、【单选题】
程序调试的任务是（　　）。 [1分]

、设计测试用例

、验证程序的正确性

、发现程序中的错误

、诊断和改正程序中的错误

答案：

34、【单选题】
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1 Click（　　）
X!=Val(Text1．Text)
Select Casc x
Case Is<-10，Is>=20
Print"输入错误"
Case Is<0
Print 20-x
Case Is<10
Print 20
Case Is<=20
Print x+10
End Seleet
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（　　）。 [1分]

、 5

、 20

、 25

、输入错误

答案：

35、【单选题】
窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：
Private Sub Command1 Click（　　）
Static x As Variant
n=0
x=Array(1，2，3，4，5，6，7，8，9，10)
While n<=4
x(n)=x(n+5)
Print x(n)：
n=n+1
Wend
End Sub
运行程序，单击命令按钮Command1，窗体上显示的是（　　）。 [1分]

、 1 2 3 4 5

、 6 7 8 9 10

、 2 3 4 5 6

、 6 2 3 4 5

答案：

36、【单选题】
软件测试的目的是（　　）。 [1分]

、评估软件可靠性

、发现并改正程序中的错误

、改正程序中的错误

、发现程序中的错误

答案：

37、【单选题】
以下描述中错误的是（　　）。 [1分]

、在多窗体应用程序中，可以有多个当前窗体

、多窗体应用程序的启动窗体可以在设计时设定

、多窗体应用程序中每个窗体作为一个磁盘文件保存

、多窗体应用程序可以编译生成一个EXE文件

答案：

38、【单选题】
下列关于二叉树的叙述中，正确的是（　　）。 [1分]

、叶子结点总是比度为2的结点少一个

、叶子结点总是比度为2的结点多一个

、叶子结点数是度为2的结点数的两倍

、度为2的结点数是度为1的结点数的两倍

答案：

39、【单选题】
下面是求最大公约数的函数的首部：
Function gcd(ByVal X As Integer，ByVal y As Integer)As Integer
若要输出8、12、16这3个数的最大公约数，下面正确的语句是（　　）。 [1分]