- 相关推荐
2006年9月全国计算机等级考试二级VB笔试真题
(1)下列选项中不符合良好程序设计风格的是 ( ) 。
A.源程序要文档化
B.数据说明的次序要规范化
C.避免滥用 goto 语句
D.模块设计要保证高耦合、高内聚
(2)从工程管理角度，软件设计一般分为两步完成，它们是 ( ) 。
A.概要设计与详细设计
B.数据设计与接口设计
C.软件结构设计与数据设计
D.过程设计与数据设计
(3)下列选项中不属于软件生命周期开发阶段任务的是 ( ) 。
A.软件测试
B.概要设计
C.软件维护
D.详细设计
(4)在数据库系统中，用户所见的数据模式为 ( ) 。
A.概念模式
B.外模式
C.内模式
D.物理模式
(5)数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和 ( ) 。
A.编码设计
B.测试阶段
C.运行阶段
D.物理设计
(6)设有如下三个关系表：
下列操作中正确的是 ( ) 。
(7)下列叙述中正确的是 ( ) 。
A.一个算法的空间复杂度大，则其空间复杂度也必定大
B.一个算法的空间复杂度大，则其时间复杂度必定小
C.一个算法的时间复杂度大，则其空间复杂度必定小
D.上述三种说法都不对
(8)在长度为 64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为 ( ) 。
A.63
B.64
C.6
D.7
(9)数据库技术的根本目标是要解决数据的 ( ) 。
A.存储问题
B.共享问题
C.安全问题
D.保护问题
(10)对下列二叉树：
进行中序遍历的结果是 ( ) 。
A.ACBDFEG
B.ACBDFGE
C.ABDCGEF
D.FCADBEG
(11)以下叙述中正确的是 ( ) 。
A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体
B.窗体的 Name 属性值是显示在窗体标题栏中文本
C.可以在运行期间改变窗体的 Name 属性的值
D.窗体的 Name 属性值可以为空
(12)以下叙述中错误的是 ( ) 。
A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件
B.保存 Visual Basic 程序时，应分别保存窗体文件及工程文件
C.Visual Basic 应用程序只能以解释方式执行
D.窗体文件包含该窗体及其控件的属性
(13)设 a=2,b=3,c=4, 下列表达式的值是 ( ) 。
Not a <= c Or 4*c = b^2 And b <> a+c
A.-1
B.1
C.True
D.False
(14)没有如下的用户定义类型：
Type Student
number As String
name As String
A) ge AS Integer
End Type
则以下正确引用该类型成员的代码是 ( ) 。
A.Student. name= “李明”
B.Dim s As Student
C.Dim s As Type Student
D.Dim s As Type
S.name= “李明” s.name= “李明”
(15)设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 ( ) 。
X=IIf((a>b)And(c>d),10,20)
A.10
B.20
C.True
D.False
(16)执行以下程序段后，变量 c$ 的值为 ( ) 。
A)$= “ Visual Bassic Programming ”
B)$= “ Quick ” e$=b$&U Case(Mid$(a$,7,6))&Right$(a$,12)
A.Visual Basic Programming
B.Quick Basic programming
C.Quick Basic Programming
D.Quick Basic Programming
(17) 在窗体上画一个文本框(其名称为 Textl)和一个标签(其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是 ( ) 。
A.Private Sub Textl_Click()
B.Private Sub Text1_Change()
Labell.Caption=Textl.Text Labell.Caption=Textl.Text End Sub End Sub
C.Private Sub Labell_Ctrange()
D.Private Sub Labell_Click()
Labell. Caption=Textl.Text Labell.Caption=Textl.Text
End Sub End Sub
(18)在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程：
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Nextj
Nexti
Labell.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是
A.11
B.12
C.16
D.20
(19)在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：
Private Commandl_Click()
Dim i As Integer, n As Integer
For i=0 To 50
i = i+3
n = n+1
If i>10Then Exit For
Next
Textl.Text=Str(n)
End Sub
程序运行后，单击命命令按钮，在文本框中显示的值是 ( ) 。
A.5
B.4
C.3
D.2
(20)在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程：
Private Sub Commandl_Chick.
A) =0
For i=1 To 10
a=a+1
b=0
Forj=1 To 10
a=a+1
b=b+2
Nextj
Next i
Labell. Caption=Str(a)
Labe12.Caption=Str(
B.
End Sub
程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为 ( ) 。
A.10 和 20
B.20 和 110
C.200 和 110
D.110 和 20
(21)在窗体上画一个名称为 Listl 的列表框，一个名称为 Labell 的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是 ( ) 。
A.Privale Sub Listl_Click()
B.Private Sub Listl_Click()
Labell. Caption=Listl. ListIndex Labell.Name=Listl. ListIndex
Listl. Removeltem Listl.Text Listl.RemoveItem Listl.Text
End Sub End Sub
C.Private Sub Listl_Click()
D.Private Sub Listl_Click()
Labell. Caption=Listl.Text Labell. Name=Listl. Text
Listl. RemovItem Listl. ListIndex Listl. RemoveItem Listl. ListIndex
End Sub End Sub
(22) 在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：
Private Sub Commandl Click()
Dim i As Integer, j As Integer
Dim a (10,10)As Integer
For i=1 To 3
For j= i To 3
a(i,j)=(i-1)*3+j
Print a (i,j);
Next j
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是 ( ) 。
|
A． |
1 |
2 |
3 |
B． |
1 |
2 |
3 |
C． |
1 |
2 |
3 |
D． |
1 |
2 |
3 |
|||
| & |
2 |
4 |
6 |
3 |
4 |
5 |
2 |
5 |
8 |
4 |
5 |
6 |
||||||
|
3 |
6 |
9 |
4 |
5 |
6 |
3 |
6 |
9 |
7 |
8 |
9 |
(23) 在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：
Option Base 0
Private Sub Command1_Click()
D)im A (4)As Integer,B(4) As Integer
For k=0 To 2
A(k+1)=InputBox(“ 请输入一个整数 ”)
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 4 、 6 ，输入结果为 ( ) 。
A.0
B.2
C.3
D.4
(24)有以下程序：
Option Base 1
D)im arr() As Integer
Private Sub Form_Click()
D)im i As Integer,j As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
arr (i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(1,4)
For j=3 To 4
A) rr(3,j)=j+9
Next j
Print arr(3,2);arr(3,4)
End Sub
程序运行后，单击窗体，输出结果为 ( ) 。
A.8 13
B.0 13
C.7 12
D.0 0
(25)以下叙述中正确的是 ( ) 。
A.一个 Sub 过程至少要一个 Exit Sub 语句
B.一个 Sub 过程必须有一个 End Sub 语句
C.可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程
D.调用一个 Function 过程可以获得多个返回值
(26)有以下程序：
Sub subp(b()As Integer)
For i=1To4
B.(i)=2-i
Nexti
End Sub
Private Sub Command1_Click()
D.im a (1 To 4)As Integer
A) (1)=5
A) (2)=6
A) (3)=7
A) (4)=8
subpa()
For i=1 To4
Print a (i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为 ( ) 。
A.2 4 6 8
B.5 6 7 8
C.10 12 14 16
D .出错
(27)设有如下通用过程：
Public Function Fun(xStr As String)
D.im tStr As String, srtL As Integer tStr+””
strL=Len(xStr)
i=1
D.o While i<=strL/2
tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：
Private Sub Command 1_ Click()
Dim S1 As String
S1=”abcdef”
Text1.Text=UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，则 Text1 中显示的是 ( ) 。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
(28)在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(KeyAscii As Integer)
……
End Sub
假定焦点已经位一地文本框中，则能够触发 KeyPress 事件的操作是
A.单击鼠标
B.双击文本框
C.鼠标滑过文本框
D.按下键盘上的某个键
(29)在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：
D)im S1 As String, S2 As String
Private Sub Form_Load()
Text1. Text=””
Text2. Text=””
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
S2=s2 & Chr(KeyCode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
S1=S1 & chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text=S2
Text2.Text=S1
S1= “”
S2= “”
End Sub
程序运行后，在 Text1 中输入“ abc ”，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为 ( ) 。
A.abc 和 ABC
B .abc 和 abc
C.ABC 和 abc
D .ABC 和 ABC
(30)以下说法正确的是 ( ) 。
A.任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器
B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
C.任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器
D.只有当代码窗品为当前活动窗口时，才能找开菜单编辑器
(31)在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&_
“(*.txt)|*.txt| Executable Files(*.exe)|*.exe”
CommonDialog1. Filterindex=3
CommonDialog1. Show Open
MsgBox CommonDialog1. FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 ( ) 。
A.All Files(*.*)
B.Text files(*.txt)
C.Executable Files(*.ext)
D.不确定
(32)以下叙述错误的是
A.一个工程中可以包含多个窗体文件
B.在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用
C.窗体和标准模块需要分别保存为不同类型的磁盘文件
D.?用 Dim 定义的窗体层变量只能在该窗体中使用
33 ?以下叙述中错误的是()
A.语句“ Dim a, b As Integer ”声明了两个整型变量
B.不能在标准模块中定义 Static 型变量
C.窗体层变量必须先声明，后使用
D.在事件过程或通用过程内定义的变量是局部变量
34 ?设有语句： Open "d: \ Text.txt" For OutputAs#1 ，以下叙述中错误的是()
A.若 d 盘根目录下无 Text.txt 文件，则该语句创建此文件
B.用该语句建立的文件的文件号为 1
C.该语句打开 d 盘根目录下一个已存在的文件 Text.txt ，之后就可以从文件中读取信息
D.执行该语句后，就可以通过 Print# 语句向文件 Text.txt 中写入信息
35 ?以下叙述中错误的是()
A. 顺序文件中的数据只能按顺序读写
B.对同一个文件，可以用不同的方式和不同的文件号打开
C.执行Close 语句，可将文件缓冲区中的数据写到文件中
D.随机文件中各记录的长度是随机的
二、填空题(每空 2 分，共 30 分)
请将每空的正确答案写在答题卡【 1 】 ~ 【 15 】序号的横线上，答在试卷上不得分。
1 ?下列软件系统结构图的宽度为【 1 】。
2 ?【 2 】的任务是诊断和改正程序中的错误。
3 ?一个关系表的行称为【 3 】。
4 ?按“先进后出”原则组织数据的数据结构是【 4 】。
5 ?数据结构分为线性结构和非线性结构，带链的队列属于【 5 】。
6 ?描述 "X 是小于 100 的非负整数 " 的 Visual Basic 表达式是【 6 】。
7 ?在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。
Private Sub Form_Load()
C) Ommand1 ? Enabled=False
End Sub
Private Sub Text1_ 【 7 】 ()
C) ommand1 ? Enabled=True
End Sub
8 ?在窗体上画一个名称为 "Command1" 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
D) Im a As String
A) ="123456789"
For i=1 To 5
Print Space(6-i);Mid $ (a, 【 8 】 ,2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
9 ?以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，要求把 A ( 1 )到 A ( 10 )依次赋给 B ( 1 ， 1 )到 B ( 1 ， 10 )，把 A ( 11 )到 A ( 20 )依次赋给 B ( 2 ， 1 )到 B ( 2 ， 10 )，……，把 A ( 91 )到 A ( 100 )依次赋给 B ( 10 ， 1 )到 B ( 10 ， 10 )。请填空。
Option Base 1
Private Sub Form_Click()
D) im i As Integer,j As Integer
D) im A(1 To 100) As Integer
D) im B(1 To 10,1 To 10) As Integer
For i=1 To 100
A) (i)=Int(Rnd * 100)
Next i
For i=1 To 【 9 】
For j=1 To 【 10 】
B) (i,j)= 【 11 】
Print B(i,j);
Next j
Next i
End Sub
10 ?在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 " 城市名称 " 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 " 已成功添加新输入页。 " ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1 ? ListCount-1
If Combo1 ? Text= 【 12 】 Then
Label2 ? Caption=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2 ? Caption=" 已成功添加新输入项。 "
C) ombo1 ?【 13 】 Combo1 ? Text
End If
End Sub
11 ?在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：
Private Sub Command1_Click()
D) im inData As String
Text1 ? Text=" "
OPen "d:|| ML ) ||Myfile ? txt" for 【 14 】 As #1
D) o While 【 15 】
Input # 1,inData
Text1 ? Text=Text1 ? Text+inData
Loop
C) lose #1
End Sub
程序的功能是，打开 D 盘根目录下的文本文件 myfile ? txt, 读取它的全部内容并显示在文本框中。请填空
【9月全国计算机等级考试二级VB笔试真题】相关文章：
3月全国计算机等级考试二级VB笔试真题12-05
2006年上半年全国计算机等级考试二级VB笔试真题10-02
全国计算机等级考试二级VB笔试真题参考答案（完整版）11-26
全国计算机等级考试二级C++笔试真题10-11
全国计算机二级VB考试真题12-05
计算机等级考试二级ACCESS笔试真题10-06