全国计算机二级VB笔试试题总结

2002年4月二级VB笔试试题一、选择题1〜35题每题2分，共70分。下列各题A)、B)、C)、D)四个选项中，只有一个选择是正确的，请将正确选项涂写在答题卡相应位置匕答在试卷上不得分。.下列不能打开属性窗口的操作是()oA)执行“视图”菜单中的“属性窗口”命令B)按F4键C)按Ctrl+TD)单击工具栏上的“属性窗口”按钮。.下列可以打开立即窗口的操作是().A)Ctrl+DB)Ctrl+EC)Ctrl+FD)Ctrl+G.InputBox函数返回值的类型为()=A)数值B)字符串C)变体D)数值或字符串(视输入的数据而定).可以同时删除字符串前导和尾部空白的函数是()oA)LtrimB)RtrimC)TrimD)Mid.表达式4+56*7/8Mod9的值是().A)4B)5C)6D)7.如果在立即窗口中执行以下操作：a=8<CR> (vCR>是回车键，下同)b=9<CR>printa>b<CR>则输出结果是()oA)-1B)0C)FalseD)True.以下语句的输出结果是()oPrintFormat$(32548.5,“000,000.00")A)32548.5B)32,548.50032,548.50D)32,548.50.执行以下程序段后，变量c$的值为()oa$="VisualBasicPrograming"b$="Quick”c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,ll)A)VisualBASICProgramingB)QuickBasicProgramingC)QUICKBasicProgramingD)QuickBASICPrograming.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是()oA)ValueB)DefaultC)CancelD)Enabled.为了把焦点移到某个指定的控件，所使用的方法是()。A)SetFocusB)VisibleC)RefreshD)GetFocus.设a=6,则执行x=Hf(a>5,-l,0)后，x的值为(),>A)5B)600D)-1.执行下面的程序段后，x的值为()。x=5Fori=lTo20Step2x=x+i5NextiA)21B)22023D)24.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()Fori=lTo4x=4Forj=1To3 x=3Fork=lTo2x=x+6NextkNextjNextiPrintxEndSub程序运行后，单击命令按钮，输出结果是()。A)7B)150157D)538.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoUntilx=-la=InputBox(“请输入A的值”)a=Val(a)b=InputBox(“请输入B的值”)b=Val(b)x=InputBox("请输入x的值”)x=Val(x)a=a+b+xLoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、・1,则输出结果为()oA)2B)3C)14D)15.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrintaEndSubPrivateSubForm_Load()Textl.Text=m,Text2.Text=,u,Endsub程序运行后，在第一个文本框(Textl)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮，则输出结果为()oA)444B)3211230123321D)132231.阅读下面的程序段：Fori=lTo3Forj=lToiFork=jTo3a=a+lNextkNextjNexti执行上面的三重循环后，a的值为()。A)3B)9014D)21.在窗体上画一个文本框(其中Name属性为Textl),然后编写如下事件过程：PrivateSubForm_Load()Textl.Text="HTextl.SetFocusFori=lTo10Sum=Sum+iNextiTextl.Text=SumEndSub上述程序的运行结果是(〉。A)在文本框Textl中输出55B)在文本框Text1中输出0C)出错D)在文本框Textl中输出不定值.在窗体上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(其Name属性为Command]),然后编写如下事件过程：PrivateSubCommandl_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+lLoopTextl.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为()。A)1^0B)2和72C)3和50D)4和168.用下面语句定义的数组的元素个数是()。DimA(-3To5)AsIntegerA)6B)708D)9.以下程序的输出结果是()。OptionBase1PrivateSubCommand1_Click()Dima(10),p(3)AsIntegerk=5Fori=lTo10a(i)=iNextiFori=lTo3p(i)=a(i*i)NextiFori=lTo3k=k+p(i)*2NextiPrintkEndsubA)33B)28035D)37.在窗体上画一个命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommandl_Click()Dimaa=Array(l,2,3,4)j-1Fori=4ToStep-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是()oA)4321B)12034D)1234.在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:OptionBase1PrivateSubCommandl_Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i-l)*3+jNextjNextiFori=3To4Forj=3To4Printa(j,i)；NextjPrintNextiEndSub程序运行后，单击命令按钮，其输出结果为()。A)69 B)710

7 1008119127 100811912811D)9121013.假定有如下的Sub过程：SubS(xAsSingle,yAsSingle)x=t/yy=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程:PrivateSubCommandl_Click()DimaAsSingleDimbAsSinglea=5b=4Sa,bPrinta,bEndSub程序运行后，单击命令按钮，输出结果为()。A)54B)11C)1.254D)1.251.阅读程序：FunctionF(aAsInteger)b=0Staticcb=b+lc=c+1F=a+b+cEndFunctionPrivateSubCommandl_Click()DimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub运行上面的程序，单击命令按钮，输出结果为()oA)4B)4C)4D)44 5 674 6 8925.阅读程序：SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommandl_Click()Dima(lTo4)AsIntegera(1)=5a(2)=6a⑶=7a(4)=8subPa()Fori=1To4Printa(i)NextiEndSub运行上面的程序，单击命令按钮，输出结果为()oA)2B)5C)10D)出错TOC\o"1-5"\h\z6 127 148 16.下列不能打开菜单编辑器的操作是()。A)按Ctrl+EB)单击工具栏中的“菜单编辑器”按钮 C)执行“工具”菜单中的“菜单编辑器”命令D)按Shift+Alt+M.假定有一个菜单项，名为Menuitem,为了在运行时使该菜单项失效(变灰)，应使用的语句为()oA)Menuitem.Enabled=FalseB)Menuitem.Enabled=TrueC)Menuitem.Visible=TrueD)Menuitem.Visible=False.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是()oA)MoveB)ChangeC)ScrollD)GetFocus.假定窗体上有一个标签，名为LabelL为了使该标签透明并且没有边框，则正确的属性设置为()oLabel1.BackStyle=OLabel1.Borderstyle=0Label1.BackStyle=1Label1.Borderstyle=1Label1.BackStyle=TrueLabel1.BorderStyle=TrueLabel1.BackStyle=FalseLabel1.Borderstyle=False.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：PrivateSubForm_Load()List1.Addltemn357nListl.AddItemM246MListl.AddItemM123nListl.AddItemM456nTextl.Text=H"EndSubPrivateSubListl_DblClick()a=Listl.TextPrinta+Textl.TextEndSub程序运行后，在文本框中输入“789”(见图附录-1),然后双击列表框中的“456”，则输出结果为()o图附录・11245456789C)789456D)0.为了暂时关闭计时器，应把该计时器的某个属性设置为False,这个属性是()。VisibleTimerEnabledInterval.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为()oGet文件号，记录号，变量名Get文件号，变量名，记录号Put文件号，变量名，记录号Put文件号，记录号，变量名.对窗体编写如下事件过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPrintMAAAAAMEndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)PrintnBBBBB"EndSub程序运行后，如果右击鼠标，则输出结果为()oA)AAAAAB)BBBBBBBBBBC)AAAAAD)BBBBBAAAAA.为了在运行时能显示窗体左上角的控制框(系统菜单)，必须()oA)把窗体的ControlBox属性设置为False,其他属性任意B)把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5C)把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值D)把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值.对窗体编写如下代码：OptionBase1PrivateSubForm_KeyPress(KeyAsciiAsInteger)a=Array(237,l26,87,48,498)ml=a(l)m2=1IfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenml=a(i)m2=iEndIfNextiEndIfPrintmlPrintm2EndSub程序运行后，按回车键，输出结果为().A)48 B)2371C)498 D)4984二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡［1］〜［15］序号的横线上，答在试卷上不得分。.设有如下的VisualBasic表达式：5*xA2-3*x-2*Sin(a)/3它相当于代数式［1］,,.执行下面的程序段后，s的值为［2］»s=5Fori=2.6To4.9Step0.6s=s+1Nexti3.表达式Fix(-32.68)+Int(-23.02)的值为［3］..为了在运行时把图形文件picfile.jpg装入图片框Pictured所使用的语句为［4］。.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()a=加putBox("请输入一个整数”)b=InpulBox("请输入一个整数”)Printa+bEndSub程序运行后，单击命令按钮，在输入对话框中分别输入321和456,输出结果为15］o.执行下面的程序段后，b的值为［6］oa=300b=20a=a+bb=a-ba=a-b.以下程序段的输出结果是［7］»num=O ；Whilenum<=2num=num+lPrintnumWend.在窗体画一个命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()Dima(lTo10)Dimp(lTo3)k=5Fori=lTo10a(i)=iNextiFori=lTo3p(i)=a(i*i)NextiFori=lTo3k=k+p(i)*2NextiPrintkEndSub程序运行后，单击命令按钮，输出结果是[8]o.下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在[9]、[10]>[11]处将程序补充完整。OptionBase1PrivateSubCommandl_Click()Dimaa=Array(678,45,324,528,439,387,87,875,273,823)Fori=[9]Forj=[10]Ifa(i)[llJa(j)Thenal=a(i)a(i)=a(j)a(j)=alEndIfNextjNextiFori=lTo10Printa(i)NextiEndSub.在窗体上画一个命令按钮，然后编写如下过程：Functionfun(ByVa)numAsLong)AsLongDimkAsLongk=lnum=Abs(num)DoWhilenumk=k*(numMod10)num=numl0Loopfun=kEndFunctionPrivateSubCommand1_Click()DimnAsLongDimrAsLongn=InputBox("请输入一个数”)n=CLng(n)r=fun(n)PrintrEndSub程序运行后，单击命令按钮，在输入对话框中输入234,输出结果为［12］«.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为［13］。.假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Forml和Form2,启动窗体为Forml。在Forml上画一个命令按钮Command1,程序运行后，要求当单击该命令按钮时，Forml窗体消失，显示窗体Form2,请在［14］和［15］处将程序补充完整。PrivateSubCommand1__Click（）;［14］FormlForm2.［15］EndSub2002年9月二级VB笔试试题一、选择题（每题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。（1）在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）oA）工程资源管理器窗口 B）工具箱窗口C）代码窗口 D）属性窗口（2）以下叙述中正确的是（）oA）窗体的Name属性指定窗体的名称，用来标识一个窗体B）窗体的Name属性的值是显示在窗体标题栏中的文本C)可以在运行期间改变对象的Name属性的值D)对象的Name属性值可以为空(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是()。A)单选按钮 B)图片框C)通用对话框 D)文本框(4)设有如下变量声明DimTestDateAsDate为变量TestDate正确赋值的表达方式是()。A)TextDate=#l/l/2002# B)TestDate=#"1/1/2002”#C)TextDate=date(*'1/1/2002")D)TestDate=Format("m/d/yy”，“1/1/2002")(5)设有如下声明：DimXAsInteger如果Sgn(X)的值为-1,则X的值是()。A)整数B)大于0的整数C)等于。的整数D)小于0的数(6)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：PrivateSubCommandl_Click()StaticXAsIntegerStaticYAsIntegerCisY=1Y=Y+5X=5+XPrintX,YEndSub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为()。A)1516B)156C)1515 D)56(7)设a=3,b=5,则以下表达式值为真的是()oA)a>=bAndb>10B)(a>b)Or(b>0)C)(a<0)Eqv(b>0)D)(-3+5>a)And(b>0)(8)设有语句x=InputBox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是()。A)变量X的值是数值10B)在InputBox对话框标题栏中显示的是“示例"C)0是默认值 D)变量X的值是字符串“10”(9)从键盘上输入两个字符串，分别保存在变量strl、str2中。确定第二个字符串在第一个字符串中起始位置的函数是().A)LeftB)MidC)StringD)Instr

(10)设a="VisualBasic",下面使b="Basic”的语句是()。A)b=Left(a,8,12) B)b=Mid(a,8,5)C)b=Rigth(a,5,5) D)b=Left(a,8,5)(11)以下能够触发文本框Change事件的操作是()。A)文本框失去焦点 B)文本框获得焦点C)设置文本框的焦点 D)改变文本框的内容(12)在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timed,要求每一秒钟在文本框中显示一次当前的时间。程序为：PrivateSubTimerI_()TxtTime.text=TimeEndSub在下划线上应填入的内容是()oA)EnabledB)VisibleC)IntervalD)Timer(13)在窗体上画两个单选按钮，名称分别为Option】、Option2,标题分别为“宋体”和“黑体”；一个复选框，名称为Checkl,标题为“粗体”；一个文本框，名称为Textl,Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图)，则能够实现上述要求的语句序列是()oA)Optionl.value=TrueCheckA)Optionl.value=TrueCheck1.Value=FalseOption2.Value=FalseCheckl.Value=TrueB)Option1.Value=True

Check1.Value=TrueOption1.Value=TrueCheckl.Value=l(14)为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True,这个属性是(A)ValueB)DefaultC)CancelD)Enabled(15)在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序：PrivateSubCommandl_Click()For1=1To4ForJ=0To1PrintChr$(65+I);NextJPrintNextIEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是()oA)BBB)AC)BD)AACC BB CCDDDD CCC DDDBBBCCCC

EEEEEDDDDEEEEDDDDDEEEEEDDDDEEEEDDDDD(16)图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是()。A)AutosizeB)StretchC)AutoRedrawD)Appearance(17)在窗体上画两个名称分别为Text1>Texte2的文本框和,个名称为Command)的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsInteger,nAsIntegerx=ln=0DoWhilex<20x=x*3n=n+lLoopTextl.Text=Str(x)Text2.Text=Str(n)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别是()o人)15和1 B)27和3 C)195和3D)600和4(18)在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimiAsInteger,nAsIntegerFor1=0To50i=i+3n=n+lIfi>10ThenxitforNextTextl.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是()oA)2 B)3 D)4 D)5(19)在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandI_Click()Dimarrayl(10,10)AsIntegerDimi,jAsIntegerFori=lTo3Forj=2To4arrayl(i,j)=i+jNextjNextITextl.Text=arrayl(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是()oA)12B)13C)14D)15(20)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()DimiAsIntegerjAsIntegerDima(10,10)AsIntegerFori=lTo3Forj=lTo3a(i,j)=(i-l)*3+jPrinta(i,j);NextjPrintNextjEndSub程序运行后，单击命令按钮，窗体上显示的是()oA)123B)234C)147D)123246 345 258 456369 456 369 789(21)设有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array。,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i);NextEndSub程序运行后，单击窗体，则在窗体上显示的是()oA)4321B)5432C)6543D)7654(22)下列叙述中正确的是(A)在窗体的Form_Load事件过程中定义的变量是全局变量B)局部变量的作用域可以超出所定义的过程C)在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D)在调用过程时，所有局部变量被系统初始化为0或空字符串(23)在窗体上画一个命令按钮，名称为Commands程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程Fl.在Fl中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1,否则返回0。能够正确实现上述功能的代码是()oPrivateSubCommandl_Click()x=InputBox("请输入整数”)a=Fl(Val(x))PrintaEndSubFunctionFl(ByRefbAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionPrivateSubCommand1_Click()x=InputBox(“请输入整数”)a=Fl(Val(x))PrintaEndSubFunctionFl(ByRefbAsInteger)IfbMod2=0ThenFl=0ElseFl=lEndIfEndFunctionPrivateSubCommandl_Click()x=InputBox("请输入整数”)Fl(Val(x))PrintaEndSubFunctionFl(ByRefbAsInteger)IfbMod2=0ThenFl=lElseFl=0EndIfEndFunctionPrivateSubCommand1_Click()x=InpulBox(“请输入整数”)Fl(Val(x))PrintaEndSubFunctionFl(ByRefbAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunction(24)在窗体上画一个名称为Command1的命令按钮和一个名称为Textl的文本框，然后编写如下程序：PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7z=0Textl.text=CallPl(x,y,z)Textl.Text=Str(x)EndSubSubPl(ByVaiaAsInteger,ByVaibAsIntegersAsInteger)c=a+bEndSub程序运行后，如果单击命令按钮，则在文本框中显示的内容是()oA)0B)12C)Str(z)D)没有显示(25)以下叙述中错误的是()。A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型Sub过程中不能嵌套定义Sub过程Sub过程中可以嵌套调用Sub过程D)事件过程可以像通用过程一样由用户定义过程名(26)以下叙述中错误的是()»A)在KeyUp和KeyDown事件过程中，从犍盘上输入A或a被视作相同的字母(即具有相同的KeyCode)B)在KeyUp和KeyDown事件过程中,将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)KeyPress事件中不能识别键盘上某个键的按下与释放KeyPress事件中可以识别键盘上某个键的按下与释放(27)以下叙述中错误的是().A)在同一窗体的菜单项中，不允许出现标题相同的菜单项B)在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C)程序运行过程中，可以重新设置菜单的Visible属性D)弹出式菜单也在菜单编辑器中定义(28)设在菜单编辑器中定义了一个菜单项，名为menul。为了在运行时隐藏该菜单项,应使用的语句是()»A)menu1.Enabled=TrueB)Munu1.Enabled=FalseC)Menu1.Visible=TrueD)Menu1.Visible=False(29)以下叙述中错误的是()»A)在程序运行时，通用对话框控件是不可见的B)在同•个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用C)调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框(30)在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是()。A)"text(.txt)l(*.txt)"B)”文本文件(.txt)I(.txt)”C)utext(.txt)ll(*.txt)nD)**text(.txt)(*.txt)"(31)以下叙述中错误的是()。A)一个工程中只能有一个SubMain过程B)窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C)窗体的Hide方法和Unload方法的作用完全相同D)若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体(32)以下叙述中错误的是()。A)一个工程中可以包含多个窗体文件B)在一个窗体文件中用Private定义的通用过程能被其他窗体调用C)在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件D)全局变量必须在标准模块中定义(33)设在工程中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是()。PrivateSubCommand1_Click()DimBAsBooksOpen c:\Person.txtwForOutputAs#1B.Name=InpulBox("输入姓名”)B.TelNum=InputBox("输入电话号码”)Write#l,B.Name,B.TelNumClose#1EndSubPrivateSubCommand1_Click()DimBAsBooksOpenuc:\Person.txt”ForInputAs#1B.Name=InputBox（"输入姓名”）B.TelNum=InputBox（"输入电话号码”）Print#l,B.Name,BTelNumClose#1EndSubPrivateSubCommandl_Click（）DimBAsBooksOpenuc:\Person.txtnForOutputAs#1B.Name=InputBox（"输入姓名"）B.TelNum=InputBox（"输入电话号码”）Write#1,BClose#1EndSubPrivateSubCommand1_Click（）Openuc:\Person.txtMForInputAs#1Name=InputBox（"输入姓名”）TelNum=InpulBox（"输入电话号码”）Print#l,Name,TelNumClose#1EndSub（34）以下叙述中正确的是（）oA）一个记录中所包含的各个元素的数据类型必须相同B）随机文件中每个记录的长度是固定的C）Open命令的作用是打开一个已经存在的文件D）使用Input#语句可以从随机文件中读取数据（35）目录列表框的Path属性的作用是（）oA）显示当前驱动器或指定驱动器上的目录结构B）显示当前驱动器或指定驱动器上的某目录下的文件名C）显示根目录下的文件名D）显示该路径下的文件二、填空题（每空2分，共40分）请将每空的正确答案写在答题卡（1）至（15）的横线上，答在试卷上不得分。（1）在窗体上画两个标签，其名称分别为Labell和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscolll的水平滚动条，其Min的值为0,Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在［1］和［2］处填入适当的内容，将程序补充完整。PrivateSubHScrolll_［1］（）Labl2.Caption=HScrolll.［2］EndSub(2)在窗体上画一•个名称为Commandl、标题为“计算”的命令按钮；画两个文本框，名称分别为Textl和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Optionl,标题分别为“+ 和程序运行后，在Textl、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4,程序运行情况如图所示。请在［3］、［4J和［5］处填入适当的内容，将程序补充完整。PrivateSubCommand1_Click()Fori=0To3If［3］=Truethenopt=Optionl(i).CaptionEndIfNextSelectCase|4］Case"+"Result=Val(Text1.Text)+Val(Text2.Text)Case”Result=Val(Text1.Text)-Val(Text2.Text)Case"*"Result=Val(Text.Text)*Val(Text2.Text)Case"rResult=Val(Text1.Text)/Val(Text2.Text)EndSelect［5］=ResultEndSub(3)在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Commandl为禁用(灰色)。当向文框中输入任何字符时，命令按钮Commandl变为可用。请在［6J处填入适当的内容，将程序补充完整.PrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubTextl_［6］()Command1.Enabled=TrueEndSub(4)在菜单编辑器中建立了一个菜单，名为pmenu,用下面的语句可以把它作为弹出式菜单弹出，请填空。Forml.［7］Pmenu(5)以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在［8］和［9］处填入适当的内容，将程序补充完整。PrivateSubForm_Click()DimxAsSingle,amaxAsSingle,aminAsSinglex=InputBox(uEnterascore")amax=xamin=xDoWhile［8］Ifx>amaxThenAmax=xEndIfIf［9］ThenAmin=xEndIfx=InputBox(uEnterascore'jLoopPrint“Max=";amax,MMin=";aminEndSub(6)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：PrivateSubForm_Load()Textl.Text=>>计算机”EndSubPrivateSubTextl_Change()Picture1.Print"等级考试”EndSub程序运行后，在文本框中显示的内容是［10］,而在图片框中显示的内容是［11］O(7)在窗体上画一•个命令按钮，其名称为Commandl,然后编写如下程序：FunctionM(xAsInteger,yAsInteger)AsIntegerM=Hf(x>y,x,y)EndFunctionPrivateSubcommand1_Click()DimaAsInteger,bAsIntegera=100b=200PrintM(a,b)EndSub程序运行后，单击命令按钮，输出结果为［12］。(8)为了改变计时器控件的时间间隔，应该修改该控件的［13］属性。(9)在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在［14］和［15］处填入适当的内容将程序补充完整。PrivateSubForm_load()List1.Additem”北京”

List1.Additem”上海”ListLAdditem"湖北”EndSubPrivateSub[14]()Label1.Caption=[15]EndSub2003年4月二级VB笔试试题一、选择题（⑴一（20）每小题2分，（21）—（30）每小题3分，共30题，70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。（1）以下不能在"工程资源管理器"窗口中列出的文件类型是（）«A）,bas.res.fnn.ocx（2）以下关于窗体的描述中，错误的是（）。A）执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中B）窗体的load事件在加载窗体时发生C）当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D）窗体的Heighl、widlh属性用于设置窗体的高和宽⑶下列可作为V2sualBasic变量名的是（）。A）A#AB)4AC)?xYD)constA(4)设有如下的记录类型TypeStudentnumberAsstringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是()oB)DimAsStudentD)DimsAsTypes.Dame="张红B)DimAsStudentD)DimsAsTypes.Dame="张红C)DimsAsTypeStudentS.name士'张红”（5）函数String（n,"str”）的功能是（）。A）把数值型数据转换为字符串B)返回由n个字符组成的字符串C)从字符串中取出n个字符D)从字符串中第n个字符的位置开始取子字符串(6)将数学表达式Cos2(a+b)+5e2写成VisualBasic的表达式，其正确的形式是()。A)Cos(a+b)A2十5。exp(2)B)CosA2(a+b)+5*exp(2)C)Cos(a+b)A2十5*ln(2)D)CosA2(a+b)+5*ln(2)(7)在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：PrivateSubCommandl_C1ick()a$="softwareandhardwareMb$=Right(a$,8)c$=Mid(a$,l,8)Msgboxa$,,b$,c$,lEndSub则在弹出的信息框的标题栏中显示的信息是()。A)softWareandhardwareB)softwareC)hardwafeD)1(8)执行如下语句：a=inutBox(HTodayu,"Tomorrow,,,Yesterday,,„,,'Daybeforeyesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是()。A)TodayB)TomorrowC)YesterdayD)Daybeforeyesterday(9)表示滚动条控件取值范围最大值的属性是().A)MaxB)LargeChangeC)ValueD)Max-Min(10)在窗体上画一个名称为Listl的列表框，--个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A)PrivateSublistl_Click()B)PrivateSubListl_Click()Labell.Caplion=lisll.listindexLabell.Nanle=Listl.listindexEndSub.EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是()oA)空白B)错误提示C)北京D)上海(15)假定有以下函数过程：FunctionFun(SAsString)AsStringDimsiAsStringFori=lToLen(S)sl=UCase(Mid(S,i,l))+slNextiFun=slEndFunction在窗体上画•个命令按钮，然后编写如下事件过程：PrivateSubCommmldl_Click()DimStrlAsString,Str2AsStringStrl=inputbox("请输入一个字符串”)Str2=Fun(Strl)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg",则单击”确定”按钮后在窗体上的输*结果为()«A)abcdefgB)ABCDEFGC)gfedcbaD)GFEDCBA(16)设有语句open"c：\Test.Dat*'ForOutPutAs#l则以下错误的叙述是()»A)该语句打开C盘根目录下•个己存在的文件Test.DatB)该语句在C盘根目录下建立一个名为Test.Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息(17)以下叙述中错误的是()。A)用Shell函数可以调用能够在Windows下运行的应用程序B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数C)调用Shell函数的格式应为：v变量名＞=Shell(……)D)用Sheil函数不能执行DoS命令(18)以下关于过程及过程参数的描述中，错误的是().A)过程的参数可以是控件名称B）用数组作为过程的参数时，使用的是"传地址"方式C）只有函数过程能够将过程中处理的信息传回到调用的程序中D）窗体可以作为过程的参数（19）在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：PrivateSubTxta_KeyPress（keyasciiasinteger）EndSub若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。A）单击鼠标B）双击文本框C）鼠标滑过文本框D）按下键盘上的某个键（20）目录列表框的Path属性的作用是（）。A）显示当前驱动器或指定驱动器上的路径B）显示当前驱动器或指定驱动器上的某目录下的文件名D）显示根目录下的文件名D）只显示当前路径下的文件（21）假定有如下事件过程：PrivateSubForm_MouseDown（buttonAsInteger,ShiftAsInteger,xAsSingle,YAsSingle）IfButton=2thenPopupMenupopFormEndifEndSub则以下描述中错误的是（）oA）该过程的功能是弹出一个菜单B）popForm是在菜单编辑器中定义的弹出式菜单的名称C）参数X、Y指明鼠标的当前位置D）Button=2表示按下的是鼠标左键（22）以下能够正确计算n!的程序是（）oPrivateSubCommandl_ClicK（）n=5:x=1DoX=x*li=i十1LoopWhilei<nPrintxEndSubPrivateSubCommandl_Click（）n=5:x=l：i=IDoX=X*1i=i十1LoopWhilei<nPrintxEndSubC)PrivateSubCommandl_Click()n=5：x=l：i=IDoX=X*1i=i十1Loopwhilei<=nPrintxEndSubD)PrivateSubCommandl_C1ick()n=5：x=l：i=lDoX=X*1i=i+1loopWhilei>nPrintxEndSub(23)在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为LabelkLabel2的标签，然后编写如下程序代码：PrivatexAsIntegerPrivateSubCommandl-Click()X=5：Y=3Callproc(x,Y)Labell.Caption=XLabel2.Caption=YEndSubPrivateSubproc(ByValaAsInteger,ByVaibAshteger)x=a*aY=b十bEndSub程序运行后，单击命令按钮，则两个标签中显示的内容分别是()oA)5和3B)25和3C)25和6D)5和6(24)在窗体上画•个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：PrivateSubCommandl_C1ick()s=oFori=lTO15x=2*i一1IfxMod3=0Thens=s十1NextiLabell.Caption=sEndSub程序运行后，单击命令按钮，则标签中显示的内容是()oA)1B)5C)27D)45(25)在窗体上画一个名称为Command)的命令按钮和三个名称分别为Labell、Label2>Label3的标签，然后编写如下代码：PrivatexAsIntegerPrivateSubCommand1_C1ick()StaticyAsIntegerDimzAsIntegern=10z=n十zy=y十zX=X十ZLabell.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是()oA)101010B)303030C)303010D)103030(26)设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程：PriVateSubCommandl_C1ick()StaticbAsVariantb=Array。,3,5,7,9)EndSub此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1).,为实现此功能，省略号处的程序段应该是()«A)Fori=0To5-l\2tmp=b(i)b(i)=b(5-i-l)b(5-i-l)=tmpNextB)fori=0To5tmp=b(i)b(i)=b(5-i-l)b(5-i-l)=tmpNextC)Fori=0T05\2tmp=b(i)b(i)=b(5-i-l)b(5-i-l)；tmpNextD)Fori=lT05\2tmp=b(i)b(i)=b(5-i—1)b(5-i-l)=tmpNext(27)在窗体上画一个名称为Drivel的驱动器列表框，•个名称为Dirl的目录列表框，•个名称为Filel的文件列表框，两个名称分别为Labell、Label2,标题分别为空白和“共有文件”的标签。编写程序，使得驱动器打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是()。A)PrivateSubCommand_Click()Commondialogl.FileName=nSavefileMCommondialogLfilter="AllFilesl*.*l(*.txt)l*.txtl(*.doc).I*.doc"CommonDialogl.Filterindex=2CommonDialogl.DialOg.title="Save"CommonDialogl.Action=2EndSubB)PrivateSubCommandl-Click()CommonDialogl.FileName=,,SaveFile,,CommonDiaLogl.Filter=MAllFilesl*.*l(*.txt)l*.txtl*.docl*.doc”COmmonDialogl.Filterindex=1CommonDialogl.DialogTitle="Save"CommonDialogl.Action=2EndSubC)PrivateSubCmmandl_C1ick()COmmonDialogl.FileName="Save"CommonDialogl.FiLter="A11Filesl*.*l(*.txt)l*.txtl(*.doc)l*,docuCommonDialogl.Filterindex=2COmmonDialogl.DialogTitle="SaveFile”CommonDialogl.Action=2EndSubD)PrivateSubCommandl_C1ick()CommonDialogl.FileName=nSaveFile"CommonDialogl.Filter="AHFilesl*.*l(*.txt)l*.txtl(*.doc)l*.docnCommonDialogl.Filterlndex=lCommonDialogl.DialogTitle=nSavenCommonDialogl.Action=1EndSub二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡[1]一[15序号的横线上，答在试卷上不得分。(l)visualBasic中有--种控件组合了文本框和列表框的特性，这种控件是(2)VisualBasic提供的对数据文件的三种访问方式为随机访问方式 和二进制访问方式。(3)执行下面的程序段后，变量S的值为oS=5Fori=2.6To4.9Step0.6S=S+1Nexti(4)为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1,所使用的语句为(5)计时器控件能有规律的以一定时间间隔触发事件，并执行该事件过程中的程序代码。(6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommandl_Click()Fori=ITo20x=Int(*200+100)If[7]=0ThenPrintxS=S十[83EndIfNextiPrint,'Sum=n：SEndSub(7)设有如下程序PrivateSubForm_Click()DimaASInteger,bAsintegera=20：b=50R>p2a,bp3a,bPrint,'a=H；a,"b="；bEndSubSubpl(xAsInteger,ByVaiyAsInteger)x=x十10.v=v十20EndSubSubp2(byVaixAsInteger,yAsInteger)x=x十10y=y十20EndSubSubp3(ByValxAsInteger,ByVaiyAsInteger)x=x十10y=y十20EndSub该程序运行后，单击窗体，则在窗体匕显示的内容是：a=和卜o(8)在窗体上画,个名称为Commandl的命令按钮，编写如下事件过程PrivateSubCommandl_C1icK()DimAsStringa= [11]Fori=1To5PrintSpace(6-i)；Mid$3(a,6-i,2*i-l)NextiEndSub程序运行后，单击命令按钮，要求窗体上显示的输出结果为456345672345678123456789请填空。(9)在窗体上画一个名称为Combo1的组合框，画两个名称分别Labell和Label2及Caption属性分别为“城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"己成功添加输入项"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中"。请在[12>、[13]和[14]处将程序补充完整。PrivateSubCombol<12>(KeyAsciiAsinteger)IfKeyAscii=13ThenFori=0ToCombo1.listCount-1IfCombol.Text=[13]IhenLabel2.Caption="输入项己在组合框中”ExitSubEndIfNextiLabel2.Caption="J成功添加输入项”Combo1.[14]CombO1.TextEndIfEndSub(10)设有如下程序Privatesubsearch(a()Asvariant,ByVaikeyAsVariant,index%)Diml%Fori=LBound(a)ToUBound(a)Ifkey=a(I)Thenindex=IExitSubEndIfNextIIndex=-lEndSubPrivateSubForm_Load()ShowDtmb()AsVariantDimnAsIntegerb=Array(l,3,5,7,9,11,13,15)Callsearch(b,ILn)PrinttnEndSub程序运行后，输出结果是。2003年9月二级VB笔试试题（考试时间90分钟，满分100分）一、选择题（（1）~（20）每小题2分（21）〜（30）每小题3分，共70分）（1）以下叙述中错误的是（）.VisualBasic是事件驱动型可视化编程工具VisualBasic应用程序不具有明显的开始和结束语句VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性VisualBasic中控件的某些属性只能在运行时设置（2）以下叙述中错误的是（）»A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件（3）以下叙述中错误的是（）.A）双击鼠标可以触发DbIClick事件B）窗体或控件的事件的名称可以由编程人员确定

C)移动鼠标时，会触发MouseMove事件D)控件的名称可以由编程人员设定(4)以下不属于VisualBasic系统的文件类型是()。.frmB).batC).vbgD).vbp(5)以下叙述中错误的是()oA)打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B)保存VisualBasic程序时，应分别保存窗体文件及工程文件C)VisualBasic应用程序只能以解释方式执行D)事件可以由用户引发，也可以由系统引发(6)以下能正确定义数据类型TelBook的代码是()。A)TypeTelBookNameAsString*10TelNumAsIntegerEndTypeC)TypeTelBookNameString*10TelNumIntegerEndTypeTelBookA)TypeTelBookNameAsString*10TelNumAsIntegerEndTypeC)TypeTelBookNameString*10TelNumIntegerEndTypeTelBookEndTelBookD)TypedefTelBookNameString*10TelNumIntegerEndType(7)以下声明语句中错误的是()oA)Constvarl=123B)Dimvar2='ABCDeflnta-z D)Staticvar3AsInteger(8)设窗体上有一个列表框控件Listl,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是().A)List1.List B)List1.ListindexC)Listl.IndexD)Listl.Text(9)程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是()oA)MouseDown B)MouseUpC)LoadD)Click(10)设a=10,b=5,c=l,执行语句Printa>b>c后，窗体上显示的是()。A)TrueB)FalseC)1 D)出错信息(11)如果要改变窗体的标题，则需要设置的属性是()。A)CaptionB)NameC)BackColorD)BorderStyle(12)以下能判断是否到达文件尾的函数是()。BOF B)LOC C)LOF D)EOF(13)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是()。A)如果工程中含有SubMain过程，则程序一定首先执行该过程B)不能把标准模块设置为启动模块C)用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D)任何时刻最多只有一个窗体是活动窗体(14)窗体的MouseDown事件过程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)有4个参数，关于这些参数，正确的描述是()。A)通过Button参数判定当前按下的是哪一个鼠标键Shift参数只能用来确定是否按下Shift键Shift参数只能用来确定是否按下Alt和Ctrl键D)参数x,y用来设置鼠标当前位置的坐标(15)设组合框Combol中有3个项目，则以下能删除最后一项的语句是().Combo1.RemoveitemTextCombol.Removeitem2C)Combo1.Removeitem3D)Combo1.RemoveitemCombo1.Listcount(16)以下关于焦点的叙述中，错误的是()。A)如果文本框的TabSt叩属性为False,则不能接收从键盘上输入的数据B)当文本框失去焦点时，触发LostFocus事件C)当文本框的Enabled属性为False时，其Tab顺序不起作用D)可以用Tabindex属性改变Tab顺序(17)如果要在菜单中添加一个分隔线，则应将其Caption属性设置为()。A)= B)*C)&D)-(18)执行语句Open"Tel.dat"ForRandomAs#1Len=50后，对文件Tel.dat中的数据能够执行的操作是()«A)只能写，不能读 B)只能读，不能写C)既可以读，也可以写 D)不能读，不能写(19)在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Text1.TextSelectCasenCaseITo20x=10Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序运行后，如果在文本框Text1中输入10,然后单击命令按钮，则在Text2中显示的内容是().A)10 B)20C)30D)40(20)设有以下循环结构Do循环体LoopWhile〈条件>则以下叙述中错误的是()。A)若"条件"是一个为0的常数，则一次也不执行循环体"条件"可以是关系表达式、逻辑表达式或常数C)循环体中可以使用ExitDo语句D)如果"条件"总是为True,则不停地执行循环体(21)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是()。A)13.45.8 B)135147 D)无数据输出(22)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimaAsInteger,sAsIntegera=8s=1Dos=s+aa=a-1LoopWhilea<=0Prints;aEndSub程序运行后，单击命令按钮，则窗体上显示的内容是()。A)79 B)340C)97 D)死循环(23)设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunction在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()StaticxAsIntegerx=10y=5y=f(x)Printx;yEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是()oA)105 B)205C)2040 D)1040(24)设有如下通用过程：PublicSubFun(a(),ByVaixAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Tex