2005年9月全国计算机等级考试二级VB笔试试卷(含参考答案) 、选择题(每小题2分,共70分) 下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。 请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。 (1)下列叙述中正确的是 A)程序设计就是编制程序B)程序的测试必须由程序员自己去完成 C)程序经调试改错后还应进行再测试D)程序经调试改错后不必进行再测 试 (2)下列数据结构中,能用二分法进行查找的是 A)顺序存储的有序线性表B)线性链表 C)二叉链表D)有序线性链表 (3)下列关于栈的描述正确的是 A)在栈中只能插入元素而不能删除元素 B)在栈中只能删除元素而不能插入元素 C)栈是特殊的线性表,只能在一端插入或删除元素 D)栈是特殊的线性表,只能在一端插入元素,而在另一端删除元素 (4)下列叙述中正确的是 A)一个逻辑数据结构只能有一种存储结构
2005 年 9 月全国计算机等级考试二级 VB 笔试试卷（含参考答案） 一、 选择题（每小题 2 分，共 70 分） 下列各题 A ）、 B ）、 C ）、 D ）四个选项中，只有一个选项是正确的。 请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （ 1 ）下列叙述中正确的是 A ）程序设计就是编制程序 B ）程序的测试必须由程序员自己去完成 C ）程序经调试改错后还应进行再测试 D ）程序经调试改错后不必进行再测 试 （ 2 ）下列数据结构中，能用二分法进行查找的是 A ）顺序存储的有序线性表 B ）线性链表 C ）二叉链表 D ）有序线性链表 （ 3 ）下列关于栈的描述正确的是 A ）在栈中只能插入元素而不能删除元素 B ）在栈中只能删除元素而不能插入元素 C ）栈是特殊的线性表，只能在一端插入或删除元素 D ）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 （ 4 ）下列叙述中正确的是 A ）一个逻辑数据结构只能有一种存储结构
B)数据的逻辑结构属于线性结构,存储结构属于非线性结构 C)一个逻辑数据结构可以有多种存储结构,且各种存储结构不影响数据处理 的效率 D)一个逻辑数据结构可以有多种存储结构,且各种存储结构影响数据处理的 效率 (5)下列描述中正确的是 A)软件工程只是解决软件项目的管理问题 B)软件工程主要解决软件产品的生产率问题 C)软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D)软件工程只是解决软件开发中的技术问题 (6)在软件设计中,不属于过程设计工具的是 A)PDL(过程设计语言)B)PAD图 C)N-S图D)DFD图 (7)下列叙述中正确的是 A)软件交付使用后还需要进行维护 B)软件一旦交付使用就不需要再进行维护 C)软件交付使用后其生命周期就结束 D)软件维护是指修复程序中被破坏的指令
B ）数据的逻辑结构属于线性结构，存储结构属于非线性结构 C ）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理 的效率 D ）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的 效率 （ 5 ）下列描述中正确的是 A ）软件工程只是解决软件项目的管理问题 B ）软件工程主要解决软件产品的生产率问题 C ）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D ）软件工程只是解决软件开发中的技术问题 （ 6 ）在软件设计中，不属于过程设计工具的是 A ） PDL( 过程设计语言 ) B ） PAD 图 C ） N-S 图 D ） DFD 图 （ 7 ）下列叙述中正确的是 A ）软件交付使用后还需要进行维护 B ）软件一旦交付使用就不需要再进行维护 C ）软件交付使用后其生命周期就结束 D ）软件维护是指修复程序中被破坏的指令
(8)数据库设计的根本目标是要解决 A)数据共享问题B)数据安全问题 C)大量数据存储问题D)简化数据维护 (9)设有如下关系表 RST ABCABCABC 112313112 223223 313 则下列操作中正确的是 A)T=R∩SB)T=RUSC)T=R×SD)T=R/S (10)数据库系统的核心是 A)数据模型B)数据库管理系统 C)数据库D)数据库管理员 (11)假定一个 Visual basic应用程序由一个窗体模块和一个标准模块 构成。为了保存该应用程序,以下正确的操作是 A)只保存窗体模块文件 B)分别保存窗体模块、标准模块和工程文件 C)只保存窗体模块和标准模块文件
（ 8 ）数据库设计的根本目标是要解决 A ）数据共享问题 B ）数据安全问题 C ）大量数据存储问题 D ）简化数据维护 （ 9 ）设有如下关系表 : R S T A B C A B C A B C 1 1 2 3 1 3 1 1 2 2 2 3 2 2 3 3 1 3 则下列操作中正确的是 A ） T ＝ R∩S B ） T ＝ R ∪ S C ） T ＝ R×S D ） T ＝ R/S （ 10 ）数据库系统的核心是 A ）数据模型 B ）数据库管理系统 C ）数据库 D ）数据库管理员 （ 11 ）假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块 构成。为了保存该应用程序，以下正确的操作是 A ）只保存窗体模块文件 B ）分别保存窗体模块、标准模块和工程文件 C ）只保存窗体模块和标准模块文件
D)只保存工程文件 (12)为了清除窗体上的一个控件,下列正确的操作是 A)按回车键 B)按Esc键 C)选择(单击)要清除的控件,然后按De1键 D)选择(单击)要清除的控件,然后按回车键 (13)以下叙述中错误的是 A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文 件 B)当程序运行时,双击一个窗体,则触发该窗体的Db1 Click事件 C) Visual basic应用程序只能以解释方式执行 D)事件可以由用户引发,也可以由系统引发 (14)设a=2,b=3,c=4,d=5,下列表达式的值是 Not a=c or 4*c=b2 And b>a+c a)1b)1c) True d) False (15)设a=5,b=10,则执行 c= Int((b-a)*Rnd a)+1 后,c值的范围为 A)5~10B)6~9C)6~10D)5~9
D ）只保存工程文件 （ 12 ）为了清除窗体上的一个控件，下列正确的操作是 A ）按回车键 B ）按 Esc 键 C ）选择（单击）要清除的控件，然后按 Del 键 D ）选择（单击）要清除的控件，然后按回车键 （ 13 ）以下叙述中错误的是 A ）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文 件 B ）当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件 C ） Visual Basic 应用程序只能以解释方式执行 D ）事件可以由用户引发，也可以由系统引发 （ 14 ）设 a=2, b=3, c=4, d=5, 下列表达式的值是 Not aa+c A ） -1 B ） 1 C ） True D ） False （ 15 ）设 a = 5 ， b = 10 ，则执行 c = Int((b - a) * Rnd + a) + 1 后， c 值的范围为 A ） 5 ～ 10 B ） 6 ～ 9 C ） 6 ～ 10 D ） 5 ～ 9
(16)在窗体上画一个命令按钮,名称为 Command1,然后编写如下事件 过程 Private Sub Command1 Click a$=software and hardware bs= Rights, 8) c$=Mid(a$,1,8) MsgBox a$,, b$, c$, 1 End Sub 运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是 A) software and hardware) software) hardwared)1 (17)在窗体上画一个命令按钮和一个文本框,其名称分别为 Command1和 Text1,把文本框的Text属性设置为空白,然后编写如下事件过程: Private Sub Command1 Click a= InputBox( Enter an integer") b= InputBox Enter an integer) Textl. text =b+a End sub 程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文 本框中显示的内容是 A)108B)18C)810D)出错
（ 16 ）在窗体上画一个命令按钮，名称为 Command1 ，然后编写如下事件 过程： Private Sub Command1_Click() a$ = "software and hardware" b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是 A ） software and hardware B ） software C ） hardware D ） 1 （ 17 ）在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，把文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10 ，则文 本框中显示的内容是 A ） 108 B ） 18 C ） 810 D ）出错
(18)在窗体上画两个文本框,其名称分别为Text1和Text2,然后编 写如下程序 Private Sub Form Loado Show Textl. Text= Text2 Text Text1. Set Focus End Sub Private Sub Textl Changeo Text2 Text= Mid(Text1. Text, 8) End Sub 程序运行后,如果在文本框Text1中输入 BeijingChina,则在文本框 Text2中显示的内容是 a) BeijingChina b) Chinac) Beijing d) Beijing (19)在窗体上画一个列表框和一个命令按钮,其名称分别为List1和 Command1,然后编写如下事件过程 Private Sub Form Load Listl AddItem Item 1 List. AddItem" Item 2 List1 AddItem" Item 3
（ 18 ）在窗体上画两个文本框，其名称分别为 Text1 和 Text2 ，然后编 写如下程序： Private Sub Form_Load() Show Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text = Mid(Text1.Text, 8) End Sub 程序运行后，如果在文本框 Text1 中输入 BeijingChina ，则在文本框 Text2 中显示的内容是 A ） BeijingChina B ） China C ） Beijing D ） BeijingC （ 19 ）在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1 ，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem "Item 1" List1.AddItem "Item 2" List1.AddItem "Item 3
End sub Private Sub Command1 Click List1 List( Listl. ListCount)="AAAA End Sub 程序运行后,单击命令按钮,其结果为 A)把字符串“A”添加到列表框中,但位置不能确定 B)把字符串“AAA”添加到列表框的最后(即“Item3”的后面) C)把列表框中原有的最后一项改为“AAA” D)把字符串“A”插入到列表框的最前面(即“Item1”的前面) (20)假定有如下事件过程 Private Sub Form Click o Dim x As Integer, n As Integer n Do While x< 28 *3 Loop Print x. n End Sub 程序运行后,单击窗体,输出结果是
End Sub Private Sub Command1_Click() List1.List(List1.ListCount) = "AAAA" End Sub 程序运行后，单击命令按钮，其结果为 A ）把字符串 “AAAA” 添加到列表框中，但位置不能确定 B ）把字符串 “AAAA” 添加到列表框的最后（即 “Item 3” 的后面） C ）把列表框中原有的最后一项改为 “AAAA” D ）把字符串 “AAAA” 插入到列表框的最前面（即 “Item 1” 的前面） （ 20 ）假定有如下事件过程： Private Sub Form_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x < 28 x = x * 3 n = n + 1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是
A)814B)563 C)281D)2435 (21)有如下程序: Private Sub Form Click Dim Check, Counter Check= true Counter =0 Do Do While counter< 20 Counter Counter 1 If Counter =10 Then Check= False Exit do End if lo Loop Until Check= False Print counter, Check End sub 程序运行后,单击窗体,输出结果为 A)150B)20-1 c)10 Trued)10 False
A ） 81 4 B ） 56 3 C ） 28 1 D ） 243 5 （ 21 ）有如下程序： Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter < 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为 A ） 15 0 B ） 20 -1 C ） 10 True D ） 10 False
(22)有如下程序: Private Sub Form Click Dim i As Integer sum As Integer 0 For i =2 To 10 If i mod 2<>0 And i mod 3=0 Then sum sum t i End if Next i Print sum End sub 程序运行后,单击窗体,输出结果为 A)12B)30C)24D)18 (23)在窗体上画一个名称为Tex1的文本框和一个名称为 Command1的 命令按钮,然后编写如下事件过程 Private Sub Command1 Click Dim array1(10, 10)As Integer Dim i As integer, j As Integer For i =1 to 3 Forj=2 To 4
（ 22 ）有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为 A ） 12 B ） 30 C ） 24 D ） 18 （ 23 ）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的 命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4
array1(i, j) Next j Next i Text1. Text= array1(2, 3)+array1 3, 4) d Sub 程序运行后,单击命令按钮,在文本框中显示的值是 A)12B)13C)14D)15 (24)在窗体上画一个命令按钮,其名称为 Command1,然后编写如下事 件过程: Private Sub Command1 Click Dima1(4,4),a2(4,4) For i =1 To 4 Forj=1 To 4 al(i,j)=i+j 2(i,j)=a1(i,j)+ Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后,单击命令按钮,在窗体上输出的是 A)66B)105C)721D)612
array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A ） 12 B ） 13 C ） 14 D ） 15 （ 24 ）在窗体上画一个命令按钮，其名称为 Command1 ，然后编写如下事 件过程： Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是 A ） 6 6 B ） 10 5 C ） 7 21 D ） 6 12
