VB试卷-2

一、单项选择题（每题1分，共1X40=40分）1、VB是一种面向对象的可视化程序设计语言，采取了_____的编程机制。A．按过程顺序执行B．从主程序开始执行C．按模块顺序执行D．事件驱动2、编写VB程序时，若在同一行写多条语句，语句之间用_____符号分隔。A．，B．；C．、D．：3、已知x=4,y=5,执行下面的程序段后，有x=5,y=4。A．t=x:x=y:y=tB．x=y:y=xC．x=t:t=x:y=xD．y=t:t=x:x=y4、若要定义一个可存放10个字符的字符串时，其正确的格式为______。A．Dimstr1AsString*10B．Dimstr1AsString10C．Dimstr1AsString=10D．Dimstr1AsString+105、InputBox函数返回值的类型为___。A．数值B．数值或字符串（视输入的数据而定）C．变体D．字符串6、下列除______外均不是VB合法的变量名。A.3ABCB.ABC_3C.ABC.3D._ABC7、Boolean型数据只有两种取值，它们是_____。A.0和1B.Yes和NoC.“是”和“不是”D.True和False8、如果要每隔15s产生一个Timer事件，则Interval属性应设置为。A.15B.150C.1500D.150009、下列哪个不属于命令按钮属性_____。A．CancelB．DefaultC．VisibleD．Text10、要求从文本框中输入密码时，在文本框中只显示*号，则应当在此文本框的属性窗口中设置______。A．Text属性值为“*”B．Caption属性值为“*”C.password属性值为“*”D．passwordchar属性值为“*”11、下列各赋值语句中不正确的是。A.S=15B.X+Y=5C.Lb=TimeD.length=X+Y12、编写如下事件过程，当用鼠标单击窗体时，会使______。PrivateSubForm_Click()Text1.Left=Text1.Left-200Text1.Top=Text1.Top-100EndA.Text1文本框往左下角方向移动B.Text1文本框往右下角方向移动C.Text1文本框往左上角方向移动D.Text1文本框往右上角方向移动13、语句IfX=1ThenY=1，下列说法正确的是。A.X=1和Y=1均为赋值语句B.X=1和Y=1均为条件表达式C.X=1为条件表达式，Y=1为赋值语句D.Y=1为条件表达式，X=1为赋值语句14、语句DimA(1,2,3)中定义的数组的维数和元素个数是。A．3，6B．1，123C．3，24D．1，615、在VB中默认的变量的类型是。A．IntegerB．VariantC．SingleD．Boolean16、在VB的工程中，窗体文件的扩展名是。A．frmB．vbgC．vbpD．bas17、表达式Len(程序设计123)的值是。A.7B.4C.14D.918、CLS可清除窗体或图形框中的内容是。A.Picture属性设置的背景图案B.在设计时放置的控件C.程序运行时产生的图形和文字D.以上A～C全部19、假定有以下程序段ForX=0To3ForY=5To2Step–1PrintX*YNextXNextY则语句PrintX*Y执行次数是。A.16B.15C.14D.1320、下列方法可以把一个项目加入列表框。A．ClearB．AddItemC．RemoveItemD．Print21、设a=10，b=5，c=1，执行语句Printabc后，窗体上显示的是。A.TrueB.FalseC.1D.出错信息22、设str=”VisualBasic”，下面能使t=”Visual”的语句是。A．t=Left(str,8,5)B．t=Left(str,6)C．t=Mid(str,8,12)D．t=Right(str,5)23、如果一个工程含有多个窗体及标准模块，则以下叙述错误的是。A.如果工程中含有SubMain过程，则程序一定首先执行该过程B.不能把标准模块设置为启动模块C.用Hide方法只是隐藏窗体，不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体24、下列循环重复_______次。i=10DoUntili=9i=i-1LoopA．10B．0C．1D．925、把焦点移到某个指定的控件，所使用的方法是______。A．EnableB．VisibleC．RefreshD．SetFocus26、复选框的Value属性为1时，表示。A．复选框未被选中B．复选框被选中C．复选框内有灰色的勾D．复选框操作有错误27、下列各组控件都具有caption属性的是____。A．窗体、标签B．标签、定时器C．窗体、文本框D．文本框、定时器28、VB是一种面向对象的程序设计语言，不是面向对象系统的三要素。A．事件B．属性C．变量D．方法29、下列关于for……next语句的说法正确的是______。A．循环变量、初值、终值和步长都必须为数值型B．step后的步长只为正数C．初值必须小于终值D．初值必须大于终值30、下列语句执行后，绘制的图形是:______。LINE(1,100)-(100,1),1,BFA．一条直线B．一条线段C．一个矩形D．一个填充颜色的矩形31、下面程序段运行后，显示的结果是_____。Fori=3to1step-1Printspc(5-i);Forj=1to2*i-1Print“*”;NextjPrintNextiA.*B.*****C.*****D.*************************32、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：PrivateSubCommand1_Click()Dima(5),b(5)Forj=1to4A(j)=3*jB(j)=a(j)*2NextjText1.text=b(j\2)EndSub程序运行后，单击命令按钮，在文本框中显示______。A．18B．12C．20D．3533、在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是。A．MoveB.ChangeC.ScrollD.Getfocus34、语句PrintFormat(32345.8,”000,000.00”)的输出结果是。A．32345.8B．32,345.8C．032,345.80D．32,345.8035、下面过程语句说明合法的是_______。A．Subf1(ByValn%())B．Subf1(n%)AsIntegerC．Functionf1%(f1%)D．Functionf1(ByValn%)36、当图象框(Image)的Stretch属性为True时,下列说法正确的是______。A．改变图象框的大小，框中的图能自动跟随框的大小变化；B．改变图的大小，装载图的图象框能自动跟随图的大小变化；C．能改变图象框的大小，但图象框中的图不会变化；D．能分别改变图象框和图象框中的图的大小，但两者之间互不影响。37、与数学表达式cdabc14对应，VB正确的表达式是。A．14*a*b*c/c*dB．14abc/cdC．14abc/c/dD．14*a*b*c/c/d38、Rnd函数不可能为下列____值。A．0B．1C．0.12345D．0.000539、表达式16/4-2^5*8/4MOD5\2的值为。A．14B．4C．20D．240、窗体默认坐标系的原点在______。A.窗体中心B.窗体左下角C.窗体右下角D.窗体左上角二、填空题（每空2分，共2X10=20分）1.VB的3种工作模式是设计、（1）和中断。2.当程序运行装入窗体时，最先触发的（2）事件。3.获取数组下界的函数是（3）。4.写出下列语句的运行结果（4）print12&505.数学关系式-5≤X≤5所对应的VB表达式是（5）。6.编一程序，其功能是随机产生10~300之间的10个整数，按升序排列后输出。PrivateSubCommand1_Click()Dima%(1To10),i%,j%,t%RandomizeFori=1To10a(i)=(6)Printa(i);Nexti'产生10个10—300之间的数并输出Fori=1To(7)Forj=1To10-iIf（8）Thent=a(j)a(j)=a(j+1)a(j+1)=tEndIfNextjNexti'用冒泡法对10个数进行升序排序PrintFori=1To10'输出排序后的10个数Printa(i);NextiEndSub7.已知自然对数的底数e的级数表示如下：111111!2!3!n!e当累加项的值小于1E-8时停止累加操作，程序利用函数过程求阶乘。PrivateFunctionfact(mAsInteger)AsSingle‘求m的阶乘DimtAsSingle,iAsIntegert=1Fori=1Tomt=（9）Nextifact=tEndFunctionPrivateSubForm_Click()DimeAsSingle,ItemAsSingleDimnAsIntegere=1n=0Don=n+1Item=（10）e=e+ItemLoopWhileabs(Item)=1E-8Printe=;eEndSub三、程序阅读题（每题4分，共4X5=20分）1.以下程序的运行结果为。PrivateSubCommand1_Click()A1=123A2=123aA3=12a3A4=A123PrintVal(A1);Val(A2);Val(A3);Val(A4)EndSub2.以下程序段的执行的结果为。X=3：Y=2：Z=1SelectCaseX^Y^ZCaseIs0Print负数Case0to9Print一位数Case10to99Print二位数CaseElsePrint三位数或三位数以上EndSelect3.运行下面的程序，单击命令按钮，变量Gstr的值为。PrivateSubCommand1_Click()DimTstrAsString,GstrAsString,IAsIntegerTstr=ABCDEFGHIJI=1DoWhileI=Len(Tstr)Gstr=Gstr&IIf(IMod2,Mid(Tstr,I,1),)I=I+1LoopPrintGstrEndSub4.在窗体上设置一个命令按钮（其Name属性为Command1），编写如下代码：OptionBase1PrivateSubCommand1_Click()DimA(4,4)AsIntegerForI=1To4ForJ=1To4A(I,J)=(I-1)*3+JNextJNextIForI=3To4ForJ=3To4PrintA(J,I);NextJPrintNextIEndSub程序运行后，单击命令按钮，其输出结果为。5.在窗体上画一个名称为Command1的命令按钮和Text1的文本框，然后编写如下程序,程序运行后，单击命令按钮，Text1文本框显示的内容是_____。FunctionFun(xAsInteger,ByValyAsInteger)AsIntegerx=x+yIfx0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=10：b=5Text1.Text=Fun(a，b)EndSub四、编程题（每题10分，共10X2=20分）1、计算表达式1+1/2+1/3+…1/n的值。（10分）要求：定义程序中所用变量，在text1中输入n的值，单击command1后，利用msgbox显示计算结果（如下图所示）。2、计算数组元素的平均值，并找出其中的最大值。（10分）要求：定义程序中所用变量，数组元素是10个20-100范围内的随机数，程序运行界面如下图所示。程序运行界面1程序运行界面2一、单项选择题（每题1分，共1X40=40分）1-5DDAAD6-10B