资源描述：
《for循环例题(带答案)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、【例1】计算并显示1到100之间的自然数之和。PrivateSubForm_Click()DimiAsInteger,sAsIntegerS=0‘S是累加器，初值为0Fori=1To100s=s+iNextiPrintsEndSub【例2】计算并显示1到100之间的奇数之和。PrivateSubForm_Click()DimiAsInteger,sAsIntegerS=0Fori=1To100Step2s=s+iNextiPrintsEndSub【例3】计算并显示1到100之间的自然数之和，奇数之和，偶数之和。PrivateSubForm_Click()DimiAs
2、Integer,s1AsInteger,s2AsInteger,s3AsIntegerS1=0:s2=0:s3=0Fori=1To100s1=s1+I‘S1用来放自然数IfiMod2<>0Thens2=s2+I‘S2用来放奇数Elses3=s3+I‘S3用来放偶数EndIfNextiPrints1,s2,s3EndSub【例4】找出1-99之间是7的倍数或者个位数字是7或者十位数字是7的数字，并输出这些数字，统计有多少个。PrivateSubForm_Click()DimiAsInteger,nAsIntegern=0‘n是计数器，初值为0Fori=1To99Ifi
3、Mod7=0OriMod10=7Ori10=7ThenPrintin=n+1‘每找到一个符合条件的i值，n加1EndIfNextiPrint"共有"&n&"个"EndSub【例1】找出100－999之间的所有“水仙花数”。所谓水仙花数是指一个三位数，各位数字的立方和等于该数本身。（如153＝13＋53＋33）并输出这些数字，统计有多少个。并求出这些数字之和。PrivateSubForm_Click()DimiAsInteger,AAsInteger,BAsInteger,CAsInteger,_NAsInteger,SAsIntegerN=0:S=0‘N是计数器，
4、S是累加器Fori=100To999A=i100B=(i-A*100)10C=i-A*100-B*10‘A,B,C分别表示i的百位，十位，个位数字IfA^3+B^3+C^3=iThenPrintiN=N+1S=S+iEndIfNextiPrint"共有"&N&"个水仙花数","它们的和是"&SEndSub【例2】求PrivateSubForm_Click()DimiAsInteger,sAsSingles=0Fori=1To100s=s+1/i‘寻找到每次要加的数和循环变量i之间的关系是1/iNextiPrintsEndSub【例3】求PrivateSubFor
5、m_Click()DimiAsInteger,sAsSingles=0Fori=1To98s=s+i/(i+1)‘寻找每次要加的数和循环变量i之间的关系NextiPrintsEndSub【例1】求PrivateSubForm_Click()DimiAsInteger,sAsSingles=0Fori=1To100s=s+i/(2*i-1)‘寻找到每次要加的数和循环变量i之间的关系NextiPrintsEndSub【例2】求1×2×3×4×…×99×100=?PrivateSubForm_Click()DimiAsInteger,sAsDoubles=1‘s是累乘器，
6、初值为1Fori=1To100s=s*iNextiPrintsEndSub【例3】求10!PrivateSubForm_Click()DimiAsInteger,sAsDoubles=1Fori=10To1Step-1s=s*iNextiPrintsEndSub【例4】编写程序用键盘输入一个大于2的整数，并判断该数是否是素数PrivateSubForm_Click()DimiAsInteger,mAsInteger,AAsIntegerm=Val(InputBox("请输入一个大于2的整数"))A=Int(Sqr(m))Fori=2ToA‘依次用m除以2到AIfmM
7、odi=0Then‘只要能除尽，就退出循环，除不尽，继续循环ExitForEndIfNexti‘FOR循环可能会在两种情况之一退出（1）IF后条件为真（2）循环变量i超过终值‘在（1）的情况下退出，说明i不是素数；在（2）的情况下退出，说明i是素数Ifi>AThen‘i>A说明在情况（2）退出，所以i是素数MsgBoxm&"是素数"ElseMsgBoxm&"不是素数"EndIfEndSub【例1】从键盘接收一串字符串，统计出这串字符串中字符”a”出现的次数，并把这串字符串去掉”a”之后的字符串输出，结果用MSGBOX语句给出。PrivateSubForm_Cli
