2008年 9月全国计算机等级考试二级笔试试卷&(公共基础知识和Visual Basic语言程序设计-在线考试系统

1、【单选题】
一个栈的初始状态为空。现将元素 1、2、3、4、5、A、B、C、D、E 依次入栈，然后再依次出栈，则元素出栈的顺序是（）。 [2分]

、 12345ABCDE

、 EDCBA54321

、 ABCDE12345

、 54321EDCBA

答案：

2、【单选题】
下列叙述中正确的是（）。 [2分]

、循环队列有队头和队尾两个指针，因此，循环队列是非线性结构

、在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况

、在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况

、循环队列中元素的个数是由队头指针和队尾指针共同决定

答案：

3、【单选题】
在长度为 n 的有序线性表中进行二分查找，最坏情况下需要比较的次数是（）。 [2分]

、 O(n)

、 O(n2)

、 O(log2n)

、 O(n log2 n)

答案：

4、【单选题】
下列叙述中正确的是（）。 [2分]

、顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的

、顺序存储结构只针对线性结构，链式存储结构只针对非线性结构

、顺序存储结构能存储有序表，链式存储结构不能存储有序表

、链式存储结构比顺序存储结构节省存储空间

答案：

5、【单选题】
数据流图中带有箭头的线段表示的是（）。 [2分]

、控制流

、事件驱动

、模块调用

、数据流

答案：

6、【单选题】
在软件开发中，需求分析阶段可以使用的工具是（）。 [2分]

、 N-S图

、 DFD图

、 PAD图

、程序流程图

答案：

7、【单选题】
一间宿舍可住多个学生，则实体宿舍和学生之间的联系是（）。 [2分]

、一对一

、一对多

、多对一

、多对多

答案：

8、【单选题】
在数据管理技术发展的三个阶段中，数据共享最好的是（）。 [2分]

、人工管理阶段

、文件系统阶段

、数据库系统阶段

、三个阶段相同

答案：

9、【单选题】
有三个关系 R、S和 T 如下：

由关系 R 和S通过运算得到关系 T，则所使用的运算为（）。 [2分]

、笛卡尔积

、交

、并

、自然连接

答案：

10、【单选题】
若变量 a 未事先定义而直接使用（例如：a=0），则变量 a 的类型是（）。 [2分]

、 Integer

、 String

、 Boolean

、 Variant

答案：

11、【单选题】
为把圆周率的近似值 3.14159存放在变量 pi 中，应该把变量 pi 定义为（）。 [2分]

、 Dim pi As Integer

、 Dim pi(7) As Integer

、 Dim pi As Single

、 Dim pi As Long

答案：

12、【单选题】
表达式 2*3^2+4*2/2+3^2 的值是（）。 [2分]

、 30

、 31

、 49

、 48

答案：

13、【单选题】
以下不能输出“Program”的语句是（）。 [2分]

、 Print Mid("VBProgram", 3, 7)

、 Print Right("VBProgram", 7)

、 Print Mid("VBProgram", 3)

、 Print Left("VBProgram", 7)

答案：

14、【单选题】
窗体上有一个名称为 Frame1 的框架（如图），若要把框架上显示的“Frame1”改为
汉字“框架”，下面正确的语句是（）。

[2分]

、 Frame1.Name="框架"

、 Frame1.Caption="框架"

、 Frame1.Text="框架"

、 Frame1.Value="框架"

答案：

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

、在通用过程中，多个形式参数之间可以用逗号作为分隔符

、在 Print方法中，多个输出项之间可以用逗号作为分隔符

、在 Dim语句中，所定义的多个变量可以用逗号作为分隔符

、当一行中有多个语句时，可以用逗号作为分隔符

答案：

16、【单选题】
设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表
项内容的是（）。 [2分]

、 List1.List

、 List1.ListIndex

、 List1.Text

、 List1.Index

答案：

17、【单选题】
设a=4，b=5，c=6，执行语句 Print a<b And b<c 后，窗体上显示的是（）。 [2分]

、 True

、 False

、出错信息

、 0

答案：

18、【单选题】
执行下列语句
strInput=InputBox ("请输入字符串"，"字符串对话框"，"字符串")
将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strInput 的内容是（）。 [2分]

、 "请输入字符串"

、 "字符串对话框"

、 "字符串"

、空字符串

答案：

19、【单选题】
窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：
Option Base 0
Dim a( ) As Integer, m As Integer
Private Sub Command1_Click( )
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
Private Sub Command2_Click( )
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则
数组 a 中元素的个数是（）。 [2分]

、 5

、 6

、 10

、 11

答案：

20、【单选题】
在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编
写如下事件过程：
Private Sub Command1_Click( )
Counter=0
For i=1 To 4
    For j=6 To 1 Step -2
      Counter=Counter+1
    Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（）。 [2分]

、 11

、 12

、 16

、 20

答案：

21、【单选题】
以下关于过程及过程参数的描述中，错误的是（）。 [2分]

、调用过程时可以用控件名称作为实际参数

、用数组作为过程的参数时，使用的是“传地址”方式

、只有函数过程能够将过程中处理的信息传回到调用的程序中

、窗体（Form）可以作为过程的参数

答案：

22、【单选题】
在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2
的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click( )
X=5: Y=3
Call proc(X, Y)
Label1.Caption=X
Label2.Caption=Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）。 [2分]

、 25 和3

、 5 和3

、 25 和 6

、 5 和 6

答案：

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

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

、 Open "c:\Test2.dat" For Output As #1
Put #1, 1, p
Close #1

、 Open "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

答案：

24、【单选题】
在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编
写如下事件过程：
Private Sub Command1_Click( )
Dim i As Integer, n As Integer
For i=0 To 50
    i=i+3
    n=n+1
    If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（）。 [2分]

、 2

、 3

、 4

、 5

答案：

25、【单选题】
假定有以下循环结构
Do Until 条件表达式
循环体
Loop
则以下正确的描述是（）。 [2分]

、如果“条件表达式”的值是 0，则一次循环体也不执行

、如果“条件表达式”的值不为 0，则至少执行一次循环体

、不论“条件表达式”的值是否为“真”，至少要执行一次循环体

、如果“条件表达式”的值恒为 0，则无限次执行循环体

答案：

26、【单选题】
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim I, Num
Randomize
Do
    For I=1 To 1000
     Num=Int(Rnd*100)
      Print Num;
      Select Case Num
       Case 12
          Exit For
        Case 58
         Exit Do
        Case 65, 68, 92
          End
      End Select
    Next I
Loop
End Sub
上述事件过程执行后，下列描述中正确的是（）。 [2分]

、 Do 循环执行的次数为 1000 次

、在 For循环中产生的随机数小于或等于 100

、当所产生的随机数为 12 时结束所有循环

、当所产生的随机数为 65、68 或92时窗体关闭、程序结束

答案：

27、【单选题】
在窗体上画一个名为 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
运行上面的程序，其输出结果是（）。 [2分]

、 1234

、 12

、 34

、 4321

答案：

28、【单选题】
设有如下通用过程：
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr=""
strL=Len(xStr)
i=1
Do While i<=strL/2
tStr=Tstr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click( )
Dim S1 As String
S1="abcdef"
Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是（）。 [2分]

、 ABCDEF

、 abcdef

、 AFBECD

、 DEFABC

答案：

29、【单选题】
某人为计算 n!(0<n<=12)编写了下面的函数过程：
Private Function fun(n As Integer) As Long
Dim p As Long
p=1
For k=n-1 To 2 Step-1
p=p*k
Next k
fun=p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有
3 种是正确的，错误的方案是（）。 [2分]

、把 p=1 改为 p=n

、把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1

、把 For k=n-1 To 2 Step-1 改为 For k=1 To n

、把 For k=n-1 To 2 Step-1 改为 For k=2 To n

答案：

30、【单选题】
假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S, i, 1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Srt2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确
定”按钮后在窗体上的输出结果为（）。 [2分]

、 ABCDEFG

、 abcdefg

、 GFEDCBA

、 gfedcba
n

答案：

31、【单选题】
为计算 a 的值，某人编写了函数 power如下：
Private Function power (a As Integer, n As Integer) As Long
Dim p As Long
p=a
For k=1 To n
p=p*a
Next k
power=p
End Function
在调试时发现是错误的，例如 Print power(5,4)的输出应该是 625，但实际输出是 3125。
程序需要修改。下面的修改方案中有 3 个是正确的，错误的一个是（）。 [2分]

、把 For k=1 To n 改为 For k=2 To n

、把 p=p*a改为 p=p^n

、把 For k=1 To n 改为 For k=1 To n-1

、把 p=a 改为 p=1

答案：

32、【填空题】
对下列二叉树进行中序遍历的结果。

[每空2分]

答案： ["DBXEAYFZC"]

33、【填空题】
按照软件测试的一般步骤，集成测试应在测试之后进行。 [每空2分]

答案： ["单元"]

34、【填空题】
软件工程三要素包括方法、工具和过程，其中，支持软件开发的各个环节的
控制和管理。 [每空2分]

答案： ["过程"]

35、【填空题】
数据库设计包括概念设计、和物理设计。 [每空2分]

答案： ["逻辑设计"]

36、【填空题】
在二维表中，元组的不能再分成更小的数据项。 [每空2分]

答案： ["分量"]

37、【填空题】
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change( )
Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串
“VisualBasic”，则在标签中显示的内容是。 [每空2分]

答案： ["BASIC"]

38、【填空题】
在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a$="National Computer Rank Examination"
n=Len(a$)
s=0
For i=1 To n
    b$=Mid(a$, i, 1)
    If b$="n" Then
      s=s+1
    End If
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是。 [每空2分]

答案： ["4"]

39、【填空题】
为了在运行时把 d:\pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1，所使用的语句
为。 [每空2分]

答案： ["Picture1.Picture="d:\pic\a.jpg"或Picture1.Picture=LoadPicture("d:\pic\a.jpg")"]

40、【填空题】
设有如下程序：
Private Sub Form_Click( )
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i);
Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。

[每空2分]

答案： ["Right(a$,i)或者Mid(a$,7-i)"]