vb程序设计for循环练习

《vb程序设计for循环练习》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1.终止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)for

2、i=1to10ifi2=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)f

3、orx=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=-5to5ifi>0thenx=x+ii

4、fi<0theny=y+i5nextiprint“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(2

5、5)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)dima(10)fori=1to10A(i)=i*10+iNextiPrinta(i-1);(28)dima(10)fori=1to10A(i)=i*10+iNextiPrinta(6)moda(5)(29)dima(10)F

6、ori=1to10step2A(i)=i*10.5+iNextiPrinta(7);a(3)(30)dima(5)asintegerFori=1to4A(i)=2*i-1NextiPrinta(a(i)+i)(31)dima$(5)A$(1)=”A”:a$(2)=”B”Fori=3to5A$(i)=a$(I-1)+a$(i-2)Printa$(i)Nexti(32)dima(2)5fori=-2to0A(abs(i))=i*2NextPrinta(1);a(2)(33)dima(5)fori=2to5A(i)=i-1A(a(i))=i^2Printa(a(i));Next

7、i(34)dima(10)Fori=1to10A(i)=iNextiFori=1to10A(i)=a(11-i):printa(i);Nexti(35)forj=5to8A=a*10+jNextjPrinta(36)aa$=”43.2”:bb$=”98.7”Cc$=aa$+bb$Dd=val(cc$)Printdd(37)bb$=”Invitingafriendtodinner”M=len(bb$)Forj=1tomB$=mid$(bb$,j,1)Ifb$=”n”thenx=x+1NextjPrintx(38)optionba