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