期末考试试题第2在设计阶段当双击窗体上

[第1下合法的VisualBasic D)a#x[答案]A[第2题]在设计阶段，当双击窗体上的 工程资源管理器窗工具箱窗代码窗属性窗[答案3题]在窗体上画一个名称为Command1令按钮，然后编写如下事PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1s=s+aa=a－1

LoopWhilea<=0Prints;aEndA）79B）3497D）死循环[答案]C[第4如下程b$=Ringht$(a$,3):c$=String$(3,b$)Printc$运行后输出的结果 [答案C5题]在窗体上画一个名称为Command1令按钮，然后编写如下事PrivateSubDimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4EndA）13.4B）13C）14[答案]B[第6有以下循环结循环LoopWhile则以下叙述中错误的"条件"可以是关系表达式、逻辑表

式或常循环体中可以使用ExitDo如果"条件"总是为True，则不停地[答案[第7题]设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不 [答案[第8下能在窗体Form1标题栏中显示"VisualBasic体"的语句是Form1.Name="VisualBasic窗体Form1.Title="VisualBasic窗体Form1.Caption="VisualBasic窗体[答案]C9题]在窗体上画一个名称Command1令按钮，然后编写如下件过程PrivateSubCommand1_Click()SelectCasexCase1,3Print分支CaseIsPrint分支2"CaseElsePrintElse支EndSelectEnd程序运行后，如果在输入框中输2，则窗体上显示的A）分支 B）分支 C）分 D)程序出[答案[第10下关于MsgBox叙述中，A）MsgBox函数返回一个整通过MsgBox数可以设置信息框中MsgBox语句没有返回

MsgBox函数的第一个参数是一个整数，该参数只能确定框中显示的按[答案11题]在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒 [答案]D[第12题]在VisualBasic中通过 [答案[第13下叙述中错误的B）不同的对象可以具有相同名称的方[答案]D[第14有如下程序

[答案

DimcAsInteger,dc=dInputBox("请输入个整数DoWhiled>0Ifd>cThenc=c+1EnddInputBox("请输入个整数Printc+dEndSub钮如果在输入框中依次输入123、则输出结果是

[第15一个复选框被选中时，它的Value性的值是A)3B)2C)1D)[答案[第16达式5Mod3+3\5*2值 D)[答案[第17标题x<yAnd(Noty>z)Orz<xA) B)- D)False[答案]D[第18标题在窗体上画一个名称为Command1令PrivateSubCommand1_Click()PrintEnd B)Vis C)sic [答案[第19有如下程序段Fori=1To10Step2运行以上程序后，x的值A) B) C) D)[答案20标题

21题]在窗体上画一个名称为PrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerCallf1(x,y)Printx,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)End执行如下两条语句，窗体上显示的55C)7Print7 B) D)[答案

[答案[第22读程OptionBasePrivateSubForm_Click()Dimarr,SumSum= Fori=1ToIfarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后单击窗体结果A） B） C） D）[答案[第23题]VisualBasic设计界面中不能隐藏的窗口是()。[答案]A

[第24下可以构成语句的一项 )[答案]B[第25题]以下不是VisualBasic的特 [答案]B26题]在窗体上画一个名称为Command1令按钮，然后编写如下事PrivateSubCommand1_Click()StaticxAsIntegerFori=1To2Printx,yEnd 容程序运行后，连续三次单击Command1

End在 处应填入的钮后，窗体上显示的 424[答案[答案[第27窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击Private EndSubPrivateText1.Text=

[第28]设有如下程序：PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=Fori=1To5x=n/in=n+sum=sum+xEnd该程序通过For环计算一个表达式的A） B [答案29题]在窗体上画一个名称为Command1令按钮，然后编写如下事PrivateSubCommand1_Click()Forn=1To20IfnMod3<>0Thenm=m+n\3NextnPrintnEndA）15B）18C）21[答案[第30题]在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标Label4Label5Label6其中Label4~Label6分别显示"A"、"B"、"A*B"等文字信息，Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B计算结果。如图所示。当移动滚动

当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3以下不能实PrivateSubCommand1_Click() Str(Val(Label1.Caption)*Val(LabeEndPrivateSubCommand1_Click()Label3.Caption=HScroll1.Value*EndPrivateSubCommand1_Click()EndSubPrivateSubCommand1_Click()Label3.Caption=HScroll1.Text*EndSub[答案[第31题]在窗体（名称为Form1）上一个名称为Text1文本框和一个名称为Command1令按钮，然后编写一个框中输入一个字符，则把命令按钮的

算机等级考试EndSub[答案

Text1.Text="Private"计算机等级考EndPrivateCaption="计算机等级考EndPrivate计算机等级考试EndPrivate

[第32题]a=5,b=4,c=3,d=2，下列表达式的值是3>2*bOra=cAndb<>cOrA) TrueC)FalseD)2[答案]B[第33题]设a="VisualBasic",则以下使变量b值为"VisualBasic"的语句是B)b=Mid(a,10)C)b=Right(a,10)[答案[考点[第34标题假定有如下的窗体事件过程Privatea$= b$=Right(a$,5)c=Mid(a$,1,MsgBoxa$,34,b$,5EndA)B) [答案[考点[第35标题

设a="a",b="b",c="c",d="d",执行语x=Iif((ad),"A","B")后，x的值为 [答案[考点[第36标题为了使命令按钮(名称为Command1)右移A)Command1.Move-Command1.Move Command1.Left=Command1.Left-[答案[考点[第38标题[第37标题在窗体上画一个名称为Command1 xInputBox("请输入个整数Printx+Text1.TextEndSub输入456，然后单击窗体，在输入框中输入123，单击"确定"按钮后

按钮，然后编写如下代码OptionBasePrivateSubCommand1_Click()d=0c=x=Array(10,12,21,32,Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)上显示的内容是d=EndNextPrint[答案DEnd[考点程序运行后，如果单击命令按钮，则窗体上输出的内容A）89B）99C）23[答案[考点[第39标题设有如下通用过PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)EndText1文本框和一个名称为Command1PrivateDimarr(5)AsnAs

Fori=1To5arr(i)=i+ifunarr,nText1.Text=End[答案[考点[第40标题设有如下通用过程PublicFunctionf(xAsInteger)DimyAsIntegerx=y=f=x*yEndFunction在窗体上画一个名称为Command1令PrivateSubCommand1_Click()StaticxAsIntegerx=10y=f(x)Printx;yEndSubA）105B）20C）2040D）10[答案[考点

[第41标题在窗体上画一个名称为Command1令按钮和一个名称为Text1的文本框,在文Visual然后编写如下事件过程: "d:\temp\outf.txt"ForOutputAsFori=1c=Mid(Text1.Text,Ifc>="A"Andc<=Print#1,LCase(c)EndIfNextiEndSub程序运行后,单击命令按狃,文outf.txt的内容是:[答案[考点[第42标题假定在框Picture1中装入了一个图形，为了清除该图形（不删除框），

选择框，然后 B)执行语C)执行语句Picture1.Picture=""D)选择框，在属性窗口中选择Picture性，[答案[考点[第43标题在窗体上画一个List1Label1的列表框中显示若干个项目，当单击列表框中的某个项目时在中显示被选中的项目的名称下列能正确实现上述操作的程序是PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSubPrivate Label1.Name= EndSubPrivate Label1.Name= EndSubPrivateSub Label1.Caption= End[答案[考点[第44标题在窗体上画一个命令按钮，名称Command1，然后编写如下事件过程 DimiAsInteger,x

Fori=1ToIfi=1Thenx=iIfi<=4Thenx=x+1x=x+2EndIfNextiPrintxEndSub [答案[考点[第45标题在窗体上画一个名称为Command1按钮，然后编写如下事件过程 c=Forn=1To4Print

[第46标题执行以下程序DimxAsInteger,iEnd程序运行击命Fori=20ToStep-钮，要求在窗体上显示如下内容x=x+i\DNext后，x的值 则在 处应填的内容[答案[考点 [答案[考点

[第47标题在窗体上画一个命令按钮和一个文本框,名称分别为Command1Text1,然后编写 aInputBox("请输入期t旅游景点&IIf(a>0Anda<="","")&IIf(a>10Anda<="故宫&IIf(a>20Anda<="",Text1.Text=tEndSub输入16,则在文本框中显示的内容是:旅游景点：故旅游景点：颐园旅游景点：

[答案[考点[第48标题在窗体上画一个名称为Label1的然后编写如下事件过 Dimarr(10,10)DimiAsInteger,jFori=2ToForj=2To4arr(i,j)=i*jNextjNextLabel1.Caption=Str(arr(2,2)+arr(3,3))End程序运行后,单击窗体,在中显示的内容是[答案[考点[第49标题在窗体上画一个名称为Comamnd1令按钮,然后编写如下通用过程和命令按PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2fun=1

EndEnd DimiAsInteger,ss=Fori=1To5s=s+fun(i)PrintsEnd[答案[考点程序运行后,单击窗体[第50题][标题 输出结果为阅读程

OptionBaseDimarr()As

DimiAsInteger,j

[答案[考点ReDimarr(3,Fori=1ToForj=1To2arr(i,j)=i*2+jNextjNextReDimPreservearr(3,Forj=3To4arr(3,j)=j+9NextjPrintarr(3,2)+End

[第51标题OptionBase DimcAsInteger,dd=c=x=Array(2,4,6,10, [第52标题Fori=1ToIfx(i)>cThend=d+x(i)c=d=d-cEndIfNextiPrintdEndSub[答案[考点

OptionBasePrivateSubCommand1_Click()DimaAsVariantFori=1To5Sum=sum+a(i)NextiFori=1ToIfa(i)>xThenPrinta(i);NextiEndA）1 B）12 34 D） [答案CallFun(arr(),[答案CallFun(arr(),[考点Text1.Text=End程序运行后，单击命令按钮，则在文框中显示的内容[第53题[标题A）10B）15C）25PublicSubFun(a(),ByValxAsFori=1To5x=x+a(i)End在窗体上画一个名称为Text1文本框和一个名称为Command1令按钮，然PrivateSubCommand1_Click()Dimarr(5)AsVariantFori=1To5arr(i)=in=

[答案[考点[第54标题A）CaptionB）NameC）BackColorD）[答案[考点[第55标题()是由VisualBasic供的一种

NextyPrinta;NextxEndSub运行时输出的结果是 )A）文A11BB）属00CC）方12D23D）窗[答案[答案[考点[第56标题下列程PrivateSubForm_click(Forx=1toFory=1to

[考点[第57标题OptionBase1PrivateSubDima=Fori=1Toa(i)=a(i)+i-NextEndPrint运行后输出是)End B程序运行后，单击命令按钮，则在窗C上显示的内容D456[答案[考点[第58标题下列程PrivateSubForm_click()Fork=3to1Step-1x$=String(k,"*")Printm;x$

[答案[考点[第59标题下列程PrivateSubForm_click(Forj=1to

j=10LoopUntilEndPrintNumber;NextEndPrint运行输出的结果)End B运行时输出结果 CAB 3C D[答案[考点[答案[考点[第61标题[第60标题下列程PrivateSubForm_click(

下列程PrivateSubForm_click()Forj=1tox=Val(InputBox("请输入一个数IfxMod5=0Thenb=b+x:a=xEndIfNextjPrintbEndSub运行时输入75,55,42,80,输出的结 A B D[答案[考点[第62标题下列程PrivateSubForm_click(

d=Val(InputBox("请输入一个数"))DoWhiled>0Ifd>cThenc=c+1Printc+dEndSub运行时输入9,8,7,6,5,4,3,2,1,0的结果是 )A B D[答案[考点[第63标题下列程PrivateSubForm_click()x=Val(InputBox("请输入一个数"))Whilex<>-999Ifx>cThenc=xPrintc;:PrintEnd运行时输入5,9,8,2,-999，输出的结

PrivateSubCommand1_Click()n=Text1.TextSelectCasenCase1To20x=Case2,4,x=CaseIs<是)x=A98BCase92Cx=9D2EndText2.Textx[答案[考点[第64标题在窗体上画一个名称为Command1令按钮和两个名称分别为Text1、Text2的

End程序运行后，如果在文本框Text110，然后单击命令按钮，则在Text2A）10B）20C）30[答案[考点[第65标题执行语句Open".dat"ForRandomAs#1Len=50后，对文件.dat中的A）只能写，不能读B）只能读，不能写C）既可以读，也可以写D）不能读，不[答案[考点[第66标题下列程PrivateSubForm_click(AsIntegerb=

Ifa>bThenx=a-bPrintxEnd A B D[答案[考点[第67标题以下能判断是否到达文件尾的函数A）BOFB）LOCC）LOF[答案[考点设a=10，b=5，c=1，执行语句Printa[第68标题下列程PrivateSubForm_click()E=1:F=1ForJ=1to3E=E+F:F=F+ENextJPrintE;FEndSub该程序的输出结果是 ) D [答案[考点[第69标题

bc窗体上显示的A）TrueB）FalseC）1D）出错信[答案[考点[第70标题设窗体上有一个列表框控件List1中含有若干列表项。则以下能表示当前被选中的列表项内容的是A）List1.ListB）List1ListIndxC）List1.IdexD）List1.Text[答案[考点[第71标题[考点以下叙述中错误的保存VisualBasic序时，应分别事件可以由用户，也可以由系[答案[考点[第72标题以下不属于VisualBasic统的文件类A）.frmB）.batC）.vbg[答案

[第73标题以下叙述中错误的双击鼠标可以触发DblClick件移动鼠标时，会触发MouseMove事控件的名称可以由编程人员设[答案[考点[第74标题以下叙述中错误的VisualBasic是事件驱动型可视化VisualBasic应用程序不具有明显的VisualBasic工具箱中的所有控件都VisualBasic中控件的某些属性只能[答案[考点[第75标题设a=″VisualBasic″b=″Basic″的语句是()[答案

[考点[第76标题在第一个字符串中起始位置的函数是()[答案[考点[第77标题x=InputBox(″值″，″0″，″示例程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是()变量X的值是数值在InputBox框标题栏中显示的0是默认变量X的值是字符串[答案[考点[第78标题PrivateSubCommand1_Click（）StaticXAsIntegerStaticYAsInteger

PrintX，YEndSubCommand1后窗体上显示的结果为 15 15 [答案[考点[第79标题 单选按B)通用文本[答案[考点[第80标题)以下叙述中正确的窗体的Name属性指定窗体的名称， 窗体的Name性的值是显示在窗体可以在运行期间改变对象的Name对象的Name属性值可以为[答案[考点

[第81标题A）Combo1.RemoveItemTextB）Combo1.RemoveItem2C）Combo1.RemoveItem [答案[考点[第82标题 C=Left(A,5)+F=Mid(B,Len(B)-6,5)+"!"G=E+""+D+"!"Print[答案[考点[第83标题VisualBasic境下，当写一个新的VisualBasic序时，所做的第一件事是()。

打开属性窗进入VisualBasic[答案[考点[第84标题下列不属于VisualBasic6特点的 )对象的与嵌入[答案[考点[第85标题[考点下面关于VisualBasic6.0的说 B）一定在菜单栏的下C）可以显示或隐D）VisualBasic多个[答案[考点[第86标题可以使X为数值型数据的语句是 )[答案

[第87标题用标准中的工具按钮不能执行的 [答案[考点[第88标题 )。标题

EndSelectPrints;fEndSub运行时从键盘输6输出的结果是[答案C()[考点A7B68C69D[第89标题下列程PrivateSubForm_click()SelectCasesCaseCaseIs<5CaseIs<4CaseElse

[答案[考点[第90标题在正确安装VisualBasic6.0，可以通过多种方式启动VisualBasic。以下方式中，不能启动VisualBasic的是()。B）通过"我的电脑"找到vb6.exe，双击通过"开始"菜单中的"运行"命进入DOS方式，执行vb6.exe文[答案[考点[第91标题与传统的程序设计语言相比，VisualBasic突出的的特点是()。[答案[考点[第92标题

[答案[考点[第93标题VisualBasic体设计器的主要功能 )D）显示文[答案[考点[第94标题要求加午位分隔答，小数点后取2A）PrintFormat$(x,####,##.##)B）PrintFormat$(x,"##,####.##")C）PrintFormat$(x,",######.##")D）PrintFormat$(x,"######,.##")[答案[考点[第95标题表达式Val（".123E2CD"）的值

[答案[考点[第96标题 [答案[考点[第97标题[考点.对象可以识别和响应的某些行为称为 属[答案[考点[第98标题设a=″VisualBasic″b=″Basic″的语句是()[答案

[第99标题以下叙述中正确的是 NameNameNameName[答案]100 [答案]101PrivateSubCommandl_Click( x=InputBox("XDebug.PrintzEndSubInputBoxmandl 是VisualBasic中的合法变量(D）[答案][答案]105102a$="Flying":b$="IS":c$="funny!Printa$+""+Lcase$(b$)+""+b$=Right$(a$,3):Print运行后输出的结果 FlyingIs。 Flyingis FlyintgIS FLYINGIS[答案]106[答案]True B）-103下 不是字符串常量A）"[答案]B）"107选拔身高T1.7W62.5件的布尔表达 [答案]A）T>1.7AndB）T<=1.7OrC）T>1.7AndD）T>1.7Or104[答案]108100Form=2ToFori=2Tom- NextiPrintNext[答案]mmod109

dima$,c$,d$,n%,I% forI=1tonnextIprinta[答案]1123301000PrivateSubDimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopUntilCheck=FalsePrintCounterEnd程序运行后,单击窗体,输出结果是 [答案]110执行下面的程序段后，i的值为【 】，s的值为5。s=2Fori=3.2To4.9Step0.8s=s+1Next[答案]111

PrivateSubCommand1_Click()a=0:b=1c=1 a;b;c;WhileI<=30andd<=1000Printd;A=b:b=c:c=dD= I=I+1Endsub[答案]1131Dimx%,y%,z%,Print"5"1"0.5n=Forx=1ToFory=1To100-z= If5*x+1*y+0.5*z=100ThenPrintx,y,zn=n+1EndIfNextNextPrint"共有"&n&[答案]100-x-11410100～200PrivateSubCommand1_Click()Max=100Fori=1Tox=Int(Rnd* +100)Printx;Ifx>MaxThenMax=xNextiPrintMaxEndSub[答案]115130.8%计算，多少26PrivateSubCommand1_Click()x=13n=DoWhile x=x*1.008n=n+1

Printi;e[答案]1173～10t=Fori=3Tot= NextiPrint[答案]t*i118m，nIfm<nThent=m:m=n:n=tr=mmod r=mmodPrint"最大公约数=",[答案]r<>0119321规格a、b17271问分隔成a，brPrivateSubDima%,b%,r!,ia%,Printn,xEndSubr =\[答案]Fora=1\-116ebDimi%,n&,t!,t=321-b27a*e=0:n=i=0:t=DoWhilet>0.00001e=i=i+1n=n*it=1/ bIft>0Andt<rEndr==Next

Next

Picture1.Print"VBProgramming"EndSubPrintia,ib,rEndSub[答案]t[第120题]VisualBasic [答案]vbp121VisualBasic的窗体和控件是具有自己的属性、 [第122题]窗体和控件的大部分属性可以通过 [答案]属性[第123题]NameName属性是 [答案]form1[第124题]设A=37，则Hex（A）= [答案]45 AndNotd>60)的值 [答案]true[第126题]表达式6Mod2*6^2/6\2的值为 [答案][第127题]表达式Len(Str(1.3))的值为 [答案][考点][第128题]以下语句的输出结果是: PrintInt(12345.6789*100+0.5)/100[答案]12345.68129执行上面的程序段后，变量b$的值为 [答案][第130题]在窗体上画一个文本框和一个框,然后编写如PrivateSubForm_Click()Text1.Text"VBEndSubPrivateSub

是VB程序设计,而在框中显示的内容是【】[答案][第131题]在窗体上画一个名称为Text1的文本框然后画三PrivateSubOption1_Click(IndexAsInteger)SelectCaseindexCaseaCaseaCasea="楷体EndSelect =aEndSub[答案]fontname[第132题]下列程序运行的输出结果 PrivateSubForm_Click()i=10:j=0i=i-LoopWhilei>2Printj;EndSub[答案]133Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=Fork=mTo1Step-2sum=sum+kNextkfun=sumEndsfun(10)调用此函数，则s[答案]134PrivateSubIfList1.ListIndex>=0DimnAsInteger,sAs n=Label1.Caption= s=MsgBoxs=s+Endn=n-EndLoopWhilen>Print[答案]End142[答案]。OptionBasePrivateSub1355Mod2*6^2/6\2Dimarr1,Maxas[答案]arr1=Array(12,435,76,24,78,54,866,136Len(Str(1.3)mld2 =[答案]Fori=1To137Format(5,"0.00%")Ifarr1(i)>MaxThenMax= [答案]Next138Format(10,"0.00%")】Print"最大值是:";[答案]End139。DimIfxThenPrintxElsePrintx+[答案][答案][第140题]在窗体上画一个文本框、一个和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下PrivateSubS$InputBox("请输入一个字符串")Text1.Text=S$EndPrivateSubLabel1.Caption=UCase(Mid(Text1.Text,End程序运行后，单击命令按钮，将显示一个输入框，如果在是【】。[答案][第141题]在窗体上画一个列表框、一个命令按钮和一个签其名称分别为 mand1和Label1通过属性窗把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目""第四个项目"程序运行后在列表框中选择个项目，然后单击命令按钮，即可将所选择的项目删除，在中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。下面是实现上述功能的程序，请填空。PrivateSubCommand1_Click()

[第143题]以下程序的功能是：把当前 PrivateSubCommand1_Click()DiminDataAsStringText1.Text=""Open".\smtext1.txt" For【 】As#1DoWhile NotEOF(1)Input#1,Text1.Text=Text1.Text&inDataClose#1EndSub[答案]input[第144题]在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1令按钮，然后编写如下事件过PrivateSubCommand1_Click()DimxAsInteger,nAsIntegerDoW