第六章VB控制结构

第六章VB控制结构一、选择题1.下列程序段的执行结果为：N=10ForK=NTO1Step-lX=Sqr(K)X=X-2NextKPrintX-2A、-3B、-1C、1D、1.162277652.如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是:ForI=atobPrintINextIA、0B、1C、2D、33.以下Case语句中错误的是：A、Case0To10B、CaseIs10C、CaseIs10AndIs50D、Case3,5,Is104.在窗体中添加一个命令按钮Command1，并编写如下程序：PrivateSubCommand1_Click()x=InputBox()Ifx^2=9Theny=xIfx^29Theny=1/xIfx^29Theny=x^2+1PrintyEndSub程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果是:A、3B、0.33C、17D、0.255.在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()Fori=1To4a=1Forj=1To3a=2Fork=1To2a=a+6NextkNextjNextiPrintaEndSub程序运行后，单击命令按钮，则在窗体上显示的内容是：A、14B、15C、16D、176.当VB执行下面语句后，A的值为：A=1IfA0ThenA=A+1IfA1ThenA=0A、0B、1C、2D、37.设有如下程序段：x=2Fori=1To10Step2x=x+iNext运行以上程序后，x的值是：A、26B、27C、38D、578.运行下列程序段后，显示的结果为：J1=23J2=32IfJ1J2ThenPrintJ2ElsePrintJ1A、23B、32C、55D、23329.执行以下语句后显示结果为：DimxAsIntegerIfxThenPrintxElsePrintx-lA、1B、0C、-1D、不确定10.下列关于dowhile…loop和do…loopuntil循环执行循环体次数的描述正确的是:A、dowhile…loop循环和do…loopuntil循环至少都执行一次B、dowhile…loop循环和do…loopuntil循环可能都不执行C、dowhile…loop循环至少执行一次，do…loopuntil循环可能不执行D、dowhile…loop循环可能不执行，do…loopuntil循环至少执行一次11.下列语句正确的是：A、IfA≠BThenPrintA不等于BB、IfABThenPrintfA不等于BC、IfABThenPrintA不等于BD、IfA≠BPrintA不等于B12.假设x的值为5，则在执行以下语句时，其输出结果为“OK”的Selectcase语句是:A、SelectCaseXCase10to1PrintOKEndSelectB、SelectCaseXCaseIs5,Is5PrintOKEndSelectC、SelectCaseXCaseIs5,1,3to10PrintOKEndSelectD、SelectCaseXCase1,3Is5PrintOKEndSelect13.执行下面的程序段后，x的值为：x=10Fori=1To20Step3x=x+i\4NextIA、24B、25C、26D、2714.执行如下两条语句，窗体上显示的是：a=9.8596PrintFormat(a,$00,00.00)A、0,009.86B、$9.86C、9.86D、$0,009.8615.如果变量a、b、c均为整型，下列程序段的输出结果为:a=2b=3c=a*bPrinta&“*”&b&“=”&cA、c=6B、a*b=cC、2*3=6D、a*b=616.下列程序段的执行结果为：X=2Y=lIfX*YlThenY=Y-1ElseY=-1PrintY-X0A、TrueB、FalseC、-1D、117.下列程序段的执行结果为：I=0ForG=10To19Step3I=I+lNextGPrintIA、4B、5C、3D、618.下列程序段的执行结果为：A=0：B=0ForI=-1TO-2Step–lForJ=lTO2B=B+lNextJA=A+1NextIPrintA；BA、24B、-22C、42D、2319.下面有关注释语句的格式，错误的是:A、Rem注释内容B、′注释内容C、a=3:b=2′对a、b赋值D、PrivateSubCommand1_MouseDown(buttonAsInteger,shiftAsInteger,_Rem鼠标按下事件的命令调用过程XAsSingle,YAsSingle)20.下列各程序段中，正确的是:A、If1010Thena=a+10EndIfB、Ifa10Thena=a+1Elsea=a+5EndIfC、Ifa=10Thena=a+1ElseEndIfD、Ifa=10Thena=a+1ElseIfa=20Thena=a+10EndIf21.在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：PrivateSubCommand1_Click()Dimk,n,mAsIntegern=5m=1k=1DoWhilek=nm=m*2k=k+1LoopPrintmEndSub程序运行后，单击按钮，输出结果为：A、12B、32C、48D、9622.以下程序段运行时从键盘上输入字符“-”，则输出结果为:op$=InputBox(op=)Ifop$=+Thena=a+2Ifop$=-Thena=a-2PrintaA、2B、-2C、0D、+223.编写如下程序：PrivateSubForm_Click()a$=54321：b$=abcdeForj=lTo5PrintMid$(a$，6-j，1)+Mid$(b$，j，1)；NextjPrintEndSub程序运行后，单击窗体，其输出结果为：A、alb2c3d45eB、a5b4c3d2elC、eld2c3b4a5D、la2b3c4d5e24.在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex20x=x*3n=n+lLoopTextl．Text=Str(x)Text2．Text=Str(n)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别是：A、15和lB、27和3C、195和3D、600和425.在窗体上画一个命令按钮，然后编写如下事件过程：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、l、-1，则输出结果为：A、2B、3C、14D、1526.设有如下程序：PrivateSubForm_Click()score=Int(Rnd*10)+30SelectCasescoreCaseIs10a$=FCase10To19a$=DCase20To29a$=CCase30To39a$=BCaseElsea$=AEndSelectPrinta$EndSub程序运行后，单击窗体，则在窗体上显示的是：A、AB、BC、CD、D27.在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：PrivateSubCommandl_C1ick()S＝0Fori＝1to15x＝2*i-11fxMod3＝0Thens＝s+1NextiLabel1．Caption=sEndSub．程序运行后，单击命令按钮，则标签中显示的内容是：A、1B、5C、27D、4528.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0n=InputBox()Fori=1TonForj=1Toix=x+1NextjNextiPrintxEndSub程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是：A、3B、4C、5D、629.设有如下程序：PrivateSubForm_Click()Print“*”;Tab(6);2,5ForI=15To16PrintIForj=2To6Step3PrintTab(3*j);j*I;NextjPrintNextIEndSub程序运行后，单击窗体，则在窗体上显示的是:30.下列程序段的执行结果为：a=1b=0SelectCaseaCase1SelectCasebCase0Print**0**Case1Print**1**EndSelectCase2Print**2**EndSelectA、**0**B、**1**C、**2**D、031.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticyAsIntegerClsFori=OTO2x=x+yy=y+3NextPrintx,yEndSub程序运行后，连续二次单击Command1按钮后，窗体上显示的是：A、69B、3618C、3012D、632732.下列程序段的执行结果为：N=0ForI=lTo3ForJ=5TolStep-1N=N+lNextJNextIPrimN；J；IA、1204B、1504C、123lD、153133.设有如下程序：PrivateSubForm_Click()a=1Fori=1To3SelectCaseiCase1,3a=a+1Case2,4a=a+2EndSelectNextiPrintaEndSub程序运行后，单击窗体，则在窗体上显示的内容是：A、6B、5C、4D、334.下列程序段的执行结果为:a=75Ifa60ThenI=1Ifa70ThenI=2Ifa80ThenI=3Ifa90ThenI=4PrintI=;IA、I＝1B、I＝2C、I＝3D、I＝435.编写如下事件过程：PrivateSubForm_Click()k=2Ifk=lThenA=3Ifk=2ThenA=2Ifk=3ThenA=IPrimAEndSub程序运行后，单击窗体，输出的结果为：A、1B、2C、3D、出错36.下列程序段的执行结果为：A=abcdB=bcdeE=Right(A，3)F=Mid(B，2，3)IfEFThenPrintE+FElsePrintF+EA、cdebcdB、cddC、cdcdD、bcdcde37.有如下事件过程：PrivateSubCommand1_Click()b=10DoUntilb=-1a=InputBox(“请输入a的值”)a=Val(A)b=InputBox(“请输入b的值”)b=Val(b)a=a*bLoopPrintaEndSub程序运行后，依次输入数值30，20，10，－1，输出结果为:A、6000B、－10C、200D、-600038.如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是:A、移去第一项B、移去最后一项C、移去最后加入列表一项D、以上都不对二、填空题1.下列程序的输出结果为。num=2Whilenum=3num=num+1Printnum;Wend2.以下程序段的输出结果是_______。num=0Whilenum=2num=num+1WendPrintnum3.若I、n均为整型变量，下列程序段的输出结果为__。Private