2006年9月全国计算机等级考试二级笔试试卷

机密★启用前 2006年9月全国计算机等级考试二级笔试试卷 Visual basic语言程序设计 26 注意事项 考生应严格遵守考场规则,得到监考人员指令后方可作答。 、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答题卡的相应位置上。 、选择题答案必须用铅笔填涂在答题卡的相应位置上,填空题的答案必须用蓝、黑色钢 笔或圆珠笔写在答题卡的相应位置上,答案写在试卷上无效。 四、注意字迹清楚,保持卷面整洁 五、考试结束将试卷和答题卡放在桌上,不得带走。待监考人员收毕清点后,方可离场 ***版权所有,任何单位或个人不得保留、复制和出版,违者必究*** 教育部考试中心 0六年七月制

机密★启用前 2006 年 9 月全国计算机等级考试二级笔试试卷 Visual Basic 语言程序设计 26 注意事项 一、考生应严格遵守考场规则，得到监考人员指令后方可作答。 二、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答题卡的相应位置上。 三、选择题答案必须用铅笔填涂在答题卡的相应位置上，填空题的答案必须用蓝、黑色钢 笔或圆珠笔写在答题卡的相应位置上，答案写在试卷上无效。 四、注意字迹清楚，保持卷面整洁。 五、考试结束将试卷和答题卡放在桌上，不得带走。待监考人员收毕清点后，方可离场。 * * * 版权所有，任何单位或个人不得保留、复制和出版，违者必究 * * * 教育部考试中心 二 00 六年七月制

2006年9月全国计算机等级考试二级笔试试卷 公共基础知识和 isual basic语言程序设计 (考试时间90分钟,满分100分) 、选择题(每小题2分,共70分) (1)下列选项中不符合良好程序设计风格的是() A)源程序要文档化 B)数据说明的次序要规范化 C)避免滥用goto语句 D)模块设计要保证高耦合、高内聚 (2)从工程管理角度,软件设计一般分为两步完成,它们是( A)概要设计与详细设计 B)数据设计与接口设计 C)软件结构设计与数据设计 D)过程设计与数据设计 (3)下列选项中不属于软件生命周期开发阶段任务的是()。 A)软件测试 B)概要设计 C)软件维护 D)详细设计 (4)在数据库系统中,用户所见的数据模式为( A)概念模式 B)外模式 C)内模式 D)物理模式 (5)数据库设计的4个阶段是:需求分析、概念设计、逻辑设计和() A)编码设计 B)测试阶段 C)运行阶段 D)物理设计 (6)设有下列3个关系表 M nI 下列操作中正确的是()。 A)T=R∩S B) T=RUS C)T=R×S DT=R/S (7)下列叙述中正确的是() A)一个算法的空间复杂度大,则其时间复杂度也必定大 B)一个算法的空间复杂度大,则其时间复杂度必定小 C)一个算法的时间复杂度大,则其空间复杂度必定小 二级Ⅴ sual basic语言程序设计试卷第1页(共11页)

二级 Visual Basic 语言程序设计试卷 第 1 页（共 11 页） 2006 年 9 月全国计算机等级考试二级笔试试卷 公共基础知识和 Visual Basic 语言程序设计 （考试时间 90 分钟，满分 100 分） 一、选择题（每小题 2 分，共 70 分） （1）下列选项中不符合良好程序设计风格的是（ ）。 A）源程序要文档化 B）数据说明的次序要规范化 C）避免滥用 goto 语句 D）模块设计要保证高耦合、高内聚 （2）从工程管理角度，软件设计一般分为两步完成，它们是（ ）。 A）概要设计与详细设计 B）数据设计与接口设计 C）软件结构设计与数据设计 D）过程设计与数据设计 （3）下列选项中不属于软件生命周期开发阶段任务的是（ ）。 A）软件测试 B）概要设计 C）软件维护 D）详细设计 （4）在数据库系统中，用户所见的数据模式为（ ）。 A）概念模式 B）外模式 C）内模式 D）物理模式 （5）数据库设计的 4 个阶段是：需求分析、概念设计、逻辑设计和（ ）。 A）编码设计 B）测试阶段 C）运行阶段 D）物理设计 （6）设有下列 3 个关系表 R S T A B C A B C m 1 3 M 1 3 n n 1 3 下列操作中正确的是（ ）。 A）T=R∩S B）T=R∪S C）T=R×S D）T=R/S （7）下列叙述中正确的是（ ）。 A）一个算法的空间复杂度大，则其时间复杂度也必定大 B）一个算法的空间复杂度大，则其时间复杂度必定小 C）一个算法的时间复杂度大，则其空间复杂度必定小

D)上述3种说法都不对 (8)在长度为64的有序线性表中进行顺序查找,最坏情况下需要比较的次数为()。 A)6 B)64 C)6 (9)数据库技术的根本目标是要解决数据的()。 A)存储问题 B)共享问题 C)安全问题 D)保护问题 (10)对下列二叉树 □B 进行中序遍历的结果是() A) ACBDFEG B) ACBDFGE C) ABDCGEF D) FCADBEG (11)下列叙述中正确的是() A)窗体的Name属性指定窗体的名称,用来标识一个窗体 B)窗体的Name属性值是显示在窗体标题栏中的文本 C)可以在运行期间改变窗体的Name属性的值 D)窗体的Name属性值可以为空 (12)下列叙述中错误的是() A)打开一个工程文件时,系统自动装入与该工程有关的窗体文件 B)保存Ⅴ Visual basic程序时,应分别保存窗体文件及工程文件 C)Ⅴ isual basic应用程序只能以解释方式执行 D)窗体文件包含该窗体及其控件的属性 (13)设a=2,b=3,c=4,下列表达式的值是() Not a<=c Or 4*c=b2 And bea+c A)-1 B)1 C TI D) False (14)有下列用户定义类型 Type Student number As string name As String End Type 则下列正确引用该类型成员的代码是()。 A) Student name="李明 B)Dim s As Student name="李明 C) Dim s As Type Student D) Dim s As Type s name="李明 s name="李明 二级 Visual basic语言程序设计试卷第2页(共11页)

二级 Visual Basic 语言程序设计试卷 第 2 页（共 11 页） D）上述 3 种说法都不对 （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 aa+c A）-1 B）1 C）True D）False （14）有下列用户定义类型： Type Student number As String name As String age As Integer End Type 则下列正确引用该类型成员的代码是（ ）。 A）Student.name="李明" B）Dim s As Student s.name="李明" C）Dim s As Type Student D）Dim s As Type s.name="李明" s.name="李明

(15)设a=5,b=6,c=7,d8,执行下列语句后,x的值为 X=lIF(a>b)And(c>d), 10, 20) A)10 B)20 C) True D) False (16)执行下列程序段后,变量c$的值为() S="Visual Basic Programming bs="Quick cs=bS UCase(MidS(aS, 7, 6)& RightS(as, 12) A) Visual BASIC Programming B) Quick Basic Programming C) QUICK Basic Programming D) Quick BASIC Programming (17)在窗体上画一个文本框(其名称为 TextI)和一个标签(其名称为 Label),程序运 行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。下列可以 实现上述操作的事件过程是()。 A) Private Sub TextI Click() B) Private Sub Textl Change Label 1. Caption=TextI Text Labell Caption=TextI Text End Sub End Sub C) Private Sub Labell Change() D)Private Sub Labell Click() Label l Caption=TextI Text Labell Caption=Textl Text End Sub End Sub (18)在窗体上画一个命令按钮和一个标签,其名称分别为 Command1和 Labell,然后编 写下列事件过程 Private Sub Commandl Click) Counter-O For i=l To 4 For j=6 To 1 Step-2 Counter Counter+1 Next Next i Labell Caption=Str( Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是()。 A)1 B)12 C)16 D)20 (19)在窗体上画一个名称为 TextI的文本框和一个名称为 Command1的命令按钮,然后编 写下列事件过程: Private Sub Commandl Click( Dimas For i=0 To 50 If i>10 Then exit for 二级 Visual basic语言程序设计试卷第3页(共11页)

二级 Visual Basic 语言程序设计试卷 第 3 页（共 11 页） （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 Basic Programming" b$="Quick" c$=b$ & UCase(Mid$(a$,7,6))& Right$(a$,12) A）Visual BASIC Programming B）Quick Basic Programming C）QUICK Basic Programming D）Quick BASIC Programming （17）在窗体上画一个文本框（其名称为 Text1）和一个标签（其名称为 Label1），程序运 行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。下列可以 实现上述操作的事件过程是（ ）。 A）Private Sub Text1_Click( ) B）Private Sub Text1_Change( ) Label1.Caption=Text1.Text Label1.Caption=Text1.Text End Sub End Sub C）Private Sub Label1_Change( ) D）Private Sub Label1_Click( ) Label1.Caption=Text1.Text Label1.Caption=Text1.Text End Sub End Sub （18）在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编 写下列事件过程： 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 程序运行后，单击命令按钮，标签中显示的内容是（ ）。 A）11 B）12 C）16 D）20 （19）在窗体上画一个名称为 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

TextI Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是() A)5 B)4 C)3 D)2 (20)在窗体上画一个命令按钮和两个标签,其名称分别为 Command1、 Labell和 Label2, 然后编写下列事件过程 Private Sub Commandl Click) For i=l To 10 For j=l To b=b+2 Next i Labell Caption=Str(a) Labell Caption=Str(b) End Sub 程序运行后,单击命令按钮,在标签 Labell和Labe2中显示的内容分别是()。 A)10和20 B)20和 C)200和110 D)110和20 (21)在窗体上画一个名称为Lst1的列表框,一个名称为 Labell的标签,列表框中显示若 干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标 签中显示出来。下列能正确实现上述操作的程序是( A) Pivate Sub ListI Click() Labell Caption=List1 ListIndex Listl. Removeltem Listl Text End sub B) Private Sub ListI Click() Labell. Name=Listl ListIndex Listl. Removeltem List text End Sub C)Private Sub ListI Click() Labell Caption=ListIText Listl. Removeltem Listl ListIndex End Sub D)Private Sub ListI Click( Label l Name=List1 Text Listl. Removeltem Listl ListIndex End Sub (22)在窗体上画一个名称为 Command1的命令按钮,然后编写下列事件过程: Private Sub Commandl Click() 二级 Visual basic语言程序设计试卷第4页(共11页)

二级 Visual Basic 语言程序设计试卷 第 4 页（共 11 页） Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。 A）5 B）4 C）3 D）2 （20）在窗体上画一个命令按钮和两个标签，其名称分别为 Command1、Label1 和 Label2， 然后编写下列事件过程： Private Sub Command1_Click( ) a=0 For i=1 To 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=Str(a) Label1.Caption=Str(b) End Sub 程序运行后，单击命令按钮，在标签 Label1 和 Label2 中显示的内容分别是（ ）。 A）10 和 20 B）20 和 10 C）200 和 110 D）110 和 20 （21）在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签，列表框中显示若 干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标 签中显示出来。下列能正确实现上述操作的程序是（ ）。 A）Pivate Sub List1_Click( ) Label1.Caption=List1.ListIndex List1.RemoveItem List1.Text End Sub B）Private Sub List1_Click( ) Label1.Name=List1.ListIndex List1.RemoveItem List1.Text End Sub C）Private Sub List1_Click( ) Label1.Caption=List1.Text List1.RemoveItem List1.ListIndex End Sub D）Private Sub List1_Click( ) Label1.Name=List1.Text List1.RemoveItem List1.ListIndex End Sub （22）在窗体上画一个名称为 Command1 的命令按钮，然后编写下列事件过程： Private Sub Command1_Click( )

Dim iAs Integer, j As Intege Dim a(10, 10)As Integer For 1=1 To 3 For =l To 3 a(ij)=(-)*3+j Print a(ij) Print End Sub 程序运行后,单击命令按钮,窗体上显示的是()。 A)123 B)234 46 369 456 C)147 D)123 456 369 (23)在窗体上画一个命令按钮,名称为 Command1,然后编写下列事件过程 Option Base O Private Sub Commandl Click() Dim A(4)As Integer, B(4)As Integer A(k+1)= Input Box("请输入一个整数") 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)有下列程序 Dim arr( )As Integer Private Sub Form Click() Dim iAs Integer, j As Integer ReDim arr(3, 2) For 1=1 To 3 F To 2 Next i ReDim Preserve arr(3, 4) For i =3 To 4 二级 Visual basic语言程序设计试卷第5页(共11页)

二级 Visual Basic 语言程序设计试卷 第 5 页（共 11 页） Dim i As Integer, j As Integer Dim a(10,10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 A）1 2 3 B）2 3 4 2 4 6 3 4 5 3 6 9 4 5 6 C）1 4 7 D）1 2 3 2 5 8 4 5 6 3 6 9 7 8 9 （23）在窗体上画一个命令按钮，名称为 Command1，然后编写下列事件过程： Option Base 0 Private Sub Command1_Click( ) Dim 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 Dim arr( )As Integer Private Sub Form_Click( ) Dim 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(3,4) For j=3 To 4 arr(3,j)=j+9

Next Print arr(3, 2), arr(3, 4) End Sub 程序运行后,单击窗体,输出结果为()。 A)813 B)013 C)712 (25)下列叙述中正确的是()。 A)一个Sub过程至少要有一个 Exit sub语句 B)一个Sub过程必须有一个 End Sub语句 C)可以在Sub过程中定义一个 Function过程,但不能定义Sub过程 D)调用一个 Function过程可以获得多个返回值 (26)有下列程序: Sub subP(b()As Integer) For i=l To 4 Private Sub Commandl Click() Dim a(I To 4)As Integer a(1 subP a() For i=l To 4 Print a(i) End Sub 运行上面的程序,单击命令按钮,输出结果为()。 C)10 D)出错 16 (27)设有下列通用过程 Public Function Fun(xStr As String)As Strin Dim tStr as string strl as inte 二级Ⅴ sual basic语言程序设计试卷第6页(共11页)

二级 Visual Basic 语言程序设计试卷 第 6 页（共 11 页） 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=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_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 运行上面的程序，单击命令按钮，输出结果为（ ）。 A）2 B）5 4 6 6 7 8 8 C）10 D）出错 12 14 16 （27）设有下列通用过程： 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-1+1, 1) Fun=tstr End Function 在窗体上画一个名称为 TextI的文本框和一个名称为 Command l的命令按钮。然后编写 下列的事件过程 Private Sub Commandl Click() Dim SI As String S1="abcdef TextIText=UCase( Fun(SI) End Sub 程序运行后,单击命令按钮,则Text1中显示的是 A) ABCDEF B)abcdef C) AFBECD D) DEFABC (28)在窗体上画一个名称为TxtA的文本框,然后编写下列事件过程 Private Sub TxtA Key Press(Key Ascii As Integer) End sub 假定焦点已经位于文本框中,则能够触发 KeyPress事件的操作是( A)单击鼠标 B)双击文本框 C)鼠标滑过文本框 D)按下键盘上的某个键 (29)在窗体上画一个命令按钮和两个文本框,其名称分别为 Command1、Text1和Text2, 然后编写下列事件过程 Dim Sl As String, S2 As String Private Sub Form Load) Text1. Text= Text2.Text=“ End Sub Private Sub TextI Key Down(Key Code As Integer, Shift As Integer) S2=S2& Chr(KeyCode) End Sub Private Sub TextI KeyPress(Key Ascii As Integer) SI=SI Chr(KeyAscii) End Sub Private Sub Commandl Click() Text. Text=s2 Text2 Text=S Sl=““ End Sub 程序运行后,在Text1中输入“abc”,然后单击命令按钮,在文本框 TextI和Text2中 显示的内容分别为()。 二级Ⅴ isual basic语言程序设计试卷第7页(共11页)

二级 Visual Basic 语言程序设计试卷 第 7 页（共 11 页） 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 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写 下列的事件过程： Private Sub Command1_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， 然后编写下列事件过程： Dim 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)在窗体上画一个通用对话框,其名称为 Common Dialog,然后画一个命令按钮,并 编写下列事件过程: Private Sub Commandl Click() CommonDialog l Filter="All Files(**)I* */Text Files"& * txt)*. txt Executable Files(*. exe)*.exe CommonDialogl. Filterlndex=3 Common Dialog. ShowOpen Msg Box Common Dialog. File Name End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显 示的是()。 A) All Files(**) B)Text Files(*. txt) C) Executble Files(*.exe) D)不确定 (32)下列叙述中错误的是() A)一个工程中可以包含多个窗体文件 B)在一个窗体文件中用 Public定义的通用过程不能被其他窗体调用 C)窗体和标准模块需要分别保存为不同类型的磁盘文件 D)用Dim定义的窗体层变量只能在该窗本中使用 (33)下列叙述中错误的是() A)语句“Dima, b as integer”声明了两个整型变量 B)不能在标准模块中定义 Static型变量 C)窗体层变量必须先声明,后使用 D)在事件过程或通用过程内定义的变量是局部变量 (34)设有语句:Open" d: \Test. txt'" For Output As#1,下列叙述中错误的是 A)若d盘根目录下无 Test txt文件,则该语句创建此文件 B)用该语句建立的文件的文件号为1 C)该语句打开d盘根目录下一个已存在的文件 Test txt,之后就可以从文件中读取信息 D)执行该语句后,就可以通过Pint#语句向文件 Test. txt中写入信息 (35)下列叙述中错误的是()。 A)顺序文件中的数据只能按顺序读写 B)对同一个文件,可以用不同的方式和不同的文件号打开 C)执行 Close语句,可将文件缓冲区中的数据写到文件中 D)随机文件中各记录的长度是随机的 二、填空题(每空2分,共30分) (1)下列软件系统结构图 二级 Visual basic语言程序设计试卷第8页(共11页)

二级 Visual Basic 语言程序设计试卷 第 8 页（共 11 页） 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.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显 示的是（ ）。 A）All Files(*.*) B）Text Files(*.txt) C）Executble Files(*.exe) D）不确定 （32）下列叙述中错误的是（ ）。 A）一个工程中可以包含多个窗体文件 B）在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用 C）窗体和标准模块需要分别保存为不同类型的磁盘文件 D）用 Dim 定义的窗体层变量只能在该窗本中使用 （33）下列叙述中错误的是（ ）。 A）语句“Dim a,b As Integer”声明了两个整型变量 B）不能在标准模块中定义 Static 型变量 C）窗体层变量必须先声明，后使用 D）在事件过程或通用过程内定义的变量是局部变量 （34）设有语句：Open"d:\Test.txt" For Output As #1，下列叙述中错误的是（ ）。 A）若 d 盘根目录下无 Test.txt 文件，则该语句创建此文件 B）用该语句建立的文件的文件号为 1 C）该语句打开 d 盘根目录下一个已存在的文件 Test.txt，之后就可以从文件中读取信息 D）执行该语句后，就可以通过 Print #语句向文件 Test.txt 中写入信息 （35）下列叙述中错误的是（ ）。 A）顺序文件中的数据只能按顺序读写 B）对同一个文件，可以用不同的方式和不同的文件号打开 C）执行 Close 语句，可将文件缓冲区中的数据写到文件中 D）随机文件中各记录的长度是随机的 二、填空题（每空 2 分，共 30 分） （1）下列软件系统结构图：

的宽度为【1】。 (2)【2】的任务是诊断和改正程序中的错误。 (3)一个关系表的行称为【3】。 (4)按“先进后出”原则组织数据的数据结构是【4】 (5)数据结构分为线性结构和非线性结构,带链的队列属于【5】 (6)描述“X是小于100的非负整数”的Ⅴ isual basic表达式是【6】。 (7)在窗体上有一个名称为 Command1的命令按钮和一个名称为 TextI的文本框。程序运 行后, Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮 Commandl变为可用。请填空。 Private Sub Form Load Command 1. Enabled=False End Sub Private Sub TextI【7() Commandl Enabled=True End Sub (8)在窗体上画一个名称为 Command的命令按钮,然后编写下列事件过程 Private Sub Commandl Click( Dim a As string a="123456789 For F=l To 5 Next End Sub 程序运行后,单击命令按钮,窗体上的输出结果是 34567 2345678 请填空 (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)。请填空 ption Base 1 Private Sub Form Click() Dim iAs Integer, j As Integer Dim A(1 To 100)As Integer Dim B(I To 10, I To 10)As Integer For F=l To 100 A(Int(Rnd*100) 二级Ⅴ isual basic语言程序设计试卷第9页(共11页)

二级 Visual Basic 语言程序设计试卷 第 9 页（共 11 页） 的宽度为 【1】 。 （2） 【2】 的任务是诊断和改正程序中的错误。 （3）一个关系表的行称为 【3】 。 （4）按“先进后出”原则组织数据的数据结构是 【4】 。 （5）数据结构分为线性结构和非线性结构，带链的队列属于 【5】 。 （6）描述“X 是小于 100 的非负整数”的 Visual Basic 表达式是 【6】 。 （7）在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运 行后，Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。 Private Sub Form_Load( ) Command1.Enabled=False End Sub Private Sub Text1_ 【7】 ( ) Command1.Enabled=True End Sub （8）在窗体上画一个名称为 Command1 的命令按钮，然后编写下列事件过程： Private Sub Command1_Click( ) Dim 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( ) Dim i As Integer, j As Integer Dim A(1 To 100) As Integer Dim B(1 To 10, 1 To 10) As Integer For i=1 To 100 A(i)=Int(Rnd*100)