资源描述：
《for循环练习题答案》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、精品文档for循环练习题答案PrivateSubForm_ClickDimiAsInteger,sAsIntegerS=0‘S是累加器，初值为0Fori=1To100s=s+iNextiPrintsEndSub计算并显示1到100之间的奇数之和。PrivateSubForm_ClickDimiAsInteger,sAsIntegerS=0Fori=1To100Steps=s+iNextiPrintsEndSub计算并显示1到100之间的自然数之和，奇数之和，偶数之和。PrivateSubForm_ClickDimiAsInteger,s1AsInteger,sAsInteg
2、er,2016全新精品资料-全新公文范文-全程指导写作–独家原创17/17精品文档sAsIntegerS1=0:s2=0:s3=0Fori=1To100s1=s1+I‘S1用来放自然数IfiMod0Thens=s+I‘S2用来放奇数Elses=s+I‘S3用来放偶数EndIfNextiPrints1,s2,s3EndSub找出1-99之间是7的倍数或者个位数字是7或者十位数字是7的数字，并输出这些数字，统计有多少个。PrivateSubForm_ClickDimiAsInteger,nAsIntegern=0‘n是计数器，初值为0Fori=1To9IfiMod=0OriMo
3、d10=Ori10=ThenPrintin=n+1‘每找到一个符合条件的i值，n2016全新精品资料-全新公文范文-全程指导写作–独家原创17/17精品文档加1EndIfNextiPrint“共有”&n&“个”找出100－999之间的所有“水仙花数”。所谓水仙花数是指一个三位数，各位数字的立方和等于该数本身。并输出这些数字，统计有多少个。并求出这些数字之和。PrivateSubForm_ClickDimiAsInteger,AAsInteger,BAsInteger,CAsInteger,_
S=S+iEndIfNextiPrint“共有”&N&“个水仙花数”,“它们的和
4、是”&SEndSub1111111?????...????求1234599100PrivateSubForm_ClickDimiAsInteger,sAsSingles=0Fori=1To100s=s+1/i‘2016全新精品资料-全新公文范文-全程指导写作–独家原创17/17精品文档寻找到每次要加的数和循环变量i之间的关系是1/iNextiPrintsEndSub12349798????...????求2459899PrivateSubForm_ClickDimiAsInteger,sAsSingles=0Fori=1To8s=s+i/‘寻找每次要加的数和循环变量i之间的
5、关系NextiEndSub求11?23?35?47?...?99100197?199??PrivateSubForm_ClickDimiAsInteger,sAsSingles=0Fori=1To100s=s+i/‘寻找到每次要加的数和循环变量i之间的关系NextiPrintsEndSub求1×2×3×4×?×99×100=?PrivateSubForm_ClickDimiAsInteger,sAsDoubles=1‘s是累乘器，初值为1For2016全新精品资料-全新公文范文-全程指导写作–独家原创17/17精品文档i=1To100s=s*iNextiPrintsEndS
6、ub求10!PrivateSubForm_ClickDimiAsInteger,sAsDoubles=1Fori=10To1Step-1s=s*iNextiPrintsEndSub编写程序用键盘输入一个大于2的整数，并判断该数是否是素数PrivateSubForm_ClickDimiAsInteger,mAsInteger,AAsIntegerm=Val)A=Int)Fori=ToA‘依次用m除以到AIfmModi=0Then‘只要能除尽，就退出循环，除不尽，继续循环ExitFor12】13】EndIfNexti‘FOR循环可能会在两种情况之一退出IF后条件为真循环变量i超
7、过终值‘在的情况下退出，说明i不是素数；在的情况下退出，说明i是素数Ifi>AThen‘i>A说明在情况退出，所以i是素数MsgBoxm&“是素数”ElseMsgBoxm&“不是素数”EndIfEndSub从键盘接收一串字符串，统计出这串字符串中字符”a”出现的次数，并把这串字符串去掉”a”之后的字符串输出，结果用MSGBOX语句给出。PrivateSubForm_ClickDimiAsInteger,S,CAsString,NAsIntegerS=InputBoxN2016全新精品资料-全新公文范文-全程指导写作
