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

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）窗体文件包含该窗体及其控件的属性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 EndType（7）以下声明语句中错误的是A）Const var1=123 B）Dim var2 = ABCC）DefInt a-z D）Static var3 As Integer（8）设窗体上有一个列表框控件Lis选中的列表项内容的是t1，且其中含有若干列表项。则以下能表示当前被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 b c后，窗体上显示的是A）True B）False C）1 D）出错信息（11）如果要改变窗体的标题，则需要设置的属性是A）Caption B）Name C）BackColor D）BorderStyle（12）以下能判断是否到达文件尾的函数是A）BOF B）LOC C）LOFD）EOF（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）如果工程中含有Sub Main过程，则程序一定首先执行该过程B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）任何时刻最多只有一个窗体是活动窗体（14）窗体的MouseDown事件过程Form_MouseDown (ButtSingle)on As Integer, Shift As Integer, X As Single, Y As 有4个参数，关于这些参数，正确的描述是A）通过Button参数判定当前按下的是哪一个鼠标键B）Shift参数只能用来确定是否按下Shift键C）Shift参数只能用来确定是否按下Alt和Ctrl键D）参数x,y用来设置鼠标当前位置的坐标（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是A）Combo1.RemoveItem TextB）Combo1.RemoveItem2C）Combo1.RemoveItem 3D）Combo1.RemoveItemCombo1.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.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, sAs 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）在窗体上画两个别为Label1、Label2、Labe显示A、B、A*B等文Label3 显示A*B的计算结果。当单击命令按钮计算时Label3中。以下不能实现上滚动条，名称分别为Hscroll1l3、Label4、Label5、Label6，字信息，标签Label1、Label2分。如图所示。当移动滚动框时，对标签Label1、Label2中显示述功能的事件过程是、Hscroll2；六个标签，名称分其中标签Label 4 Label6分别别显示其右侧的滚动条的数值，在相应的标签中显示滚动条的值的两个值求积，并将结果显示在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 Thenm = 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_MouY As Single)seUp(Button As Integer, Shift As Integer, X 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, 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+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) = 100arr1(2) = Helloarr1(3) = 123.45B）Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_Click()size = InputBox(输入：)ReDim arr2(size)End SubC）Option Base 1Private Sub Command3_Click()Dim arr3(3) As IntegerEnd SubD）Dim n As IntegerPrivate 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程序运行后，如果直接分别是 3 和 4 。按键盘上的A键（即不按住Shift键），则在窗体上输出的字符（3）在窗体上画一个标签（名称为L写如下几个事件过程：abel1）和一个计时器（名称为Timer1），然后编Private Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 5End SubPrivate Sub Form_Click()Timer1.Enabled = 6End SubPrivate Sub Timer1_Timer()Label1.Caption = 7End Sub程序运行后，单击窗体，将在标签中填空。显示当前时间，每隔1秒钟变换一次（见图）。请14：54：41（4）在窗体上画一个Label1和Command1，然后编文本框、一个标签和一个命令按写如下两个事件过程：钮，其名称分别为Text1、Private Sub Command1_Click()S$ = InputBox(请输入一个字符串)Text1.Text = S$End SubPrivate Sub Text1_Change()Label1.Caption = UCase(Mid(Text1.Text, 7)End Sub程序运行后，单击命令VisualBasic，则在标签按钮，将显示一个输入对话框，中显示的内容是 8 。如果在该对话框中输入字符串（5）在窗体上画一个列表框、一个Command1和Label1，通过属性窗口把列表、第三个项目、第四个项目。程序运钮，即可将所选择的项目删除，并在标签选择第三个项目的情况)。下面是实现命令按钮和一个标签，其名称分别为List1、框中的项目设置为：第一个项目、第二个项目行后，在列表框中选择一个项目，然后单击命令按中显示列表框当前的项目数，运行情况如图所示(上述功能的程序，请填空。Private Sub Command1 _Click()If List1.ListIndex = 9 ThenList1.RemoveItem 10Label1.Caption = 11ElseMsgBox 请选择要删除的项目End IfEnd Sub 第一个项目第二个项目 COMMAND1第三个项目 3（6）设有程序：Option Base 1Private Sub Command1_Click()Dim arr1, Max as Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)（资料来源：东方教育网 )12 = arr1(1)For i = 1 To 8If arr1(i) Max Then 13Next iPrint 最大值是: ; MaxEnd Sub以上程序的功能是：用Array函数建组中元素的最大值。请填空。立一个含有8个元素的数组，然后查找并输出该数（7）以下程序的功能在文本框Text1中显示出来是：把当前目录下的顺序文件sm。请填空。text1.txt的内容读入内存，并Private Sub Command1_Click()Dim inData As StringText1.Text = Open .smtext1.txt14 As #1Do While 15Input #1, inDataText1.Text = Text1.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 （25）C（26）D （27）C （28）D （29）C （30）D二、 填空题（1） 1 5.6 2 5（2） 3 A 4 a（3） 5 1000 6 True 7 Time（4） 8 BASIC（5） 9 0 10List1.ListIndex 11 List1.ListCount（6） 12 Max 13 Max = arr1(i)（7） 14 For Input 15 Not EOF(1)）2005年4月全国计算机等级考试二级VB笔试试卷及答案一、选择题(1)(35)每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。(1)数据的存储结构是指A) 存储在外存中的数据B) 数据所占的存储空间量C) 数据在计算机中的顺序存储方式D) 数据的逻辑结构在计算机中的表示(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)存储空间必须连续，且前件元素一定存储在后件元素的前面D)存储空间必须连续，且各元素的存储顺序是任意的(6)下列对于软件测试的描述中正确的是A)软件测试的目的是证明程序是否正确B)软件测试的目的是使程序运行结果正确C)软件测试的目的是尽可能多地发现程序中的错误D)软件测试的目的是使程序符合结构化原则(7)为了使模块尽可能独立，要求A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强(8)下列描述中正确的是A) 程序就是软件B) 软件开发不受计算机系统的限制C) 软件既是逻辑实体，又是物理实体D) 软件是程序、数据与相关文档的集合(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A) 数据与程序独立存放B) 不同的数据被存放在不同的文件中C) 不同的数据只能被对应的应用程序所使用D) 以上三种说法都不对(10) 用树形结构表示实体之间联系的模型是A) 关系模型B) 网状模型C) 层次模型D) 以上三个都是11、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：A)Private Sub Text1_Change()Command1.Caption=”计算机等级考试”End SubB) Private Sub Command1_Click()Caption=”计算机等级考试”End SubC) Private Sub Form1_Click()Text1.Caption=”计算机等级考试”End SubD) Private Sub Command1_Click()Text1.Text=”计算机等级考试”End Sub(12)设a=5b=4c=3d=2，下列表达式的值是32*b Or a=c And bc Or cdA)1B)TrueC)FalseD)2(13)设a=”MicrosoftVisualBasic” 则以下使变量b的值为”VisualBasic”的语句是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)MsgBox a$ 34 b$ c$ 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：A)Microsoft VisualB)MicrosoftC)BasicD)5(15)设a=”a”b=”b”c=”c”d=”d”执行语句x=Iif(ad)”A”B”)后，x的值为：A)”a”B)”b”C)”B”D)”A”(16)为了使命令按钮(名称为Command1)右移200，应使用的语句是A)Command1.Move -200B) Command1.Move 200C) Command1.Left= Command1.Left200D) Command1.Left= Command1.Left-200(17)在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox(请输入一个整数)Print x Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：A)123B)456C)579D)123456（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timer1._End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在_处应填入的内容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：A)选择图片框，然后按Del键B)执行语句Picture1.Picture=LoadPicture(“”)C)执行语句Picture1.Picture=”D)选择图片框，在属性窗口中选择Picture属性，然后按回车键（20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是A) Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd SubB) Private Sub List1_Click()Label1.Name = List1.ListIndexEnd SubC) Private Sub List1_Click()Label1.Name = List1.TextEnd SubD) Private Sub List1_Click()Label1.Caption = List1.TextEnd Sub（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：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 Command1_Click()Dim c As Integer d As Integerc = 4d = InputBox(请输入一个整数)Do While d 0If d c Thenc = c 1End Ifd = InputBox(请输入一个整数)LoopPrint c dEnd Sub程序运行后单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0则输出结果是:A)12B)11C)10D)9(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框在文本框中输入以下字符串:Microsoft Visual Basic Programming然后编写如下事件过程:Private Sub Command1_Click()Open d:tempoutf.txt For Output As #1For i = 1 To Len(Text1.Text)c = Mid(Text1.Text i 1)If c = A And c = Z ThenPrint #1 LCase(c)End IfNext iCloseEnd Sub程序运行后单击命令按狃文件outf.txt中的内容是:A)MVBPB)mvbpC)MVBPD)mvbp(34)在窗体上画一个名称为Command1的命令按钮然后编写如下程序:Dim SW As BooleanFunction func(X As Integer) As IntegerIf X 20 ThenY = XElseY = 20 XEnd Iffunc = YEnd FunctionPrivate Sub Command1_Click()Dim intNum As IntegerintNum = InputBox()If SW ThenPrint func(intNum)End IfEnd SubPrivate Sub Form_MouseDown(Button As Integer Shift As Integer X As Single Y As Single)SW = FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer Shift As Integer X As Single Y As Single)SW = TrueEnd Sub程序运行后单击命令按钮将显示一个输入对话框如果在对话框中输入25则程序的执行结果是:A)输出0B)输出25C)输出45D)无任何输出(35) 设有如下通用过程:Public Sub fun(a() As Integer x As Integer)F