04年4VB真题

二级VisualBasic语言程序设计试卷2004年4月第1页，共12页全国计算机等级考试二级笔试试卷VisualBasic语言程序设计（考试时间90分钟，满分100分）2004年4月3日一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。(1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Move500，500EndSub程序运行后，单击命令按钮，执行的操作为A)命令按钮移动到距窗体左边界、上边界各500的位置B)窗体移动到距屏幕左边界、上边界各500的位置C)命令按钮向左、上方向各移动500D)窗体向左、上方向各移动500(2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是A)TabStopB)EnabledC)VisibleD)TabIndex(3)以下定义数组或给数组元素赋值的语句中，正确的是(4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为等级考试武汉服务站@hotmail.comA)DimaAsVarianta=Array(1,2,3,4,5)B)Dima(10)AsIntegera=Array(1,2,3,4,5)C)Dima%(10)a(1)=ABCDED)Dima(3),b(3)AsIntegera(0)=0a(1)=1a(2)=2b=a二级VisualBasic语言程序设计试卷2004年4月第2页，共12页A)Fori=0ToList1.ListCount-1……NextB)Fori=0ToListCount-1……NextC)Fori=1ToList1.listCount……NextD)Fori=1ToListCount……Next(5)以下Case语句中错误的是A)Case0To10B)CaseIs10C)CaseIs10AndIs50D)Case3,5,Is10(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=12345PrintFormat$(a,000.00)EndSub程序运行后，单击命令按钮，窗体上显示的是A)123.45B)12345.00C)12345D)00123.45(10)以下叙述中错误的是A)一个工程可以包括多种类型的文件二级VisualBasic语言程序设计试卷2004年4月第3页，共12页B)VisualBasic应用程序既能以编译方式执行，也能以解释方式执行C)程序运行后，在内存中只能驻留一个窗体D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(11)以下关于函数过程的叙述中，正确的是A)函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中，过程的返回值可以有多个C)当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D)如果不指明函数过程参数的类型，则该参数没有数据类型(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=VisualMe.Text1=BasicText1=ProgramEndSub程序运行后，如果单击命令按钮，则在文本框中显示的是A)VisualB)BasicC)ProgramD)出错(15)以下关系表达式中，其值为False的是A)ABCAbCB)thetheyC)VISUAL=UCase(Visual)D)IntegerInt(16)语句Print5/4*6\5Mod2的输出结果是A)0B)1C)2D)3(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：PrivateSubCommand1_Click()strText=InputBox(请输入)Text1.Text=strTextEndSub二级VisualBasic语言程序设计试卷2004年4月第4页，共12页PrivateSubText1_Change()Label1.Caption=Right(Trim(Text1.Text),3)EndSub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是A)空B)abcdefC)abcD)def(18)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=-5IfSgn(x)Theny=Sgn(x^2)Elsey=Sgn(x)EndIfPrintyEndSub程序运行后，单击命令按钮，窗体上显示的是A)-5B)25C)1D)-1(19)一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句PubilcXAsInteger，在Model1中有语句PubilcYAsInteger，则以下叙述中正确的是A)变量X、Y的作用域相同B)Y的作用域是Model1C)在Form1中可以直接使用XD)在Form2中可以直接使用X和Y(20)在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是A）Drive1_ChangeB)Drive1_ClickC)Dir1_ClickD)Dir1_Change(21)在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimas=0a=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*j二级VisualBasic语言程序设计试卷2004年4月第5页，共12页j=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是A)4321B)1234C)34D)12(22)在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是A)PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii65OrKeyAscii90ThenMsgBox请输入大写字母KeyAscii=0EndIfEndSubB)PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode65OrKeyCode90ThenMsgBox请输入大写字母KeyCode=0EndIfEndSubC)PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfAsc(Text1.Text)65OrAsc(Text1.Text)90ThenMsgBox请输入大写字母EndIfEndSubD)PrivateSubText1_Change()IfAsc(Text1.Text)64AndAsc(Text1.Text)91ThenMsgBox请输入大写字母EndIfEndSub(23)假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：PrivateTypeanimalAnimalNameAsString*20AColorAsString*10EndType在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:二级VisualBasic语言程序设计试卷2004年4月第6页，共12页PrivateSubCommand1_Click()DimrecAsanimalOpenc:\vbTest.datForRandomAs#1Len=Len(rec)rec.animalName=Catrec.aColor=WhitePut#1,,recClose#1EndSub则以下叙述中正确的是A)记录类型animal不能在Form1中定义，必须在标准模块中定义B)如果文件c:\vbTest.dat不存在，则Open命令执行失败C)由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D)语句“Put#1,,rec”将animal类型的两个数据元素写到文件中(24)在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn\2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是A)7236B)10836C)726D)1086(25)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:二级VisualBasic语言程序设计试卷2004年4月第7页，共12页PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4PrintNextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,i)(26)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfjSqr(i)ThenPrintiNextiEndSub该事件过程的功能是A)输出n以内的奇数B)输出n以内的偶数C)输出n以内的素数D)输出n以内能被j整除的数(27)在以下描述中正确的是A)标准模块中的任何过程都可以在整个工程范围内被调用B)在一个窗体模块中可以调用在其他窗体中被