03-04年全国计算机等级考试二级VB语言笔试试题及答案.doc

2003年4月全国计算机等级考试二级VB语言笔试试题及答案 一、选择题(1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分) 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂 在答题卡的相应位置上，答在试卷上不得分。 (1)以下不能在“工程资源管理器”窗口中列出的文件类型是 A)bas B)res C)fnn D)ocx (2)以下关于窗体的描述中，错误的是 A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中 B)窗体的Ioad事件在加载窗体时发生 C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D)窗体的Height、width属性用于设置窗体的高和宽 (3)下列可作为V2sualBasic变量名的是 A)A#A B)4A C)?xY D)constA (4)设有如下的记录类型 Type Student numberAs string name As String age As Integer End Type 则正确引用该记录类型变量的代码是 A) Studentname=”张红” B) Dim As Student sname”张红” C) Dim s As Type Student D) Dim s As Type Sname=”张红” s.Dame”张红” (5)函数String(n，“str”)的功能是 A)把数值型数据转换为字符串 B)返回由n个字符组成的字符串 C)从字符串中取出n个字符 D)从字符串中第n个字符的位置开始取子字符串 (6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是 A)Cos(a+b)A2十5。exp(2) B)Cos2(a+b)+5*exp(2) C)Cos(a+b)2十5*ln(2) D)Cos2(a+b)+5*ln(2) (7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过 程： PrlVate Sub CommandlC1icko 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)hardwafe D)1 (8)执行如下语句： ainutBox(”Today”，”TomorroW，”Yesterday”,Day before yesterday，5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 A)Today B)Tomorrow C)Yesterday D)Day before yesterday (9)表示滚动条控件取值范围最大值的属性是 A)Max B)LargeChange C)Value D)MaxMin (10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示 若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 A) Private Sub listl_Click() B)Private Sub Listl_C1ick() LabellCaptionlist1.listlndex LabellNanleListllistindex End Sub End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A)空白 B)错误提示 C)北京 D)上海 (15)假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1UCase(Mid(S，i，1)十s1 Next i Funs1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Prlvate Sub Commmldl_Click() Dim Str1 As String，Str2 As String Strlinputbox(”请输入一个字符串”) Str2=Fun(Strl) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确 定”按钮后在窗体上的输出结果为 A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA (16)设有语句 open c：TestDat For OutPut As#1 则以下错误的叙述是 A)该语句打开C盘根目录下一个己存在的文件TestDat B)该语句在C盘根目录下建立一个名为TestDat的文件 C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Print#语句向文件TestDat中写入信息 (17)以下叙述中错误的是 A)用Shell函数可以调用能够在Windows下运行的应用程序 B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数 C)调用Shell函数的格式应为：Shell() D)用Shell函数不能执行DoS命令 (18)以下关于过程及过程参数的描述中，错误的是 A)过程的参数可以是控件名称 B)用数组作为过程的参数时，使用的是“传地址”方式 c)只有函数过程能够将过程中处理的信息传回到调用的程序中 D)窗体可以作为过程的参数 (19)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub Txta_KeyPress(keyascii as integer) End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是 A)单击鼠标 B)双击文本框 C)鼠标滑过文本框 D)按下键盘上的某个键 (20)目录列表框的Path属性的作用是 A)显示当前驱动器或指定驱动器上的路径 B)显示当前驱动器或指定驱动器上的某目录下的文件名 c)显示根目录下的文件名 D)只显示当前路径下的文件 (21)假定有如下事件过程： PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y As Single) If Button2 then PopupMenu popForm End if End Sub 则以下描述中错误的是 A)该过程的功能是弹出一个菜单 B)popForm 是在菜单编辑器中定义的弹出式菜单的名称 C)参数X、Y指明鼠标的当前位置 D)Button=2 表示按下的是鼠标左键 (22)以下能够正确计算n!的程序是 二级Visual Basic语言程序设计试卷第5页 (共15页) A) Private Sub Commandl_ClicK() n5:x1 Do X=x*1 ii十1 Loop While in Print x End Sub B) Private Sub Commandl_Click() n5: x1：i=1 Do XX*1 ii十1 Loop While in Print x End Sub C)Private Sub Commandl_Click() n=5：x1：i1 Do X=X*1 ii十1 Loop while i、13和 14处将程序补充完整。 Private Sub Combol_ (KeyAscii As integer) 1f KeyAscii13 Then Fori0 To Combo1listCount1 1f Combo1Text_ 13 Ihen Label2Caption”输入项己在组合框中” ExIt Sub End lf Next i Label2Caption“已成功添加输入项” Combo1_ 14 CombO1Text End lf End Sub (10)设有如下程序 Private sub search(a()As variant，ByVal key As Variant，index%) Dim I ForILBound(a)To UBound(a) If keya(I) Then indexI Exit Sub End If Next I Index-1 End Sub Private Sub Form_Load() Show Dtm b() As Variant Dim n As Integer bArray(1，3，5，7，9，11，13，15) Call search(b，11，n) Printt n End Sub 程序运行后，输出结果是_。2003年4月全国计算机等级考试二级Visual Basic笔试答案一、选择题1-5：DADBB 6-10：ACCAD 11-15：DBBDD 16-20：ABCDA 21-25：DCBBC 26-30：CCDCA二、填空题(1) 组合框(2) 顺序访问方式(3) 9(4) Picture1.picture=LoadPicture(d:pica.jpg)(5) Timer(6) Rnd和x Mod 5和x(7) 30和70(8) 123456789(9) KeyPress和Combo1.List(i)和AddItem(10) 5 2003年9月全国计算机等级考试二级VB语言笔试试题及答案（考试时间90分钟，满分100分） 一、 选择题（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）窗体文件包含该窗体及其控件的属性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）事件可以由用户引发，也可以由系统引发（6）以下能正确定义数据类型TelBook的代码是A）Type TelBook B）Type TelBookName As String*10 Name As String*10TelNum As Integer TelNum As IntegerEnd Type End TelBookC）Type TelBook D）Typedef TelBookName String*10 Name String*10TelNum Integer TelNum IntegerEnd Type TelBook End Type（7）以下声明语句中错误的是A）Const var1=123 B）Dim var2 = ABCC）DefInt a-z D）Static var3 As Integer（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是A）MouseDown B）MouseUp C）Load D）Click（10）设a=10，b=5，c=1，执行语句Print a %26gt; b %26gt; c后，窗体上显示的是A）True B）False C）1 D）出错信息 （11）如果要改变窗体的标题，则需要设置的属性是 A）Caption B）Name C）BackColor D）BorderStyle（12）以下能判断是否到达文件尾的函数是A）BOF B）LOC C）LOF D）EOF（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）如果工程中含有Sub Main过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体（14）窗体的MouseDown事件过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)有4个参数，关于这些参数，正确的描述是A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数x,y用来设置鼠标当前位置的坐标（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是A）Combo1.RemoveItem TextB）Combo1.RemoveItem 2C）Combo1.RemoveItem 3D）Combo1.RemoveItem Combo1.Listcount（16）以下关于焦点的叙述中，错误的是A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据B）当文本框失去焦点时，触发LostFocus事件C）当文本框的Enabled属性为False时，其Tab顺序不起作用D）可以用TabIndex属性改变Tab顺序（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为A）= B）* C）%26 D）-（18）执行语句Open Tel.dat For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是 A）只能写，不能读 B）只能读，不能写C）既可以读，也可以写 D）不能读，不能写（19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是A）10 B）20 C）30 D）40（20）设有以下循环结构Do循环体Loop While 则以下叙述中错误的是A）若条件是一个为0的常数，则一次也不执行循环体B）条件可以是关系表达式、逻辑表达式或常数C）循环体中可以使用Exit Do语句 D）如果条件总是为True，则不停地执行循环体 （21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num 6Print num;num = num + 2.4LoopEnd Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A）1 3.4 5.8 B）1 3 5C）1 4 7 D）无数据输出（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a1Loop While a c Thend = d + x(i)c = x(i)Elsed = dcEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为A）89 B）99 C）23 D）77（26）在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4 Label6分别显示A、B、A*B等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮计算时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是A）Private Sub Command1_Click()Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)End SubB）Private Sub Command1_Click()Label3.Caption = HScroll1.Value * HScroll2.ValueEnd SubC）Private Sub Command1_Click()Label3.Caption = HScroll1 * HScroll2End SubD）Private Sub Command1_Click()Label3.Caption = HScroll1. Text * HScroll2.TextEnd Sub（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3 0 Then m = m + n 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是A）15 B）18 C）21 D）24（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：Private Sub Form_Load()ShowText1.Text = Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print 程序设计End SubPrivate Sub Text1_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 Command1_Click()Dim sum As Double, x As 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+3/4C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5（30）以下有关数组定义的语句序列中，错误的是A） Static arr1(3) arr1(1) = 100 arr1(2) = Hello arr1(3) = 123.45B）Dim arr2() As Integer Dim size As Integer Private Sub Command2_Click() size = InputBox(输入：) ReDim arr2(size)End SubC）Option Base 1 Private Sub Command3_Click() Dim arr3(3) As Integer End SubD）Dim n As Integer Private Sub Command4_Click()Dim arr4(n) As IntegerEnd Sub 二、填空题（每空2分，共30分）（1）执行下面的程序段后，i的值为 1 ，s的值为 2 。s = 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 Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub程序运行后，如果直接按键盘上的A键（即不按住Shift键），则在窗体上输出的字符分别是 3 和 4 。（3）在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：Private Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 5 End SubPrivate Sub Form_Click()Timer1.Enabled = 6End SubPrivate Sub Timer1_Timer()Label1.Caption = 7End Sub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。 14：54：41 （4）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Privat