資源描述：
《for循環(huán)例題(帶答案)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、【例1】計(jì)算并顯示1到100之間的自然數(shù)之和。PrivateSubForm_Click()DimiAsInteger,sAsIntegerS=0‘S是累加器，初值為0Fori=1To100s=s+iNextiPrintsEndSub【例2】計(jì)算并顯示1到100之間的奇數(shù)之和。PrivateSubForm_Click()DimiAsInteger,sAsIntegerS=0Fori=1To100Step2s=s+iNextiPrintsEndSub【例3】計(jì)算并顯示1到100之間的自然數(shù)之和，奇數(shù)之和，偶數(shù)之和。PrivateSubForm_Click()DimiAsInteger,s1AsI
2、nteger,s2AsInteger,s3AsIntegerS1=0:s2=0:s3=0Fori=1To100s1=s1+I‘S1用來(lái)放自然數(shù)IfiMod2<>0Thens2=s2+I‘S2用來(lái)放奇數(shù)Elses3=s3+I‘S3用來(lái)放偶數(shù)EndIfNextiPrints1,s2,s3EndSub【例4】找出1-99之間是7的倍數(shù)或者個(gè)位數(shù)字是7或者十位數(shù)字是7的數(shù)字，并輸出這些數(shù)字，統(tǒng)計(jì)有多少個(gè)。PrivateSubForm_Click()DimiAsInteger,nAsIntegern=0‘n是計(jì)數(shù)器，初值為0Fori=1To99IfiMod7=0OriMod10=7Ori10=7Th
3、enPrintin=n+1‘每找到一個(gè)符合條件的i值，n加1EndIfNextiPrint"共有"&n&"個(gè)"EndSub【例1】找出100－999之間的所有“水仙花數(shù)”。所謂水仙花數(shù)是指一個(gè)三位數(shù)，各位數(shù)字的立方和等于該數(shù)本身。（如153＝13＋53＋33）并輸出這些數(shù)字，統(tǒng)計(jì)有多少個(gè)。并求出這些數(shù)字之和。PrivateSubForm_Click()DimiAsInteger,AAsInteger,BAsInteger,CAsInteger,_NAsInteger,SAsIntegerN=0:S=0‘N是計(jì)數(shù)器，S是累加器Fori=100To999A=i100B=(i-A*100)10
4、C=i-A*100-B*10‘A,B,C分別表示i的百位，十位，個(gè)位數(shù)字IfA^3+B^3+C^3=iThenPrintiN=N+1S=S+iEndIfNextiPrint"共有"&N&"個(gè)水仙花數(shù)","它們的和是"&SEndSub【例2】求PrivateSubForm_Click()DimiAsInteger,sAsSingles=0Fori=1To100s=s+1/i‘尋找到每次要加的數(shù)和循環(huán)變量i之間的關(guān)系是1/iNextiPrintsEndSub【例3】求PrivateSubForm_Click()DimiAsInteger,sAsSingles=0Fori=1To98s=s+i/(
5、i+1)‘尋找每次要加的數(shù)和循環(huán)變量i之間的關(guān)系NextiPrintsEndSub【例1】求PrivateSubForm_Click()DimiAsInteger,sAsSingles=0Fori=1To100s=s+i/(2*i-1)‘尋找到每次要加的數(shù)和循環(huán)變量i之間的關(guān)系NextiPrintsEndSub【例2】求1×2×3×4×…×99×100=?PrivateSubForm_Click()DimiAsInteger,sAsDoubles=1‘s是累乘器，初值為1Fori=1To100s=s*iNextiPrintsEndSub【例3】求10!PrivateSubForm_Click
6、()DimiAsInteger,sAsDoubles=1Fori=10To1Step-1s=s*iNextiPrintsEndSub【例4】編寫(xiě)程序用鍵盤(pán)輸入一個(gè)大于2的整數(shù)，并判斷該數(shù)是否是素?cái)?shù)PrivateSubForm_Click()DimiAsInteger,mAsInteger,AAsIntegerm=Val(InputBox("請(qǐng)輸入一個(gè)大于2的整數(shù)"))A=Int(Sqr(m))Fori=2ToA‘依次用m除以2到AIfmModi=0Then‘只要能除盡，就退出循環(huán)，除不盡，繼續(xù)循環(huán)ExitForEndIfNexti‘FOR循環(huán)可能會(huì)在兩種情況之一退出（1）IF后條件為真（2）
7、循環(huán)變量i超過(guò)終值‘在（1）的情況下退出，說(shuō)明i不是素?cái)?shù)；在（2）的情況下退出，說(shuō)明i是素?cái)?shù)Ifi>AThen‘i>A說(shuō)明在情況（2）退出，所以i是素?cái)?shù)MsgBoxm&"是素?cái)?shù)"ElseMsgBoxm&"不是素?cái)?shù)"EndIfEndSub【例1】從鍵盤(pán)接收一串字符串，統(tǒng)計(jì)出這串字符串中字符”a”出現(xiàn)的次數(shù)，并把這串字符串去掉”a”之后的字符串輸出，結(jié)果用MSGBOX語(yǔ)句給出。PrivateSubForm_Cli
