《二级VB笔试试卷全国计算机等级考试.docx》由会员分享，可在线阅读，更多相关《二级VB笔试试卷全国计算机等级考试.docx（103页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
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、其控件的属性D)一个工程中可以含有多个标准模块文件(3)以下叙述中错误的是A)双击鼠标可以触发DblClick事件B)窗体或控件的事件的名称可以由编程人员确定C)移动鼠标时，会触发MouseMove事件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 TelBook B) Type TelBookName As String* 10 Name As String* 10TelNum As Integer Tel Num As IntegerEnd Type End TelBookC) Type TelBook D) Typedef TelBookName String* 10 Name String* 1()TelNum Integer TelNum IntegerEnd Type TelBook EndType(7)以下声明语句中错误
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) List 1. Text(9)程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是A) MouseDown B) MouseUp C) Load D) Click(10)设a=10, b=5 c =1,执行语句Print a b
5、 c后，窗体上显示的是A) True B) False C) 1 D)出错信息(11)如果要改变窗体的标题，则需要设置的属性是A) Caption B ) Name C) BackColor D) BorderStyle(12)以下能判断是否到达文件尾的函数是A) BOFB) LOCO LOFD) EOF(13)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A)如果工程中含有Sub Main过程，则程序一定首先执行该过程B)不能把标准模块设置为启动模块C)用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D)任何时刻最多只有一个窗体是活动窗体(14)窗体的MouseDown事件过
6、程Form_MouseDown (ButtSingle)on As Integer, Shift As Integer, X As Single, Y As有4个参数，关于这些参数，正确的描述是A)通过Button参数判定当前按下的是哪一个鼠标键B) Shifl参数只能用来确定是否按下Shift键C) Shift参数只能用来确定是否按下Alt和Ctrl键D)参数x,y用来设置鼠标当前位置的坐标(15)设组合框Combol中有3个项目，则以下能删除最后一项的语句是A) Combo 1 .Removeitem TextB) Combo 1 .Removeltem2C) Combo 1 .Remov
7、eitem 3D) Combo 1 .RemoveltemCombo 1 .Listcount(16)以下关于焦点的叙述中，错误的是A)如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据B)当文本框失去焦点时，触发LostFocus事件C)当文本框的Enabled属性为False时，其Tab顺序不起作用D)可以用Tabindex属性改变Tab顺序(17)如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A) =B) *C) &D)-(18)执行语句Open 数据能够执行的操作是Tel.dat For Random As #1 Len = 50后，对文件Tel.
8、dat中的A)只能写，不能读B)只能读，不能写C)既可以读，也可以写D)不能读，不能写(19)在窗体上画一个本框，然后编写如下事件过名称为Commandl的命令按钮和两程：个名称分别为Textl、Text2的文Private Sub Commandl_CIick()n = Text 1.TextSelect Case nCase 1 To 20x= 10Case 2,4, 6x = 20Case Is 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文内容是本框Textl中输入10,然后单击命令按钮，则在Text2中显示
9、的A) 10B) 20 0 30 D) 40(20)设有以下循环结构Do循环体Loop While 6Print num;num = num + 2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是A) 1 3.45.8 B) 1 35C) 1 47D)无数据输出(22)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Private Sub Commandl_CIick()Dim a As Integer, sAs Integera = 8s = 1Dos = s + aa = a- 1Loop While a c Thend = d + x(i)c
10、 = x(i)Elsed = d-cEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为A) 89 B) 99 0 23 D) 77(26)在窗体上画两个别为 Labell、Label2 Labe 显示“A“、”B、“A*B”等文 Label3显示A*B的计算结果。当单击命令按钮“计算”时Label3中。以下不能实现上滚动条，名称分别为 HscroH113、Label4、Label5、Label6,字信息，标签Labe、Labe】2分。如图所示。当移动滚动框时，对 标签Labell、Label2中显示述功能的事件过程是、Hscro112；六个
11、标签，名称分其中标签Label4Label6分别别显示其右侧的滚动条的数值，在相应的标签中显示滚动条的值的两个值求积，并将结 果显示在A) Private Sub Command l_Click()Label3.Caption = Str(VaI(Label 1 .Caption )*Val( LabeI2.Caption)End SubB) Private Sub Command 1 _Click()Labcl3.Caption = HScrolH .Value * HScroll2.ValueEnd SubC) Private Sub Command l_Click()Label3.Cap
12、tion = HScroll 1 * HScrolI2D) Private Sub Command 1 _Click()Label3.Caption = HScroll 1. Text * HScroll2.TextEnd Sub(27)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Private Sub Command l_Click()For n = 1 To 20If n Mod 3 0 Thenm = m + n 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是A) 15B) 180 21 D) 24(28)在窗体上画
13、一个名称为Textl的文本框，并编写如下程序：Private Sub Form_Load()ShowTextl.Text = ,M,Textl.SetFocusEnd SubPrivate Sub Form_MouY As Single)seUp(Button As Integer, Shift AsInteger, X As Single,(资料来源：东方教育网)Print ”程序设计”End SubPrivate Sub Text l_KeyDown(KeyCode As Integer, Shift As Integer)Print Visual Basic;End Sub程序运行后，如
14、果按“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 + xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是A) 1 + 1/2+2/3+3/4+4/5 B) 1 +1/2+2/3+3Z4C) 172+2/3+3/4+4/5 D) 1
15、 + 1/2+1/3+1/4+1/5（30）以下有关数组定义的语句序列中，错误的是A) Static arrl(3)arrl(l)= 100arr 1(2) = Hello”arrl(3)= 123.45B) Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_C 1 ick()size = InputBox(输入：)ReDim arr2(size)End SubC) Option Base 1Private Sub Command3_Click()Dim arr3(3) As IntegerEnd SubD ) Dim n
16、 As IntegerPrivate Sub Command4_Click()Dim arr4(n) As IntegerEnd Sub二、填空题（每空2分，共30分）(1)执行下面的程序段后，i的值为Ki1，s的值为K23 os = 2For i = 3.2 To 4.9 Step 0.8s = s + 1Next i(2)把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub
17、Forni_ Key Pre s s( Key Asc i i As Integer)Print Chr(KeyAscii)End Sub程序运行后，如果直接分别是H33和K42。按键盘上的键(即不按住Shift键)，则在窗体上 输出的字符(3)在窗体上画一个标签(名称为L写如下几个事件过程：abell)和一个计时器(名称为Time ), 然后编Private Sub Fonn_Load()Timer 1.Enabled = FalseTimer 1.Interval = U53End SubPrivate Sub Form_Click()Timer 1.Enabled = K63Privat
18、e Sub Timerl_Timer()Label 1 .Caption = 73End Sub程序运行后，单击窗体，将在标签中填空。显示当前时间，每隔1秒钟变换一次(见图)。请14： 54： 41(4)在窗体上画一个Labell和Command 1,然后编文本框、一个标签和一个命令按写如下两个事件 过程：钮，其名称分别为Textl、Private Sub Command 1 _Click()S$ = InputBox(请输入一个字符串”)Textl.Text = S$End SubPrivate Sub Textl_Change()Labell.Caption = UCase(Mid(Tex
19、t 1 .Text, 7)End Sub程序运行后，单击命令VisualBasic”，则在标签按钮，将显示一个输入对话框，中显示的内容是K8 3。如果在该对话框中输入字符串(5)在窗体上画一个列表框、一个Commandl和Labell,通过属性窗口把列表、第三个项目、第 四个项口。程序运钮，即可将所选择的项目删除，并在标签选择”第三个项目的情况)。下面是实现命令按 钮和一个标签，其名称分别为Listl、框中的项目设置为：,第一个项目、”第二个项目行后，在列表框中 选择一个项口，然后单击命令按中显示列表框当前的项口数，运行情况如图所示(上述功能的程序，请填空。Private Sub Comman
20、dl _Click()If List 1.Listindex = K92 ThenListl.Rcmoveltcm K102Label 1 .Caption = K112ElseMsgBox ”请选择要删除的项口”End IfEnd Sub第一个项目第二个项目COMMAND)第三个项目3(6)设有程序：Option Base 1Private Sub Command l_Click()Dim arrl, Max as Integerarrl = Array。2,435, 76, 24, 78, 54, 866, 43)(资料来源：东方教育网)C123 =arrl(l)For i = 1 To
21、8If arrl(i) Max Then K133Next iPrint ”最大值是：；MaxEnd Sub以上程序的功能是：用Array函数建组中元素的最大值。请填空。立一个含有8个元素的数组，然后 查找并输出该数(7)以下程序的功能在文本框Textl中显示出来是：把当前目录下的顺序文件sm。请填空。textl.txt 的内容读入内存，并Private Sub Command 1 _Click()Dim inData As StringTextl.Text = ,M,Open H.smtextLtxt Kl43 As #1Do While K152Input #1, inDataTextl.
22、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(IDA(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 (25) C(26) D (27) C (28) D (29) C (30) D二、填空题(1) Cl35.6 K23 5(2) K33A K43 a(3) K531000 K6
23、3 True71Time(4) K83BASIC(5) K930 K103 List 1.ListindexRll List 1.ListCount(6) K123 Max 133 Max = arrl(i)(7) K143 For Input 152 Not EOF(l)2005年4月全国计算机等级考试二级VB笔试试卷及答案一、选择题(1)(35)每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位 置上，答在试卷上不得分。(1)数据的存储结构是指A)存储在外存中的数据B)数据所占的存储空间量C)数据在计算机中的顺序存储方式D)
24、数据的逻辑结构在计算机中的表示(2)下列关于栈的描述中错误的是A)栈是先进后出的线性表B)栈只能顺序存储C)栈具有记忆作用D)对栈的插入与删除操作中，不需要改变栈底指针(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A)冒泡排序为n/2B)冒泡排序为nC）快速排序为nD）快速排序为n（n-1）/2（4）对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为A) log2nB） n/2C） nD） n1（5）下列对于线性链表的描述中正确的是A）存储空间不一定是连续，且各元素的存储顺序是任意的B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面C）
25、存储空间必须连续，且前件元素一定存储在后件元素的前面D）存储空间必须连续，且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是A）软件测试的目的是证明程序是否正确B）软件测试的目的是使程序运行结果正确C）软件测试的目的是尽可能多地发现程序中的错误D）软件测试的目的是使程序符合结构化原则（7）为了使模块尽可能独立，要求A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8）下列描述中正确的是A）程序就是软件B）软
26、件开发不受计算机系统的限制C）软件既是逻辑实体，又是物理实体D)软件是程序、数据与相关文档的集合(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A)数据与程序独立存放B)不同的数据被存放在不同的文件中C)不同的数据只能被对应的应用程序所使用D)以上三种说法都不对(10)用树形结构表示实体之间联系的模型是A)关系模型B)网状模型C)层次模型D)以上三个都是11、在窗体(名称为Forml)上画一个名称为Textl的文本框和一个名称为CommancH的命令按钮， 然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算 机等级考试“。以下能实现上述
27、操作的事件过程是：A)Private Sub Text1_Change()Commandl .Caption-r算机等级考试”End SubB) Private Sub Command 1_Click()Caption=计算机等级考试”End SubC) Private Sub Form1_Click()Textl .Caption=计算机等级考试”End SubD) Private Sub Command1_Click()Textl .Text=计算机等级考试”(12)设a=5b=4c=3d=2,下列表达式的值是32*b Or a=c And boc Or cdA)1 B)True C)Fa
28、lse D)2(13)设a=MMicrosoftVisualBasicM则以下使变量b的值为“Visua旧asic”的语句是A)b=Left(a10)B)b=Mid(a10)C)b=Right(a10)D)b=Mid(a1110)(14)假定有如下的窗体事件过程：Private Sub Form_Click()a$ = Microsoft Visual Basicb$ = Right(a$ 5)c = Mid(a$ 1 9)Msg Box a$ 34 b$ c$ 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：A)Microsoft VisualB)Microso
29、ftC) BasicD)5(15)设2=、朋=归七=0(=刀”执行语句x=Hf(ad)“A“B)后,x的值为：A)“aB)“bC)“BD)“A(16)为了使命令按钮(名称为Commandl)右移200,应使用的语句是A)Command1 .Move -200B) Commandl .Move 200C) Commandl .Left= Commandl .Left200D) Commandl .Left= Commandl .Le代-200E) 7)在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = lnputBox(请输入一个整数”)Print
30、 x Textl .TextEnd Sub程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单击“确定”按钮后， 在窗体上显示的内容是：A)123B)456C)579D) 123456(18)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Timer1在属性窗口中把计时 器的Interval属性设置为1000, Enabled属性设置为False程序运行后，如果单击命令按钮，则每隔一 秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timeri.End SubPrivate Sub Time
31、r1_Timer()Textl .Text = TimeEnd Sub在 处应填入的内容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确 方法是：A)选择图片框，然后按Del键B)执行语句 Picturel .Picture=LoadPicture(MM)C)执行语句 Picturel .Picture=,M,D)选择图片框，在属性窗口中选择Picture属性，然后按回车键(20)在窗体上画一个Lis”的列表框，一个名称为Lab
32、ell的标签，列表框中显示若干个项目，当 单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是A) Private Sub List1_Click()Label 1 .Caption = Listl .ListindexEnd SubB) Private Sub List1_Click()LabeH .Name = Listl .ListindexLabell .Name = Listl.TextEnd SubD) Private Sub List1_Click()Labell .Caption = Listl .TextEnd Sub(21)在窗体上画一个
33、命令按钮，名称为CommancH ,然后编写如下事件过程:Private Sub Command1_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 iPrint dEnd Sub程序运行后如果单击命令按钮则在窗体上输入的内容为A)10B)16C)12D)20(32)设有如下程序：Private Sub Command 1_Click()Dim c A
34、s 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)在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框在文本框中输入 以下字符串：Microsoft Visual Basic Programming然后编写如下事件过程：Private Sub Command 1_Click()Open d:tempoutf.txt” For Output As #1For i = 1 To Len(Text1 .Text)c = Mid(Text1 .Text i 1)If c = AM And c = Z ThenPrint #1 LCase(c)End IfNext iClose程序运行后单击命令按科文件outf.txt中的内容是：A)MVBPB)mvbpC)MVBPD)mvbP(34)在窗体上画一个名称为Commandl的命令按钮然后编写如下程序:Dim SW As