2004年4月全国计算机等级考试二级VB语言笔试试题及答案

2004年4月全国计算机等级考试二级VB语言笔试试题及答案

2004年4月全国计算机等级考试二级VB语言笔试试题及答案一、选择题(1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　Move500，500　　EndSub　　程序运行后，单击命令按钮，执行的操作为　　A)命令按钮移动到距窗体左边界、上边界各500的位置　　B)窗体移动到距屏幕左边界、上边界各500的位置　　C)命令按钮向左、上方向各移动500　　D)窗体向左、上方向各移动500　　(2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是　　A)TabStopB)Enabled　C)VisibleD)TabIndex(3)以下定义数组或给数组元素赋值的语句中，正确的是A)DimaasVarientB)Dima（10）asInteger　a=Array(1,2,3,4,5)a=Array(1,2,3,4,5)C)Dima％（10）D)Dima（3）,b（3）asinteger　a(1)="ABCDE"a(0)=0　　　　　　　　　　　　　a(1)=1　　　　　　　　　　　　　a(2)=2　　　　　　　　　　　　　b=a　　(4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为　　A)Fori=0ToList1.ListCount-1　　……　　Next　　B)Fori=0ToListCount-1　　……　　Next　　C)Fori=1ToList1.listCount　　……　　Next　　D)Fori=1ToListCount　　……　　Next　　(5)以下Case语句中错误的是A)Case0To10B)CaseIs>10nC)CaseIs>10AndIs<50D)Case3,5,Is>10　　(6)以下关于图片框控件的说法中，错误的是　　A)可以通过Print方法在图片框中输出文本　　B)清空图片框控件中图形的方法之一是加载一个空图形　　C)图片框控件可以作为容器使用　　D)用Stretch属性可以自动调整图片框中图形的大小　　(7)执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是　　A)VisualB)BasicC)6D)11　　(8)以下叙述中错误的是　　A)下拉式菜单和弹出式菜单都用菜单编辑器建立　　B)在多窗体程序中，每个窗体都可以建立自己的菜单系统　　C)除分隔线外，所有菜单项都能接收Click事件　　D)如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见　　(9)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　a=12345　　PrintFormat$(a,"000.00")　　EndSub　　程序运行后，单击命令按钮，窗体上显示的是　　A)123.45B)12345.00C)12345D)00123.45　　(10)以下叙述中错误的是　　A)一个工程可以包括多种类型的文件　　B)VisualBasic应用程序既能以编译方式执行，也能以解释方式执行　　C)程序运行后，在内存中只能驻留一个窗体　　D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(11)以下关于函数过程的叙述中，正确的是　　A)函数过程形参的类型与函数返回值的类型没有关系　　B)在函数过程中，过程的返回值可以有多个　　C)当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递　　D)如果不指明函数过程参数的类型，则该参数没有数据类型　n　(12)以下关于变量作用域的叙述中，正确的是　　A)窗体中凡被声明为Private的变量只能在某个指定的过程中使用　　B)全局变量必须在标准模块中声明　　C)模块级变量只能用Private关键字声明　　D)Static类型变量的作用域是它所在的窗体或模块文件　　(13)确定一个控件在窗体上的位置的属性是　　A)Width和HeightB)Width或HeightC)Top和LeftD)Top或Left　　(14)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程　　PrivateSubCommand1_Click()　　Text1.Text="Visual"　　Me.Text1="Basic"　　Text1="Program"　　EndSub　　程序运行后，如果单击命令按钮，则在文本框中显示的是　　A)VisualB)BasicC)ProgramD)出错　　(15)以下关系表达式中，其值为False的是　　A)"ABC">"AbC"B)"the"<>"they"　C)"VISUAL"=UCase("Visual")D)"Integer">"Int"　　(16)语句Print5/4*65Mod2的输出结果是　　A)0B)　1C)2D)3　　(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：　　PrivateSubCommand1_Click()　　　　strText=InputBox("请输入")　　　　Text1.Text=strText　　EndSub　　PrivateSubText1_Change()　　　　Label1.Caption=Right(Trim(Text1.Text),3)　　EndSub　　程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是n　　A)空B)abcdefC)abcD)def　　(18)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　x=-5　　IfSgn(x)Then　　　　y=Sgn(x^2)　　Else　　　　y=Sgn(x)　　EndIf　　Printy　　EndSub　　程序运行后，单击命令按钮，窗体上显示的是　　A)-5B)25C)1D)-1　　(19)一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句PubilcXAsInteger，在Model1中有语句PubilcYAsInteger，则以下叙述中正确的是　　A)变量X、Y的作用域相同B)Y的作用域是Model1　　C)在Form1中可以直接使用XD)在Form2中可以直接使用X和Y　　(20)在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是　　A）Drive1_ChangeB)Drive1_Click　　C)Dir1_ClickD)Dir1_Change(21)在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:　　OptionBase1　　PrivateSubCommand1_Click()　　Dima　　s=0　　a=Array(1,2,3,4)　　j=1　　Fori=4To1Step-1　　s=s+a(i)*j　　j=j*10　　Nexti　　Printsn　　EndSub　　运行上面的程序，单击命令按钮，其输出结果是　　A)4321B)1234C)34D)12　　(22)在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是　　A)PrivateSubText1_KeyPress(KeyAsciiAsInteger)　　IfKeyAscii<65OrKeyAscii>90Then　　MsgBox"请输入大写字母"　　KeyAscii=0　　EndIf　　EndSub　　B)PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)　　IfKeyCode<65OrKeyCode>90Then　　MsgBox"请输入大写字母"　　KeyCode=0　　EndIf　　EndSub　　C)PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　IfAsc(Text1.Text)<65OrAsc(Text1.Text)>90Then　　MsgBox"请输入大写字母"　　EndIf　　EndSub　　D)PrivateSubText1_Change()　　IfAsc(Text1.Text)>64AndAsc(Text1.Text)<91Then　　MsgBox"请输入大写字母"　　EndIf　　EndSub　　(23)假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：　　PrivateTypeanimal　　AnimalNameAsString*20　　AColorAsString*10　　EndType　　在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:　　PrivateSubCommand1_Click()n　　DimrecAsanimal　　Open"c:vbTest.dat"ForRandomAs#1Len=Len(rec)　　rec.animalName="Cat"　　rec.aColor="White"　　Put#1,,rec　　Close#1　　EndSub　　则以下叙述中正确的是　　A)记录类型animal不能在Form1中定义，必须在标准模块中定义　　B)如果文件c:vbTest.dat不存在，则Open命令执行失败　　C)由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾　　D)语句“Put#1,,rec”将animal类型的两个数据元素写到文件中　　(24)在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：　　PrivateSubCommand1_Click()　　n=Val(Text1.Text)　　Ifn2=n/2Then　　f=f1(n)　　Else　　f=f2(n)　　EndIf　　Printf;n　　EndSub　　　PublicFunctionf1(ByRefx)　　x=x*x　　f1=x+x　　EndFunction　　　　PublicFunctionf2(ByValx)　　x=x*x　　f2=x+x+x　　EndFunction　　程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是　　A)7236B)10836C)726D)1086n　　(25)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:　　PrivateSubCommand1_Click()　　c=1234　　c1=Trim(Str(c))　　Fori=1To4　　Print　　　Next　　EndSub　　程序运行后，单击命令按钮，要求在窗体上显示如下内容　　1　　12　　123　　1234　　则在下划线处应填入的内容为　　A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,i)　　(26)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：东方教育网提供Http://www.eastedu.com.cn　　PrivateSubCommand1_Click()　　n=Val(Text1.Text)　　Fori=2Ton　　Forj=2Tosqr(i)　　IfiModj=0ThenExitFor　　Nextj　　Ifj>Sqr(i)ThenPrinti　　Nexti　　EndSub　　该事件过程的功能是　　A)输出n以内的奇数B)输出n以内的偶数　　C)输出n以内的素数D)输出n以内能被j整除的数　　(27)在以下描述中正确的是　　A)标准模块中的任何过程都可以在整个工程范围内被调用　　B)在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程　　C)如果工程中包含SubMain过程，则程序将首先执行该过程　　D)如果工程中不包含SubMain过程，则程序一定首先执行第一个建立的窗体　n　(28)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：　　PrivateFunctionf(mAsInteger)　　IfmMod2=0Then　　f=m　　Else　　f=1　　EndIf　　EndFunction　　PrivateSubCommand1_Click()　　DimiAsInteger　　s=0　　Fori=1To5　　s=s+f(i)　　Next　　Prints　　EndSub　　程序运行后，单击命令按钮，在窗体上显示的是　　A)11B)10C)9D)8　　(29)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　Dimarray1(10,10)AsInteger　　DimiAsInteger,jAsInteger　　Fori=1To3　　Forj=2To4　　array1(i,j)=i+j　　Nextj　　Nexti　　Text1.Text=array1(2,3)+array1(3,4)　　EndSub　　程序运行后，单击命令按钮，在文本框中显示的值是　　A)15B)14C)13D)12　　(30)在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：n　　PrivateSubCommand1_Click()　　ForEachTextBoxInText1　　Text1(i)=Text1(i).Index　　i=i+1　　Next　　EndSub　　程序运行后，单击命令按钮，四个文本框中显示的内容分别为　　A)0　1　2　3B)1　2　3　4　　C)0　1　3　2D)出错信息　　二、填空题(每空2分，共30分)　　请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。　　(1)VisualBasic应用程序中标准模块文件的扩展名是【1】。　　(2)在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。　　PrivateSubForm【2】(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　IfButton=2Then　　【3】mnuEdit　　EndIf　　EndSub　　(3)为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】属性设置为【5】　。　　(4)与数学表达式对应的VisualBasic表达式是【6】　。　　(5)将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【7】　。　　(6)在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。　　　　PrivateSubOption1_Click(IndexAsInteger)　　SelectCase【8】　　Case0　　a="宋体"　　Case1　　a="黑体"　　Case2　　a="楷体＿GB2312"　　EndSelect　　text1.【9】　=a　　EndSubn　　(7)在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。　　　　PrivateSubCombo1_Click()　　CallShowItem(Combo1,Label1)　　EndSub　　　　PrivateSubCombo2_Click()　　CallShowItem(Combo2,Label2)　　EndSub　　　　PublicSubShowItem(tmpComboAsComboBox,tmpLabelAsLabel)　　【10】.Caption=【11】.Text　　EndSub　　（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：　　PrivateSubCommand1_Click()　　n=5　　f=1　　s=0　　Fori=1Ton　　f=f【12】　　s=s+f　　Next　　Prints　　EndSub　　该事件过程的功能是计算的值。请填空。　　（9）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：　　OptionBase1　　PrivateSubCommand1_Click()　　Dima(10)AsInteger　　Fori=1To10　　a(i)=i　　Next　　Callswap（　【13】　）　　Fori=1To10　　Printa(i);　　Next　　EndSub　　Subswap(b()AsInteger)　　n=【14】　　Fori=1Ton/2　　t=b(i)　　b(i)=b(n)n　　b(n)=t　　【15】　　Next　　EndSub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。2004年4月全国计算机等级考试二级VB语言笔试试题答案一、选择题（(1)-(20)每小题2分，(21)-(30)每小题2分，共70分）1-5BDAAC6-10DCDBC11-15ABCDA16-20BDCCA21-25BACAB26-30CACDA二、填空题(每空2分，共30分)(1)【1】.bas(2)【2】mousedown【3】popupmenu(3)【4】interval【5】500(4)【6】(cos(a+b))^2/(3*x)+5(5)【7】Picture1.picture=loadpicture("c:moon.jpg")(6)【8】index【9】font(7)【10】tmplabel【11】tmpCombo(8)【12】*(1/i)(9)【13】a()【14】ubound(b)【15】n=n-1