第4章循環結構（二）4.1.1

For…Next

循環格式：For<循環變量>＝<初值>To<終值>[Step<步長>]

語句塊

[ExitFor]

語句塊Next<循環變量>4.1.2

While…Wend循環格式：While條件

循環體Wend循環初始狀態循環條件循環體TF4形式2：Do

語句塊

[ExitDo

語句塊]Loop{While|Until}<條件>

4.1.3

Do…Loop

循環形式1：Do{While|Until}<條件>

語句塊

[ExitDo

語句塊]Loop引例密碼驗證ss=“111”Form1.HideMsgBoxForm1.ShowMsgBox:2TFss=“111”MsgBoxForm1.ShowMsgBox:1TF…ss=“111”Form1.HideMsgBoxForm1.ShowMsgBox:2TFss=“111”MsgBoxForm1.ShowMsgBox:1TFss=“111”MsgBoxForm1.ShowMsgBox:0TFForm1.Hidess=“111”MsgBoxForm1.ShowMsgBox:2TFForm1.Hidess=“111”MsgBoxForm1.ShowMsgBox:2TFi<=3i=1i=i+1ss=“111”Form1.HideMsgBoxForm1.ShowTFss=“111”MsgBoxForm1.ShowMsgBox:0TFMsgBox:2ss=“111”MsgBoxForm1.ShowMsgBox:1TF實例4－1累加PrivateSubCommand1_Click()DimiAsInteger,sumAsLong,nAsLongn=Val(Text1.Text)Fori=1Tonsum=sum+1NextiText2.Text=sumEndSubsum=sum+i縮進格式PrivateSubCommand1_Click() DimiAsInteger,sumAsLong,nAsLong

n=Val(Text1.Text)

Fori=1Tonsum=sum+iNextiText2.Text=sumEndSub實例4－2累乘說明：1、本程序僅用來計算積<=5000的累乘值，要求n!怎么辦?要求用While循環。2、自動計算與手動計算結果不一致，為什么？怎么改？3、手動計算中的窗體級變量。DimjAsInteger,factAsLongPrivateSubCommand2_Click()Ifj=0Thenfact=1Iffact<=5000Thenj=j+1fact=fact*jtxtcyc.Text=jtxtfac.Text=factElseCommand2.Enabled=FalseEndIfEndSub手動計算PrivateSubCommand1_Click()DimiAsInteger,facAsLongi=1fac=1Whilefac<=5000fac=fac*ii=i+1txtcyc.Text=itxtfac.Text=facWendEndSub自動計算說明：1、本程序僅用來計算積<=5000的累乘值，要求n!怎么辦?要求用While循環。2、自動計算與手動計算結果不一致，為什么？怎么改？3、手動計算中的窗體級變量。i<txtcyc.texti=i+1fac=fac*i實例4－3隨機數與素數‘產生m個>=10且<=99隨機數，并依次顯示出來m=Val(Text1)DoRandomize‘本語句可使下面的r，每次產生不同的隨機數

r=Int(Rnd*90+10)Lblrnd=Lblrnd+""+Str(r)n=n+1Fori=2Tor–1‘判斷素數

IfrModi=0ThenExitForNextiLoopWhilen<mIfi>=rThen‘統計信息Ifr>MaxThenMax=r…EndIf循環中容易出的問題：死循環循環體的正常運行一般通過循環體中對循環變量的改變來控制對循環條件的判斷，使得循環能夠終止循環初始狀態循環條件循環體TF如果某變量控制的不好，則可能造成永遠無法終止循環的情況稱之為“死循環”死循環S=0i=1i<=50S=S*2i=i-1TFS=0i=1i<=50S=S*2i=1TFS=0i=1i<=50S=S*2TF正確循環的規律i<xTFi

不斷增大i>xTFi

不斷減小164.1.4循環的嵌套在一個循環體內又包含了一個完整的循環結構稱為循環的嵌套或多重循環。外部的循環稱為外循環，內嵌的循環稱為內循環。PrivateSubForm_Click()Forx=1To5Fory=1To5Printy;NextyPrintNextxEndSub實例4－4：圖形輸出內循環變量與外循環變量不能同名；外循環必須完全包含內循環，不能交叉；不能從循環體外轉向循環體內，反之則可以。

Forii=1To10Forii=1To20

…Nextii Nextii

Forii=1To10

Forjj=1To20…

Nextjj

Nextii

Forii=1To10

Forjj=1To20…

Nextii

Nextjj

Forii=1To10

…

Nextii

Forii=1To10

…

Nextii注意補例1求1!+2!+…+10!PrivateSubForm_click()DimsAsLong,fAsLong,iAsInteger,jAsIntegers=0Fori=1To10

f=1

Forj=1Toif=f*jNextjs=s+fNextiPrint"1!+2!+...+10!=";sEndSubDimjAsIntegerDimiAsIntegerj=1s=0Fori=1To10j=j*is=s+jNextiForx=1To5Fory=1ToxPrinty;NextyPrintNextxForx=5To1Step-1Fory=1ToxPrinty;NextyPrintNextx補例2讀程序，寫結果補例3根據結果，寫程序：Forx=5To1Step-1Fory=5ToxStep-1Printy;NextyPrintNextxForx=5To1Step-1Fory=5To6-xStep-1Printy;NextyPrintNextx21補例4打印九九乘法表關鍵：①內外循環變量與被乘數和乘數關系 ②輸出格式控制

PrivateSubCommand1_Click()Picture1.ClsDimseAsStringPicture1.PrintTab(35);"九九乘法表"Picture1.PrintTab(35);"---------------"Fori=1To9Forj=1To9se=j&"×"&i&"="&i*jPicture1.PrintTab((j-1)*9+1);se;NextjPicture1.PrintNextiEndSub練習：打印上三角或下三角程序如何改動？可通過微軟拼音輸入法面板輸入“×”等特殊符號，或在Word中輸入，再復制、粘貼編程練習：4.2案例：譯碼器1、密碼驗證：PassWordChar=“*”DimnAsIntegerPrivateSubCmdok_Click()Constpassword="111",name="111"n=n+1Ifn<=3ThenIfTxtname=""OrTxtpassword=""ThenMsgBox"必須輸入姓名和密碼",64,"提示"ElseIfTxtname=nameAndTxtpassword=passwordThenFrm1.HideFrm2.ShowElseMsgBox"姓名和密碼錯誤",48,"警告"EndIfEndIfElseEndEndIfEndSubn：計數器兩個窗體DimnAsInteger‘n=0PrivateSubCmdok_Click()…n=n+1…EndSub‘n=1第一次單擊DimnAsInteger‘n=1PrivateSubCmdok_Click()…n=n+1…EndSub‘n=2第二次單擊DimnAsInteger‘n=2PrivateSubCmdok_Click()…n=n+1…EndSub‘n=3第三次單擊2、譯碼器控制結構：每三位數字一個字符循環變量賦初值刪原文左側空格ori=LTrim(Txtori)orip=Mid(ori,n,3)Orip<>“###”取第一組數字n=1n=n+3譯碼orip=Mid(ori,n,3)Whileorip<>"###“Wendn=n+3..... orip=Mid(ori,n,3)譯碼一Orip是字符？IfVal(orip)>=0AndVal(or