(完整版)VB循环结构练习题VIP专享

VB 循环结构练习题一、分析程序的运行结果（每题 2 分，共 60分）1、以下循环的执行次数是 oK=0DoWhilek<=10k=k+lLoop2、下列程序段的执行后输出的结果为 oI=4:A=5Do1=1+1:A=A+2LoopUntilI〉=7Print"A 二";A3、下列程序的执行结果是—oT=0:m=1:Sum=0Dot 二 t+m:Sum=Sum+t:m=m+2LoopWhilem<=9PrintSum4、下列程序段的执行时，共循环次。Fora=0To1Forb=lTo2Forc=lTo31=1+1NextcNextbnexta5、下列程序段的运行结果是：Subsele()DimnasInteger1=21:n=3DoWhileI>nI=I-nLoopPrintIEndSub打 E 卩结果 o6、执行下面的程序段后，s 的值为S=5For1=2.6To4.9Step2s=s+lNextI7、下列程序段的执行后输出的结果为K=1ForI=1To3A=I"I"KNextIPrintA8、下列程序的执行结果是 oMl=l:m2=1DoWhilem2<>6ml=ml*m2:m2=m2+lLoopPrintml9、下列程序的执行结果是 oPrivateFunctionP(NAsInteger)ForI=IToNSUM=SUM+1NextIP=SUMEndFunctionPrivateSubCommandl_Click()S=P(l)+P(2)+P(3)+P(4)PrintS:EndSub10、以下程序用来输出 1 到 100 所有奇数的和，请补充完该程序。PrivateSubCommand3_C1ick()DimsAsLongDimxAsIrrtegers=0Forx=lto100stepS=S+XNextxPrintsEndSub11、下列程序的执行结果是 oA=75Ifa>60ThenI=1Elselfa>70ThenI=2Elselfa>80ThenI=3Elselfa>90ThenI=4EndIfPrintI12、下列程序段的运行后 t 的值为_Dimt,kassinglek=5:t=ldoWhilek>=-lt=t*k:K=K-1loop13、下面程序段的输出结果是 oP=0:s=0Dop=p+2s=s+pLoopWhilepythenx=x-yelsex=x+y19、有如下程序，该程序的运行结果是 oA=20:b=10printa>b20、有如下程序，该程序的运行后输出的结果是 oPrivatesubCommand1Click()I 二〃AAAAAA”Mid(I,4,3)=，，BBB，/PrintIEndSub21、下面程序段执行后的结果是 oX=10For1=6.3to4.9Step-0.3x=x-lNextPrintx22、在窗体上画一个命令按钮(其 Name 属性为...