vbfor循环练习题

《vbfor循环练习题》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、精品文档vbfor循环练习题3.FOR/NEXT循环的步长为____时可以省略。.FORI=ATOBSTEPC，循环次数的表达式forx=0to100stepprintxnextx程序循环了________次。forx=-tostep为________.5.写出下面程序的结果。Fori=-to-11step-3S=s+iPrintsNextA$=”ls”Forx=tostep-1A$=a$+a$NextxPrintmid$fori=tostep-6i=i+printi*2;nextiprinti*2;fori=1to10ifi2=i/then0s=s+i0next

2、printsp=1fora=10tostep-p=p*anexta?a,ps$=””fori=6to0steps$=s$+chr$nextprtx;nextxforx%=1.to1step1.printx%;nextx%fori=1to10printI;i=i+1nextifori=1to10printI;i=i*nextifora=1tob=a*a+1printa,bc=a*anextaprint“b=”;b,”c=”;cfori=-toifi>0thenx=x+iifinextiprint“x=”;xprint“y=”;ys=0:m=1fork=1to100s=

3、s+m*k:m=-mnextkprint2016全新精品资料-全新公文范文-全程指导写作–独家原创15/15精品文档sfori=to1step-1printinextiprintis=0fori=1toy=rnd+1s=s+intnextprintsk=1:s=0fori=1tos=s+k*ik=-knextiprintsfori=10tostep-1J=iNextiPrintj;ip=1Fora=10tostep-2P=p*aNextaPrinta,px=1Fori=1toIfkFori=1toIfi>=1thenP=1Elseifi>=thenP=Elseifi

4、>=thenP=ElseP=EndifPrintps=s+pnextiprintsdimafori=1to10A=i*10+iNextiPrinta;dimafori=1to10A=i*10+iNextiPrintamodadimaFori=1to10stepA=i*10.5+iNextiPrinta;adimaasintegerFori=1toA=2*i-1NextiPrinta+i)dima$A$=”A”:a$=”B”Fori=toA$=a$+a$Printa$Nextidimafori=-to0A)=i*NextPrinta;adimafori=toA=i-1

5、A)=iPrinta);NextidimaFori=1to10A=iNextiFori=1to10A=a:printa;Nextiforj=toA=a*10+jNextjPrintaaa$=”43.2”:bb$=”98.7”Cc$=aa$+bb$2016全新精品资料-全新公文范文-全程指导写作–独家原创15/15精品文档Dd=valPrintddbb$=”Invitingafriendtodinner”M=lenForj=1tomB$=mid$Ifb$=”n”thenx=x+1NextjPrintxoptionbase1b=arrayFori=1toA=a+lef

6、t,i)NextiPrinta6.计算S=1+1/2+1/3??1/10S=0FORTO________S=________NEXTPRINTS7.计算S=++??+S=0FORI=1TO____S=S+_______NEXTIPRINTS8.求1~100奇数的平方和,即S=1+2+??+992。FORI=1TO________S=S+_________NEXTIPRINT“SUM=”;S9.输入任一字符串,然后按相反次序打出来INPUTA$M=________B$=“”FORK=MTO1STEP-1B$=________C$=C$+B$NEXTKPRINTC$10

7、.用子程序的方法求2!+3!+4!的值2016全新精品资料-全新公文范文-全程指导写作–独家原创15/15精品文档S=0FORT=TOS=S+PNEXTTPRINT“2!+3!4!=”;SENDP=1FORK=1TO________NEXTKNEXTK________11.输入一个较短的字符串,查找是否包含在字符串“TheCOMPAQPersonalComputerBASIC”中,并指出短字符串在长字符中串中的位置。AS=“TheCOMPAQPersonalComputerBASIC”N=LENINPUTB$M=LENFORI=1TO________C$=MID