全国计算机等级考试二级VB笔试试卷.docx

《全国计算机等级考试二级VB笔试试卷.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB笔试试卷.docx（99页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2003年9月全国计算机等级考试二级VB语言笔试试卷(含答案)一、选择题(1)(20)每小题2分，(21)(30)每小题3分，共70分)(1)以下叙述中错误的是A) Visual Basic是事件驱动型可视化编程工具B) Visual Basic应用程序不具有明显的开始和结束语句C) Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D) Visual Basic中控件的某些属性只能在运行时设置(2)以下叙述中错误的是A)在工程资源管理器窗口中只能包含一个工程文件及属了该工程的其他文件B)以.BAS为扩展名的文件是标准模块文件C)窗体文件包含该窗体及其

2、控件的属性E) 个工程中可以含有多个标准模块文件(3)以下叙述中错误的是A)双击鼠标可以触发DblClick事件B)窗体或控件的事件的名称可以由编程人员确定C)移动鼠标时，会触发MouscMovc事件D)控件的名称可以由编程人员设定(4)以下不属于Visual Basic系统的文件类型是A) .frm B) .bat C) .vbg D) .vbp(5)以下叙述中错误的是A)打开个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B)保存Visual Basic程序时，应分别保存窗体文件及工程文件C) Visual Basic应用程序只能以解释方式执行D)事件可以由用户引发，也可以由系

3、统引发(6)以卜能正确定义数据类型TelBook的代码是(资料来源：东方教育网)A) Type Tel Book B) Type Tel BookName As String* 10 Name As String* 10TelNum As Integer TelNum As IntegerEnd Type End Tel BookC) Type Tel Book D) Typedef Tel BookName String* 10 Name String* 10TelNum Integer TelNum IntegerEnd Type TelBook EndType(7)以下声明语句41错误的

4、是A) Const varl=123 B) Dim var2 = ABCC) Deflnt a-z D) Static var3 As Integer(8)设窗体上有一个列表框控件Lis选中的列表项内容的是tl,且其中含有若干列表项。则以下能表 示当前被A) List 1.List B) List 1.Listindex C) List 1.Index D) Listl. Text(9)程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是A) MouscDown B) MouscUp C) Load D) Click(10)设a=10, b=5, c=l,执行语句Printabc后，窗体上

5、显示的是A) TrucB) FalseC) 1 D)出错信息(11)如果要改变窗体的标题，则需要设置的属性是A) Caption B) Name C) BackColor D) BorderStyle(12)以下能判断是否到达文件尾的函数是A) BOFB) LOCC) LOFD) EOF(13)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A)如果工程中含有Sub Main过程，则程序一定首先执行该过程B)不能把标准模块设置为启动模块C)用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D)任何时刻最多只有一个窗体是活动窗体(14)窗体的MouseDown事件过程Fonn Mou

6、seDown (ButtSingle)on As Integer, Shift As Integer, X As Single, Y As有4个参数，关于这些参数，正确的描述是A)通过Button参数判定当前按下的是哪个鼠标键B) Shit参数只能用来确定是否按下ShiR键C) Shift参数只能用来确定是否按下Alt和Ctrl键D)参数x,y用来设置鼠标当前位置的坐标(15)设组合框Combol中有3个项目，则以下能删除最后项的语句是A ) Combo 1 .Removeitem TextB) Combo 1 .Removeltem2C) Combol.Removeitem 3D ) Com

7、bo 1 .RcmoveltemCombo 1 .Listcount(16)以下关于焦点的叙述中，错误的是A)如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据B)当文本框失去焦点时，触发LostFocus事件C)当文本框的Enabled属性为False时，其Tab顺序不起作用D)可以用Tabindex属性改变Tab顺序(17)如果要在菜单中添加一个分隔线，则应将其C叩lion属性设置为A) =B) *C) &D)-(18)执行语句Open 数据能够执行的操作是Tel.dat For Random As #1 Len = 50后，对文件Tel.dat中的A)只能写，不能读

8、B)只能读，不能写C)既可以读，也可以写D)不能读，不能写(19)在窗体上画一个本框，然后编写如下事件过名称为Commandl的命令按钮和两程：个名称分别为Tex。、Text2的文Private Sub Command l_Click()n = Text 1.TextSelect Case nCase 1 To 20x= 10Case 2,4, 6x = 20Case Is 6num = num + 2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是A) 1 3.4 5.8 B) 1 35C) 147D)无数据输出(22)在窗体上画一个名称为Commandl的命令按钮，

9、然后编写如下事件过程:Private Sub Command 1 _Click()Dim a As Integer, sAs Integera = 8s = 1Dos = s + aa = a- 1Loop While a c Thenc = x(i)Elsed = d-cEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为A) 89 B) 99 0 23 D) 77(26)在窗体上画两个别为 Label Label!、Labe 显示A、B、A*B”等文 Label3显示A*B的计算结果。当单击命令按钮计算时Label3中。以下不能实现上滚动

10、条，名称分别为 HscrolllBs Label* Label5、Label6,字信息，标签Label】、Label2分。如图所示。当移动滚动框时，对 标签Labell、Label2中显示述功能的事件过程是、Hscroll2；六个标签，名称分其中标签Label4 Label6分别别显示其右侧的滚动条的数值，在相应的标签中显示滚动条的值的两个值求积，并将结 果显示在A) Private Sub Commandl_Click()Labcl3.Caption = Str(Val(Labcl 1 .Caption )*Val( Labcl2.Caption)End SubB) Private Sub

11、Commandl_Click()Labcl3.Caption = HScroll 1 .Value * HScroll2.ValucEnd SubC) Private Sub Command 1 _C1 ick()Labcl3.Caption = HScrolll * HScroll2D) Private Sub Commandl_Click()Label3.Caption = HScrolll. Text * HScroll2.TextEnd Sub(27)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Private Sub Command l_Click()For

12、n = 1 To 20If n Mod 3 o 0 Thenm = m + n 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是A) 15B) 180 21 D) 24(28)在窗体上画一个名称为Textl的文本框，并编写如下程序：Private Sub Form_Load()ShowTextl .Text =Tcxtl.SctFocusEnd SubPrivate Sub Form MouY As Singlc)scUp(Button As Integer, Shift AsInteger, X As Single,Print ”程序设计”End

13、SubPrivate Sub Text 1 _KeyDown(KeyCode As Integer, Shift As Integer)Print Visual Basic;End Sub程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是A) Visual Basic B)程序设计C) A程序设计D) Visual Basic程序设计(29)设有如下程序：Private Sub Command l_Click()Dim sum As Double, xAs Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum +

14、xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是A) 1+1/2+ 2/3+3/4+4/5B) 14-1/2+2/3+3/4C) 1/2+2/3+3/4+4/5 D) 1+1/2+1/3+1/4+1/5（30）以下有关数组定义的语句序列中，错误的是A) Static arrl(3)arrl(l)= 100arrl(2) = wHeUof,arrl(3) = 123.45B) Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_C 1 ick()size = InputBox(输入：”)ReDim

15、arr2(size)End SubC) Option Base 1Private Sub Command3 click()Dim arr3(3) As IntegerEnd SubD) Dim n As IntegerPrivate Sub Command4_C 1 ick()Dim arr4(n) As IntegerEnd Sub二、填空题（每空2分，共30分）（1）执行下面的程序段后，i的值为K1U ，s的值为U23 os = 2Fori = 3.2 To 4.9 Step 0.8S = S + 1Next i(2)把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程

16、：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form KeyPress(KeyAsci i As Integer)Print Chr(KeyAscii)End Sub程序运行后，如果直接分别是K3W和K43 .按键盘上的“A”键(即不按住ShiR键)，则在窗体上 输出的字符(3)在窗体上画一个标签(名称为L写如下几个事件过程：abell)和一个计时器(名称为Timerl), 然后编Private Sub Form_Load()Timcrl

17、.Enabled = FalseTimerl. Interval = U52End SubPrivate Sub Form_Click()Timcrl .Enabled = K6?Private Sub Timerl_Timer()Label 1 .Caption = K73End Sub程序运行后，单击窗体，将在标签中填空。显示当前时间，每隔1秒钟变换一次(见图)。请14： 54： 41(4)在窗体上画一个Labell和Commands然后编文本框、一个标签和一个命令按写如下两个事件 过程：钮，其名称分别为Textl、Private Sub Command 1 _Click()S$ = In

18、putBox(请输入一个字符串“)Textl.Text = SSEnd SubPrivate Sub Textl_Change()Labell.Caption = UCase(Mid(Textl.Text, 7)End Sub程序运行后，单击命令VisualBasic”，则在标签按钮，将显示一个输入对话框，中显示的内容是R8。如果在该对话框中输入字符串(5)在窗体上画,个列表框、个Command 1和Labell,通过属性窗口把列表、”第三个项目、第 四个项目”。程序运钮，即可将所选择的项目删除，并在标签选择”第三个项目”的情况)。下面是实现命令按 钮和一个标签，其名称分别为Listl.框中的

19、项目设置为：”第一个项目“、”第二个项目”行后，在列表框中 选择一个项目，然后单击命令按中显示列表框当前的项目数，运行情况如图所示(上述功能的程序，请填空。Private Sub Command 1 _Click()If List 1.Listindex = E93 ThenList 1 .Removeitem K103Label 1 .Caption = K11 2ElseMsgBox ”请选择要删除的项目”End IfEnd Sub第一个项目第二个项目COMMAND 1第三个项目3(6)设有程序:Option Base 1Private Sub Command l_Click()Dim a

20、rrl, Max as Integerarrl = Array(12, 435, 76, 24, 78, 54, 866, 43)K123 =arrl(l)For i = 1 To 8If arrl(i) Max Then E133Next iPrint 最大值是：；MaxEnd Sub以上程序的功能是：用Array函数建组中元素的最大值。请填空。立一个含有8个元素的数组，然后 查找并输出该数(7)以下程序的功能在文本框Textl中显示出来是：把当前目录下的顺序文件sm。清填空。textl.txt 的内容读入内存，并Private Sub Command l_Click()Dim in Dat

21、a As StringTextl.Text = ,HOpen .smtextl.txt K 143 As #1Do While R15Input #1, inDataTextl.Text = Text 1.Text & inDataLoopClose #1End Sub2003年9月全国计算机等级考试二级VB语言笔试试卷参考答案一、选择题(1) C(2)A(3)B(4)B(5)C(6) A(7)B(8)D(9)C(10)B(11) A(12)D(13)A(14)A(15)B(16) A (17) D (18) C (19) A (20) A(21) B (22) C (23) C (24) A

22、 (25) C(26) D (27) C (28) D (29) C (30) D二、填空题(1) K12 5.6 K23 5(2) C33 A C43 a(3) K52 1000 E63 True E73 Time(4) K82 BASIC(5) K92 0 K 10j Listl.Listindex K11 2 Listl.ListCount(6) K123 Max E133 Max = arrl(i)(7) K143 For Input K153 NotEOF(l)2005年4月全国计算机等级考试二级VB笔试试卷及答案-、选择题(1)(35)每小题2分，共70分)下列各题A)、B)、C)

23、、D)四个选项中，只有个选项是正确的，请将正确选项涂写在答题卡相应位 置上，答在试卷上不得分。(1)数据的存储结构是指A)存储在外存中的数据B)数据所占的存储空间最C)数据在计算机中的顺序存储方式D)数据的逻辑结构在计算机中的表示(2)下列关于栈的描述中错误的是A)栈是先进后出的线性表B)栈只能顺序存储C)栈具有记忆作用D)对栈的插入与删除操作中，不需要改变栈底指针(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A)冒泡排序为n/2B)冒泡排序为nC）快速排序为nD）快速排序为n（n-1）/2（4）对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为

24、A) log2nB） n/2C nD） n1（5）下列对于线性链表的描述中正确的是A）存储空间不一定是连续，且各元素的存储顺序是任意的B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面C）存储空间必须连续，且前件元素一定存储在后件元素的前面D）存储空间必须连续，且各元素的存储顺序是任意的（6）下列对了软件测试的描述中正确的是A）软件测试的目的是证明程序是否正确B）软件测试的目的是使程序运行结果正确C）软件测试的H的是尽可能多地发现程序中的错误D）软件测试的目的是使程序符合结构化原则（7）为了使模块尽可能独立，要求A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程

25、度要尽量高，且各模块间的耦合程度要尽量弱C）模块的内聚程度要尽量低，且各模块间的耦合程度耍尽量弱D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8）下列描述中正确的是A）程序就是软件B）软件开发不受计算机系统的限制C）软件既是逻辑实体，又是物理实体D)软件是程序、数据与相关文档的集合(9)数据独立性是数据库技术的苣要特点之一.所谓数据独立性是指A)数据与程序独立存放B)不同的数据被存放在不同的文件中C)不同的数据只能被对应的应用程序所使用D)以上三种说法都不对(10)用树形结构表示实体之间联系的模型是A)关系模型B)网状模型C)层次模型D)以上三个都是11、在窗体(名称为Forml)

26、上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮， 然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算 机等级考试”。以卜能实现上述操作的事件过程是：A)Private Sub Text1_Change()Commandl .Caption=计算机等级考试”End SubB) Private Sub Command1_Click()Caption= 计算机等级考试”End SubC) Private Sub Form1_Click()Textl .Caption= 计算机等级考试”End SubD) Private Sub Co

27、mmand1_Click()Textl.Textn”计算机等级考试”(12a=5b=4c=3d=2,卜,列表达式的值是3 2* b Or a=c And bc Or cdA)1 B)True C) False D)2(13)设a= MicrosoftVisua旧asic”则以下使变量b的值为VisualBasic”的语句是Ab= Left(a10)B)b=Mid(a10)C)b= Right(a10)D)b=Mid(a1110)(14)假定有如卜的窗体事件过程：Private Sub Form_Click()a$ = MMicrosoft Visual Basicb$ = Right(a$ 5

28、)c = Mid(a$ 1 9)Msg Box a$ 34 b$ c$ 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：A)Microsoft VisualB) MicrosoftC) BasicD)5(15)设2=*=1)4=飞1=(1”执行语句*=饰(m1)28)后,x的值为：A)“ aB)bC)BD)A(16)为了使命令按钮(名称为Commandl)右移200,应使用的语句是A)Command1 .Move -200B) Commandl .Move 200C) Commandl .Left= Commandl .Left200D) Commandl .Le

29、ft= Commandl .Left-200(17)在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = lnputBox(请输入一个整数”)Print x Textl .TextEnd Sub程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单击“确定”按钮后， 在窗体上显示的内容是：A)123B)456C)579D)123456(18)在窗体上画一个文本框和一个计时器控件，名称分别为Tex”和Timer在属性窗口中把计时 器的Interval属性设置为1000, Enabled属性设置为False程序运行后，如果单击命令

30、按钮，则每隔一 秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timeri.End SubPrivate Sub Timer1_Timer()Textl .Text = TimeEnd Sub在 处应填入的内容是A)Enabled=TrueB)Enabled= FalseC)Visible=TrueD)Visible= False(19)假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确 方法是：A)选择图片框，然后按Del键B)执行语句 Picturel .Picture= Load

31、 Pict ure(MW)C)执行语句 Picturel .Picture=D)选择图片框，在属性窗口中选择Picture属性，然后按回车键(20)在窗体上画一个Listl的列表框，一个名称为Labell的标签，列表框中显示若干个项目，当 单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是A) Private Sub List1_Click()Labell .Caption = Listl .ListIndexEnd SubB) Private Sub List1_Click()Labell .Name = Listl .ListIndexLabeH .N

32、ame = Listl .TextEnd SubD) Private Sub List1_Click()LabeH .Caption = Listl .TextEnd Sub(21)在窗体上画一个命令按钮，名称为Commandl,然后编写如卜.事件过程:Private Sub Comm and 1_Click()Dim i As Integer x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i 0 And a 10 And a 20 And a c Thend = d x(i)c = x(i)Elsed = d - cEnd IfNext iP

33、rint dEnd Sub程序运行后如果单击命令按钮则在窗体上输入的内容为A)10B)16C)12D)20(32)设有如卜程序：Private Sub Comm and 1_Click()Dim c As Integer d As Integerc = 4d = lnputBox(请输入一个整数”)Do While d 0If d c Thenc = c 1d = lnputBox(请输入一个整数”)LoopPrint c dEnd Sub程序运行后单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0则输出结 果是：A)12B)11C)10D)9(33)在窗体上画一个名

34、称为Commandl的命令按钮和一个名称为Textl的文本框在文本框中输入 以下字符串：Microsoft Visual Basic Programming然后编写如卜.事件过程：Private Sub Comm and 1_Click()Open d:tempoutf.txtM For Output As # 1For i = 1 To Len(Text1 .Text)c = Mid(Text1 .Text i 1)If c = MA And c = Z ThenPrint # 1 LCase(c)End IfNext iCloseEnd Sub程序运行后单击命令按犯文件outf.txt中的内容是：A)MVBPB)mvbpC)MVBPD)mvbP(34)在窗体上画一个名称为Commandl的命令按钮然后编写如卜.程序:Dim SW As BooleanFunction func(X As Integer) As IntegerIf X 20 ThenY= XElseY= 20 XEnd Iffunc = YPriv