vb程序设计for循环练习

11.终止FOT/NEXT循环的条件是：________2.决定FOR/NEXT循环次数的因素是循环变量的________,_______,和步长。3.FOR/NEXT循环的步长为____时可以省略。4.FORI=ATOBSTEPC，循环次数的表达式为________.5.写出下面程序的结果。(1)Fori=-5to-11step-3S=s+iPrintsNext(2)A$=”ls”Forx=5to3step-1A$=a$+a$NextxPrintmid$(a$,x,3)(3)fori=9to2step-6i=i+2printi*2;nextiprinti*2;(4)fori=1to10ifi\2=i/2then40s=s+i40nextprints(5)p=1fora=10to2step-2p=p*anexta?a,p(6)s$=””fori=65to70step2s$=s$+chr$(i)nextprints$(7)c$=”1234”fori=1tolen(c$)n=n+val(mid$(c$,i))nextprintn(8)forx=0to100step2printxnextx程序循环了________次。(9)forx=-3to7step2printx;next(10)forx=8to7step-2printx;nextx(11)forx=2to7step2x=x+2printx;nextx(12)forx=-2to-7step-2x=-x^2printx;nextx(13)forx=1.5to11step1.5printx;nextx(14)forx%=1.5to15step1.5printx%;nextx%(15)fori=1to10printI;i=i+1nexti(16)fori=1to10printI;i=i*2nexti(17)fora=1to5b=a*a+1printa,bc=a*anextaprint“b=”;b,”c=”;c(18)fori=-5to52ifi0thenx=x+iifi0theny=y+inextiprint“x=”;xprint“y=”;y(19)s=0:m=1fork=1to100s=s+m*k:m=-mnextkprints(20)fori=2to1step-1printinextiprinti(21)s=0fori=1to5y=rnd(1)+1s=s+int(y)nextprints(22)k=1:s=0fori=1to5s=s+k*ik=-knextiprints(23)fori=10to6step-1J=iNextiPrintj;i(24)p=1Fora=10to2step-2P=p*aNextaPrinta,p(25)x=1Fori=1to3Ifk=1thena=x*xIfk=2thena=x*x+1Ifk=3thena=x*x+2Printa;Nexti(26)s=0Fori=1to3Ifi=1thenP=1Elseifi=2thenP=2Elseifi=3thenP=3ElseP=4EndifPrintps=s+pnextiprints(27)forj=5to8A=a*10+jNextjPrinta(28)aa$=”43.2”:bb$=”98.7”Cc$=aa$+bb$Dd=val(cc$)Printdd(29)bb$=”Invitingafriendtodinner”M=len(bb$)Forj=1tomB$=mid$(bb$,j,1)Ifb$=”n”thenx=x+1NextjPrintx6.计算S=1+1/2+1/3……1/10S=0FORTO________S=________NEXTPRINTS37.计算S=(1×2)+(3×4)+……+(9×10)S=0FORI=1TO____S=S+_______NEXTIPRINTS8.求1~100奇数的平方和,即S=12+32+……+992。FORI=1TO________S=S+_________NEXTIPRINT“SUM=”;S9.输入任一字符串,然后按相反次序打出来INPUTA$M=________B$=“”FORK=MTO1STEP-1B$=________C$=C$+B$NEXTKPRINTC$10.用子程序的方法求2!+3!+4!的值S=0FORT=2TO4S=S+PNEXTTPRINT“2!+3!4!=”;SENDP=1FORK=1TO________NEXTKNEXTK________11.输入一个较短的字符串,查找是否包含在字符串“TheCOMPAQPersonalComputerBASIC”中,并指出短字符串在长字符中串中的位置。AS=“TheCOMPAQPersonalComputerBASIC”N=LEN(AS)INPUTB$M=LEN(B$)FORI=1TO________C$=MID$(________)IFC$=B$THENPRINT“YES”;I;:GOTO100NEXTIPRINT“NO”12.有如下程序:Forii=1to146step3Print“a”;Nexti程序运行后会打印()A.146个aB.49个aC.73个aD.46个a13.选择题(1)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerForI=0To50i=i+3n=n+1Ifi10ThenexitforNextText1.Text=Str(n)EndSubA)2B)3D)4D)5(2)设有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i);NextEndSub程序运行后，单击窗体，则在窗体上显示的是A)4321B)5432C)6543D)7654(3)在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：PrivateSubCommandl_C1ick()4S＝0Fori＝1T015x＝2*i一11fxMod3＝0Thens＝s十1NextiLabell．Caption=sEndSub程序运行后，单击命令按钮，则标签中显示的内容是A)1B)5C)27D)45(4)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Forn=1To20IfnMod30Thenm=m+n\3NextnPrintnEndSubA）15B）18C）21D）2414.程序填空.(1)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommandl_C1ick()Fori＝1To20x＝Int(____________*200+100)If_______[7]＝0ThenPrintxS＝S十_________[83EndIfNextiPrint“Sum＝”：SEndSub(2)执行下面的程序段后，i的值为____，s的值为_____。s=2Fori=3.2To4.9Step0.8s=s+1Nexti