vb循环结构选择题

1、一选择题1、无条件转移GoTo语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4 while循环结构中的条件表达式取值为（A）ATrueBFalseC、True或FalseD05 while循环结构中的条件表达式取值为（A）时执行语句组ATrueBFalseC、True或FalseD06while循环结构中与（A）匹配使用，不能单独出现AWendBendCloopDnext

2、7、Do、100P循环结构中的循环体执行的最少次数为（A）A0B1C2D38、前测型Do、100P循环结构中的循环体执行的最少次数为（A）A0B1C2D39、后测型Do、100P循环结构中的循环体执行的最少次数为（B）A0B1C、 2D、 310、Doloop循环结构中的ExitDo语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、DoToop中使用while关键字时，条件为（B）执行循环体A、 FalseB、 TrueC、 0D、假或真12、DoToop中使用until关键字时，条件为（A）执行循环体A、 FalseB、 TrueC、 0D、假或真1

3、3、DoToop中使用while关键字时，条件为（A）终止循环A、 FalseB、 TrueC、 0D、假或真14、DoToop中使用until关键字时，条件为（B）终止循环A、 FalseB、 TrueC、 0D、假或真15、FoNext循环结构中（C）用来控制循环变量A、forB、 stepC、 nextD、 to16、ForNext循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、FoNext循环结构中循环变量初值大于终值时，步长为（A）A、负数B、非负数C、正整数D、正数18、FoNext循环结构中循环变量初值小于终值时，步长为（A）A、

4、负数B、负整数C、正整数D、正数19、ForNext循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、FoNext中循环变量初值与终值间使用的关键字是（A）A、ToB、 InC、 gotoD、 private21、FoNext中循环变量初值与终值间使用的关键字是（A）A、ToB、 InC、 gotoD、 private22、执行下面的程序段后，s的值为（C）PrivateSubForm_Click（）StaticsAsIntegers=5Fori=1.4To2.1Step0.6s=s+1NextiPrintsEnd

5、SubA、5B、 6C、 7D、 123、下面程序的作用是利用随机函数产生10个100200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（A）PrivateSubCommand1_Click（）Form=1To10x=Int（Rnd*101+100）If（）ThenPrintx;EndIfNextmEndSubA、 xmod5=0B、 xmod5=0C、 x/5=0D、 x5=024、设有如下程序：OptionBase1PrivateSubForm_Click()Dima(10),P(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1

6、To3P(i)=a(i*i)NextiFori=1To3k=k+P(i)*2NextiPrintkEndSub程序运行后，单击窗体，则在窗体上显示的是(A)A、33B、 35C、 37D、 3825、在窗体上画一个命令按纽Commandl,然后编写如下事件过程:PrivateSubCommand1_Click()X=0N=val(inputbox(“n=?”)Fori=1tonForj=1toiX=x+1NextjNextiPrintxEndsub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n!的程序是(C)A、 privates

7、ubcommand1_click()N=5:x=1DoX=x*1I=i+1Loopwhilei<nPrintxEndsubB、 privatesubcommand1_click()N=5:x=1:i=1DoX=x*iI=i+1Loopwhilei<nPrintxEndsubC、 privatesubcommand1_click()N=5:x=1:i=1DoX=x*iI=i+1Loopwhilei<=nPrintxEndsubD、 privatesubcommand1_click()N=5:x=1:i=1DoX=x*iI=i+1Loopwhilei>nPrintxEnds

8、ub27、在窗体上画一个命令按纽Commandl,标签Labell然后编写如下事件过程:Privatesubcommand1_click()Fori=1to15X=2*i-1Ifxmod3=0thens=s+1NextiLabel1、caption=sEndsub程序运行后,单击命令按钮,标签中显示的内容是(B)A、1B、5C、27D、4528、在窗体上画一个命令按纽Commandl,然后编写如下事件过程：Privatesubcommand1_click()Fori=1to4Forj=0toiPrintchr$(65+i)NextiPrintEndsub程序运行后,单击命令按钮,窗体中显示的内

9、容是(A)A、 BBCCCDDDDEEEEEB、 ABBCCCDDDDC、 BCCDDDEEEED、 AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Privatesubcommand1_click()Dimxasinteger，nasintegerX=1：n=0Dowhilex<20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)Endsub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、 27和3C、 195

10、和3D、 600和429、在窗体中添加一个命令按钮，名称为Commandl,然后编写如下程序：PrivateSubCommand1_Click()Dima(5),b(5)Forj=1to4A(j)=3*jB(j)=a(j)*3NextjText1、text=b(j2)EndSub程序运行后，单击命令按钮，在文本框中显示(B)A、25B、 18C、 36D、 3530、下面程序运行时，内层循环的循环总次数是（A）Form=1To3Forn=0Tom-1NextnNextmA、6B、 3C、 0D、 931、定义语句DimA（-3to3）asInteger,定义数组的元素个数是（D）A、6B、 3

11、C、 0D、 732、 执行下面的程序段后，X的值为（C）X=5ForI=1to10Step2X=X+I5NextIA、7B、 10C、 8D、 533、 如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（D）ForI=atobPrintINextIA、 0B、 1C、 2D、 334、下列关于dowhileloop和do-loopuntil循环执行循环体次数的描述正确的是（D）A、 dowhile100P循环和do-loopuntil循环至少都执行一次B、 dowhile100P循环和do-loopuntil循环可能都不执行C、 dowhile100P循环至少执行一次，do

12、-loopuntil循环可能不执行D、 dowhile100P循环可能不执行，do-loopuntil循环至少执行一次35、 在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click（）Fori=1To4a=1Forj=1To3a=2Fork=1To2a=a+6NextkNextjNextiPrintaEndSub程序运行后，单击命令按钮，则在窗体上显示的内容是(A)A、 14B、 15C、 16D、 1736、 设有如下程序：PrivateSubForm_Click()a=1Fori=1To3SelectCaseiCase1,3a=

13、a+1Case2,4a=a+2EndSelectNextiPrintaEndSub程序运行后，单击窗体，则在窗体上显示的内容是(B)A、 6B、 5C、 4D、 337、 在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：subss(b()asInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6a(3)=7:a(4)=8ssa()Fori=1To4Printa(i)NextiEndSub运行上面的程序，单击命令按钮，则在窗体上显示的内容是(B

14、)A、 5678B、 2468C、 1234D、 576838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Functionfun(xAsInteger)Staticzy=y+1:z=z+1fun=x+y+zEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=1Fori=1To2Printfun(x)NextiEndSub程序运行后，如果单击命令按钮，窗体中显示的内容是(B)A、 33B、 34C、 35D、 3639、 若I、n均为整型变量，下列程序段的输出结果为(C)PrivateSubForm_Click()n=

15、0Fori=1To10IfiMod2=1Thenn=n+1NextiPrintnEndSubA、 0B、 4C、 5D、 340、 在窗体中添加一个文本框(其中Name属性为Text1),然后编写如下代码：PrivateSubForm_click()Text1、Text=""Text1、SetFocusFori=1To10Sum=Sum+iNextiText1、Text=SumEndSub上述程序运行后，单击窗体，则运行的结果(A)A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Comman

16、d1的命令按钮，然后编写如下代码：PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入X的值")x=Val(x)a=a+b+xLoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入1<CR>2<CR>3<CR>4<CR>5<CR>-1<CR>，则输出结果为(A)A、 8B

17、、 9C、 14D、 1542、设有如下程序：OptionBase1PrivateSubForm_Click()Dima(10),P(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3P(i)=a(i*i)NextiFori=1To3k=k+P(i)*2NextiPrintkEndSub程序运行后，单击窗体，则在窗体上显示的是(A)B、 35C、 37D、 3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1F=a+b+cEndFunctionPri

18、vateSubCommand1_Click()DimaAsIntegerDimbAsIntegera=2Fori=1To3b=F(a)PrintbNextiEndSub程序运行后，如果单击命令按钮，则窗体上显示的内容是(A)A、 456B、 123C、 0123D、 23444、 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：PrivateSubCommand1_Click()Fora=1To4Forb=0ToaPrintChr(65+a)NextbPrintNextaEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是(B)A、 ABBCCCDDDDB、 BB

19、CCCDDDDEEEEEC、 BCCDDDEEEED、 BCDE45、 循环是一组重复执行的指令，重复次数由（B）决定A、int（终值-初值）+1B、int（终值-初值）/步长）+1C、int（终值-初值）/步长）D、（终值-初值）/步长46、 假定有以下程序段：Fori=1To3Forj=5To1Step-1Printi*jNextj,i则语句Printi*j的执行次数是（A）A、 15B、 16C、 17D、 1847、 以下程序段的输出结果是（C）num=0Whilenum<=2num=num+1PrintnumWendA、 135B、 234C、 123D、 01248、 、在窗

20、体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_Click（）Dimn（）AsIntegerDima,bAsIntegera=InputBox（"Enterthefirstnumber"）b=InputBox（"Enterthesecondnumber"）ReDimn（aTob）Fork=LBound（n,1）ToUBound（n,1）n（k）=kPrintn（k）NextkEndSub程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为(D)A、 01B、 13C、 12D

21、、 2349、 在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<10x=(x-2)*(x+3)n=n+1LoopText1、Text=Str(n)Text2、Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为(B)A、 1和0B、 2和24C、 3和50D、 4和6850、在窗体上画一个名称为Command的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Cli

22、ck()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1S钮后，窗体上显示的是(B)A、 42B、 1218C、 1230D、 4651、设有如下程序段：x=2Fori=1To10Step2x=x+iNext运行以上程序后，x的值是(B)A、 26B、 27C、 38D、 5752、在窗体上画一个名称为Command的命令按钮，然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToUBoun

23、d(a)a(i)=a(i)+i-1NextPrinta(3)EndSub程序运行后，单击命令按钮，则在窗体上显示的内容是(B)A、 4B、 5C、 6D、 753、阅读程序OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后，单击窗体，输入结果为(C)A、 13B、 14C、 27D、 1554、 执行以下程序段a$="ab

24、bacddcba"Fori=6To2Step-2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X&Y&z)NextiPrintz输出结果为(B)AABABBBABBACABBABADXAABAAB55、在窗体上画一个名称为Command的命令按钮，然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,4,5)Sum=0Fori=1To5Sum=sum+a(i)Nextix=Sum/5Fori=1To5Ifa(i)>xThenPrin

25、ta(i);NextiEndSub程序运行后，单击命令按钮，在窗体上显示的内容是(D)A、12B123C345D4556、以下程序段的输出结果是(A)num=0Whilenum<=5num=num+1WendPrintnumA、6B2C5D157、PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序运行后，单击窗体，输出结果是(A)A、814B、563C、281D243558、有如下程序：PrivateSubForm_Click()DimiAsInt

26、eger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序运行后，单击窗体，输出结果为(A)A、12R30C24D1859、在窗体上画一个名称为Text1的文本框和一个名称为Command的命令按钮,然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiTex

27、t1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是(A)A、12R3C14D1560、在窗体上画一个命令按钮，其名称为Command，1然后编写如下事件过程：PrivateSubCommand1_Click()Dima1(4,4),a2(4,4)Fori=1To4Forj=1To4a1(i,j)=i+ja2(i,j)=a1(i,j)+i+jNextjNextiPrinta1(3,3);a2(3,3)EndSub程序运行后，单击命令按钮，在窗体上输出的是(D)A、66R105C721D61261、有如下程序：OptionBas

28、e1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后，单击窗体，输出结果为(C)A、25R26C27D2862、在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima(5)AsStringFori=1To5a(i)=Chr(Asc("A")+(i-1)NextiForEachbIn

29、aPrintb;NextEndSub程序运行后，单击命令按钮，输出结果是(A)A、ABCDER12345C、abcdeD出错信息63、设有以下函数过程：Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用语句s=fun(10)调用此函数，则s的值为(A)A、30B、26C、27D>2864、在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大

30、小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示至1JText1中。例如，若在Text1中输入的是abDfdb,则单击Command!钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC空。PrivateSubCommand1_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Textl)s=""c="Z"Whilec>="A"IfInStr(str,c)=0Thens=_CEndIfc=Chr$(Asc(c)-1)

31、WendIfs<>""ThenTextl=sEndIfEndSubA、1B、sC、s&cD>065、在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n!/r!/(n-r)!。窗体中有3个文本框的名称依次是Textl、Text2、Text3。程序运行时在Textl、Text2中分别输入n和r的值，单击Command1钮即可求出选法的个数，并显示在Text3文本框中，请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/C/f

32、un(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLongt=1Fork=1Tont=t*kNextfun=tEndFunctionA、fun(n)B、fun(nj)Gfun(n-r)D>fun(r-n)66、以下是一个比赛评分程序。在窗体上建立一个名为Textl的文本框数组，然后画一个名为Text2的文本框和名为Command的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，请填空。PrivateSubCommand1_Click()D

33、imkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=Text1(0)Fork=ATo6Ifmax<Text1(k)Thenmax=Text1(k)EndIfIfmin>Text1(k)Thenmin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=(sum-max-min)/5EndSubA0B、1C、-1D267、在列表框Listl中已经有若干人的简单信息，运行时在Textl文本框输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，

34、则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommand1_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len(A)k=0Whilek<List1.ListCountAndNotfoundIfText1=Left$(List1.List(k),n)ThenText2=List1.List(k).namefound=TrueEndIfk=k+1WendIfNotfoundThenText2="查

35、无此人"EndIfEndSubA、text1.textB、text1C、text2D>text2.text68、在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb,则单击Command1钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC空。PrivateSubCommand1_Click()DimstrAsString,sAsString,

36、cAsStringstr=UCase(Text1)s=""c="Z"Whilec>="A"IfInStr(str,c)=0Thens=s&cEndIfc=Chr$(Asc(c)A)WendIfs<>""ThenTextl=sEndIfEndSubA、-1B、0C、1D+169、在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n!/r!/(n-r)!。窗体中有3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，

37、单击Command1钮即可求出选法的个数，并显示在Text3文本框中，请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/fun(n-r)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLongBFork=1Tont=t*kNextfun=tEndFunctionAt=0B、t=1C、k=0D>k=170、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command的命令按

38、钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，请填空。PrivateSubCommand1_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=CFork=0To6Ifmax<Text1(k)Thenmax=Text1(k)EndIfIfmin>Text1(k)Thenmin=Text1(k)EndIfsum=sum+Text1(k)NextkText2=(sum-max-min)/5EndSubA、text1(1)B、text(0)C、text1(0)Dtext2(0)71、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command的命