2023學年完整公開課版VB循環(huán)結構For

1用輸入框輸入10個數(shù)字，并用Print方法輸出A=Val(InputBox("輸入第1個數(shù)"))B=Val(InputBox("輸入第2個數(shù)"))C=Val(InputBox("輸入第3個數(shù)"))D=Val(InputBox("輸入第4個數(shù)"))E=Val(InputBox("輸入第5個數(shù)"))……PrintAPrintBPrintCPrintDPrintE……ForI=1To5A=Val(InputBox("輸入10個數(shù)"))PrintANextI2判斷1個數(shù)n的奇偶性5.3循環(huán)結構判斷10個數(shù)n的奇偶性n=Val(InputBox("輸入數(shù)據(jù)"))SelectCase

n

Case

1,3,5,7,9Printn;"是奇數(shù)。"

Case

0,2,4,6,8Printn;"是偶數(shù)。"

CaseElsePrintn;"超出范圍！"EndSelectn=Val(InputBox("輸入數(shù)據(jù)"))SelectCase

n

Case

1,3,5,7,9Printn;"是奇數(shù)。"

Case

0,2,4,6,8Printn;"是偶數(shù)。"

CaseElsePrintn;"超出范圍！"EndSelectFork=1TO10Nextk3一般循環(huán)結構流程圖(1)進入循環(huán)條件是什么？(2)循環(huán)體的算法是什么？(3)結束循環(huán)條件是什么？本章討論VB的兩種循環(huán)語句：計數(shù)循環(huán)語句

For-Next條件循環(huán)語句

While-WendDo-Loop45.3.1For-Next循環(huán)控制格式：

For<循環(huán)變量>=<初值>

To<終值>

[Step<步長>]

[循環(huán)體]

[ExitFor]

Next[循環(huán)變量](一般用于循環(huán)次數(shù)已知)功能：按確定的次數(shù)執(zhí)行循環(huán)體。5t=0For

I=2To10Step2t=t+IPrinttNext

II:循環(huán)變量2:初值10:終值2:步長循環(huán)體I=I+2TFI>10?結束循環(huán)變量I的取值分別為:2,4,6,8,10完成t=2,6,12,20,30的計算6討論For-Next循環(huán)變量必須為數(shù)值型。循環(huán)次數(shù)步長ExitFor:強制退出循環(huán)>0初值<終值(Step1可省略)<0初值>終值=0死循環(huán)ForI=1to100

S=S+INextIForI=100to1Step-1

S=S+INextIP50例題PrivateSubForm_click()DimsAsSingle,iAsIntegern=Val(InputBox("請輸入n","提示"))s=0Fori=1TonStep1s=s+INextiPrint"1到";n;"之和為：";sEndSub78For-Next的流程圖—閱讀Nx=初值x>終值?循環(huán)體x=x+步長Y開始結束Nx=初值x<終值?循環(huán)體x=x+步長Y開始結束當步長＞0時當步長<0時ForX=1

To10

Step2

…NextXForX=10

To2

Step-2

…NextX9For-Next:必須成對出現(xiàn)，缺一不可。

(配對原則)

可以嵌套使用，但內、外循環(huán)的變量不能同名，不能交叉'正確的循環(huán)嵌套ForI=1To9

ForJ=1To9

PrintI,J

NextJ

NextI'錯誤的循環(huán)嵌套ForI=1To9

ForJ=1To9

PrintI,J

NextI

NextJ循環(huán)的嵌套10Mcs=5ForI=1ToMcsMcs=Mcs+1printI，McsNextI當循環(huán)終值是一個變量時，在循環(huán)第一次運行時取走變量中的值后，此變量中的值就不再影響循環(huán)。在循環(huán)體內,循環(huán)變量可多次引用；但建議不要對其賦值，否則將會導致死循環(huán)。表示:I=1To5表示:I=1To5若增:I=I-1,則出現(xiàn)死循環(huán)11例:

編程序計算：sum=1+2+3+4+…+100PrivatesubForm_Click()

sum=0For… …Next…EndSub思考題1.s=1+1/2+1/3+1/4+…+1/1002.s=2+4+6+8+…+1003.p=1*2*3*4…100sum:累加的初始值為0應用112例:求N!（N為自然數(shù)）如:3!=3*2*1,而2!=2*1,則3!=3*2!=3*2*1PrivateSubForm_Click()

N=Val(InputBox("輸入N="))S=1Fork=?To?Step?

?=?Next?EndSubS:連乘的初始值為1應用213思路：1.輸入一個分數(shù)，判斷是否有效并進行處理；2.判斷是否合格，計算合格的人數(shù)；3.計算總人數(shù)、總分數(shù)和平均分。例:輸入一個班的學習成績，統(tǒng)計其中及格的學生人數(shù)，并計算出全班的平均分數(shù)。學生人數(shù)不定，輸入負數(shù)時截止。設全班人數(shù)不超過50人。應用3PrivateSubCommand1_Click()'定義變量:Score,PassN,n,I,Sum'初始化:Sum,PassN,n均為0

ForI=1To50

'輸入一個成績:Score,判斷Score是否有效?IfScore>0ThenIfScore>=60ThenPassN=PassN+1'統(tǒng)計及格人數(shù)

n=n+1'統(tǒng)計總人數(shù)

Sum=Sum+Score'統(tǒng)計總分

ElseExitForEndIf

NextI'輸出:及格人數(shù)、總人數(shù)、平均分EndSub14例:改變循環(huán)控制變量對循環(huán)的影響討論：PrivateSubCommand1_click()J=0ForI=1To20Step2I=I+3J=J+1Print"第";J;"次循環(huán)I=";INextIPrint"退出循環(huán)后I=";IEndSub正常情況：I=1,3,5,7,9,11,13,15,17,19現(xiàn)在：I=4,9,14,19PrivateSubCommand1_Click()s=0Fork=1To3Ifk<=1Thenx=1ElseIfk<=2Thenx=2ElseIfk<=3Thenx=3Elsex=4EndIf

Printxs=s+xNextkPrintsEndSub15閱讀程序，寫出運行結果n=1s=116PrivateSubForm_Click()DimnAsIntegerDimsumAsIntegersum=0Forn=1to5Step1sum=sum+nNextn

Print“sum=”;sumEndSub思考：n的取值分別=循環(huán)體sum=sum+n共執(zhí)行了多少次?退出循環(huán)后，n=?①n=2s=3n=3s=6n=4s=10n=5s=15n=6②③④⑤⑥①n=317PrivateSubForm_Click()DimnAsIntegerDimpAsIntegerp=1Forn=3to7Step1Ifnmod2=0then

Print“*”;n;p=p*nendifNextn

Print“=”;pEndSub思考：(1)n的取值分別=(2)循環(huán)體p=p*n共執(zhí)行了多少次?(3)退出循環(huán)后，n=?②n=4p=4③n=5④n=6p=24⑤n=7⑥n=8nnnnnnnnnnnn123456789101112letternumberOthern4431218PrivateSubForm_Click()Dimstr1AsStringDimletterAsIntegerDimnumberAsIntegerDimotherAsIntegerDimnAsIntegerLetter=0:number=0:other=0Str1=InputBox(“輸入字符串=”,”輸入框”,”ab32-c,4d_5”)Forn=1toLen(str1)SelectCaseMid(Str1,n,1)Case“A”to“Z”,“a”to“z”Letter=letter+1Case1to9Num