VB第5章循環(huán)結(jié)構(gòu)教學課件

山東外貿(mào)學院VB第5章循環(huán)結(jié)構(gòu)幻燈片PPT本課件PPT僅供大家學習使用學習完請自行刪除，謝謝！本課件PPT僅供大家學習使用學習完請自行刪除，謝謝！本課件PPT僅供大家學習使用學習完請自行刪除，謝謝！本課件PPT僅供大家學習使用學習完請自行刪除，謝謝！山東外貿(mào)學院VB第5章循環(huán)結(jié)構(gòu)幻燈片PPT本課件PP第5章循環(huán)結(jié)構(gòu)本章主要內(nèi)容1、For…Next循環(huán)2、While……Wend循環(huán)3、Do……While循環(huán)4、循環(huán)嵌套5、其它輔助語句6、綜合舉例作業(yè)

本章小結(jié)退出第5章循環(huán)結(jié)構(gòu)本章主要內(nèi)容作業(yè)本章小結(jié)退出循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)：

所謂循環(huán)，就是重復執(zhí)行某些操作。循環(huán)結(jié)構(gòu)主要包括：當型循環(huán)和直到型循環(huán)。VB提供了三種不同風格的循環(huán)語句：

1、For…Next

循環(huán)2、While……Wend循環(huán)3、Do……While循環(huán)上一頁下一頁返回本章首頁循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)：上一頁下一頁返回本章首頁ForV=e1Toe2[Stepe3]…[ExitFor]…NextV計算e1、e2、e3v=e1V超過e2?v=v+e3循環(huán)體TrueFalse循環(huán)次數(shù)已知的循環(huán),它的一般形式如：

循環(huán)次數(shù)計算公式:

循環(huán)次數(shù)=Int((E2-E1)/E3)+1例5.1求N!（階乘）li5_1.vbp5.1For-Next循環(huán)上一頁下一頁返回本章首頁ForV=e1Toe2[Stepe3]計算e例5.2判斷用戶輸入的數(shù)是否為素數(shù)

li5_2.vbp應用程序界面如圖：編寫代碼：PrivateSubCommand1_Click()Dimmasinteger,kasintegerDimnAsLongIfVal(Text1.Text)>2147483647ThenMsgBox"數(shù)據(jù)溢出，請重新輸入",vbOKCancel+vbInformation,“數(shù)據(jù)錯誤”

Text1.Text=""Else上一頁下一頁返回本章首頁例5.2判斷用戶輸入的數(shù)是否為素數(shù)

n=CLng(Text1.Text)k=Int(Sqr(n))m=0‘m是一個標記：1—否，0—是Fori=2TokIfnModk=0Thenm=1NextiIfm=0ThenLabel2.Caption=“是一個素數(shù)”ElseLabel2.Caption=“不是一個素數(shù)”EndIfEndIfText1.SetFocusEndSub上一頁下一頁返回本章首頁n=CLng(Text1.Text)例5.3：求∏的值。計算公式見P67

應用程序li5_3.vbp界面如圖：編寫代碼：PrivateSubForm_Click()DimI%,n%,p#n=InputBox("請輸入n的值（1-32767）：")p=1ForI=1Tonp=p*(4*I*I)/((2*I-1)*(2*I+1))NextIp=2*pPrint"n=";n;"時","∏=";pEndSub上一頁下一頁返回本章首頁例5.3：求∏的值。計算公式見P67應練習1：寫出下面程序的運行結(jié)果PrivateSubForm_Click()DimaAsInteger,iAsInteger,jAsIntegera=0Fori=1To5Forj=-2To2a=a+i+jNextjPrinta;NextiPrintPrinti,j,aEndSub上一頁下一頁返回本章首頁練習1：寫出下面程序的運行結(jié)果PrivateSubFor練習2：編程顯示如圖所示的乘法九九表作業(yè)P772、3在窗體上添加一個命令按鈕和一個Pictrue控件上一頁下一頁返回本章首頁練習2：編程顯示如圖所示的乘法九九表作業(yè)P772、編寫command1_click事件的代碼如下：PrivateSubCommand1_Click()DimI%,j%DimexpssAsStringFori=1To9Forj=1Toiexpss=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*10+1);expss;NextjPicture1.PrintNextiEndSub上一頁下一頁返回本章首頁編寫command1_click事件的代碼如下：上一頁下一頁5.2While循環(huán)語句格式：While<條件>……[ExitDo]……Wend循環(huán)體TrueFalse循環(huán)體條件是否為真計算條件的值例5.5見P69例5.4找出最大整數(shù)n,使得N!<1000上一頁下一頁返回本章首頁5.2While循環(huán)語句格式：循環(huán)體TrueFalseDoWhile<條件>……[ExitDo]……Loop循環(huán)體條件TrueFalse循環(huán)體條件FalseTrueDoUntil<條件>…[ExitDo]…Loop5.3Do循環(huán)-------當型循環(huán)上一頁下一頁返回本章首頁DoWhile<條件>循環(huán)體條件TrueFalse循環(huán)體Do…[ExitDo]…LoopWhile<條件>循環(huán)體條件TrueFalse5.3Do循環(huán)-------直到型循環(huán)Do…[ExitDo]…LoopUntil<條件>循環(huán)體條件False

True上一頁下一頁返回本章首頁Do循環(huán)體條件TrueFalse5.3Do循環(huán)-----Do循環(huán)舉例例5.6求s=1+2+3+……+100的和例5.7求兩自然數(shù)m,n的最大公約數(shù)和最小公倍數(shù)

其設計思路是：

最大公約數(shù)----輾轉(zhuǎn)相除法

（1）假設m大于n；

（2）m除以n，得余數(shù)r。

（3）若r=0，則n即為所求的最大公約數(shù)，結(jié)束；

否則，執(zhí)行步驟（4）；

（4）令m←n，n←r再轉(zhuǎn)到（2）執(zhí)行。最小公倍數(shù)：兩數(shù)的乘積除以最大公約數(shù)見

li5_7.vbp

上一頁下一頁返回本章首頁Do循環(huán)舉例例5.6求s=1+2+3+……+1循環(huán)嵌套：即大循環(huán)中包含小循環(huán)。無論是Do-Loop循環(huán)，還是For-Next循環(huán)，都可以進行循環(huán)嵌套。注意：內(nèi)循環(huán)一定要完整地包含在外循環(huán)內(nèi)，不得相互交叉。示例：Fori=e1Toe2[Stepe3]…

Forj=d1tod2[Stepd3]…..Nextj…

Nexti5.4循環(huán)嵌套上一頁下一頁返回本章首頁循環(huán)嵌套：即大循環(huán)中包含小循環(huán)。無論是Do-Loop循環(huán)，循環(huán)嵌套舉例：例5.8：打印九九乘法表（各種格式）。例5.9：求1~1000之間的“水仙花數(shù)”。Li5_9.vbp

注：“水仙花數(shù)”是一個三位數(shù)，其各位數(shù)的立方和等于該數(shù)本身。

分析：該題可用三重循環(huán)，也可用一重循環(huán)

百位i：i=n\100或：i=int（n/100）十位j：j=n\10–i*10個位k：k=nMod10界面如圖：例5.10：求sinx（見P74）上一頁下一頁返回本章首頁循環(huán)嵌套舉例：上一頁下一頁返回本章首頁5.5其他輔助語句With語句

With語句的功能是在一個單一對象或一個用戶定義類型上執(zhí)行一系列的語句。

其語法結(jié)構(gòu)為：

With<對象>[<語句塊>]

EndWithWithCmdFirst.Height=.Height+2000.Caption=“Hello”.Move0,0EndWith如：CmdFirst.Height=CmdFirst.Height+2000CmdFirst.Caption=“Hello”CmdFirst.move0,0上一頁下一頁返回本章首頁5.5其他輔助語句With語句WithCmdFi

Exit語句

有多種形式的Exit語句，如：

ExitFor------------用于For循環(huán)體ExitDo------------用于Do循環(huán)體ExitSub----------用于Sub過程體ExitFunction----用于Function過程體其功能是：強制退出當前循環(huán)（或過程）體

注意：它們通常和分支語句配合使用。上一頁下一頁返回本章首頁Exit語句有多種形式的Exit語句，如：上一頁下一頁5.6綜合舉例數(shù)值轉(zhuǎn)換：將一個十進制數(shù)m轉(zhuǎn)換成(2—16)進值數(shù)r的思路是：

將m不斷除r取余數(shù)，直到商為0，以反序排列即得到結(jié)果。

例11：數(shù)值轉(zhuǎn)換。Li5_11.vbp

上一頁下一頁返回本章首頁5.6綜合舉例數(shù)值轉(zhuǎn)換：上一頁下一頁返回本章首頁5.6綜合舉例數(shù)據(jù)的加密和解密：基本原理：將英文字符的ASCⅡ碼加上某個值，使其變成另外一個字符，實現(xiàn)加密。解密的過程則是加密的逆操作。

例12：對輸入的文本加密和解密。Li5_12.vbp

上一頁下一頁返回本章首頁5.6綜合舉例數(shù)據(jù)的加密和解密：上一頁下一頁返回本章首上機實訓實訓六

作業(yè)：P775、6、7、8上一頁下一頁返回本章首頁上機實訓實訓六上一頁下一頁返回本章首頁本章小結(jié)1、循環(huán)結(jié)構(gòu)2、For…Next語句3、While……Wend語句4、Do……While語句5、循環(huán)嵌套

上一頁返回本章首頁退出本章小結(jié)1、循環(huán)結(jié)構(gòu)上一頁返回本章首頁退出山東外貿(mào)學院VB第5章循環(huán)結(jié)構(gòu)幻燈片PPT本課件PPT僅供大家學習使用學習完請自行刪除，謝謝！本課件PPT僅供大家學習使用學習完請自行刪除，謝謝！本課件PPT僅供大家學習使用學習完請自行刪除，謝謝！本課件PPT僅供大家學習使用學習完請自行刪除，謝謝！山東外貿(mào)學院VB第5章循環(huán)結(jié)構(gòu)幻燈片PPT本課件PP第5章循環(huán)結(jié)構(gòu)本章主要內(nèi)容1、For…Next循環(huán)2、While……Wend循環(huán)3、Do……While循環(huán)4、循環(huán)嵌套5、其它輔助語句6、綜合舉例作業(yè)

本章小結(jié)退出第5章循環(huán)結(jié)構(gòu)本章主要內(nèi)容作業(yè)本章小結(jié)退出循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)：

所謂循環(huán)，就是重復執(zhí)行某些操作。循環(huán)結(jié)構(gòu)主要包括：當型循環(huán)和直到型循環(huán)。VB提供了三種不同風格的循環(huán)語句：

1、For…Next

循環(huán)2、While……Wend循環(huán)3、Do……While循環(huán)上一頁下一頁返回本章首頁循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)：上一頁下一頁返回本章首頁ForV=e1Toe2[Stepe3]…[ExitFor]…NextV計算e1、e2、e3v=e1V超過e2?v=v+e3循環(huán)體TrueFalse循環(huán)次數(shù)已知的循環(huán),它的一般形式如：

循環(huán)次數(shù)計算公式:

循環(huán)次數(shù)=Int((E2-E1)/E3)+1例5.1求N!（階乘）li5_1.vbp5.1For-Next循環(huán)上一頁下一頁返回本章首頁ForV=e1Toe2[Stepe3]計算e例5.2判斷用戶輸入的數(shù)是否為素數(shù)

li5_2.vbp應用程序界面如圖：編寫代碼：PrivateSubCommand1_Click()Dimmasinteger,kasintegerDimnAsLongIfVal(Text1.Text)>2147483647ThenMsgBox"數(shù)據(jù)溢出，請重新輸入",vbOKCancel+vbInformation,“數(shù)據(jù)錯誤”

Text1.Text=""Else上一頁下一頁返回本章首頁例5.2判斷用戶輸入的數(shù)是否為素數(shù)

n=CLng(Text1.Text)k=Int(Sqr(n))m=0‘m是一個標記：1—否，0—是Fori=2TokIfnModk=0Thenm=1NextiIfm=0ThenLabel2.Caption=“是一個素數(shù)”ElseLabel2.Caption=“不是一個素數(shù)”EndIfEndIfText1.SetFocusEndSub上一頁下一頁返回本章首頁n=CLng(Text1.Text)例5.3：求∏的值。計算公式見P67

應用程序li5_3.vbp界面如圖：編寫代碼：PrivateSubForm_Click()DimI%,n%,p#n=InputBox("請輸入n的值（1-32767）：")p=1ForI=1Tonp=p*(4*I*I)/((2*I-1)*(2*I+1))NextIp=2*pPrint"n=";n;"時","∏=";pEndSub上一頁下一頁返回本章首頁例5.3：求∏的值。計算公式見P67應練習1：寫出下面程序的運行結(jié)果PrivateSubForm_Click()DimaAsInteger,iAsInteger,jAsIntegera=0Fori=1To5Forj=-2To2a=a+i+jNextjPrinta;NextiPrintPrinti,j,aEndSub上一頁下一頁返回本章首頁練習1：寫出下面程序的運行結(jié)果PrivateSubFor練習2：編程顯示如圖所示的乘法九九表作業(yè)P772、3在窗體上添加一個命令按鈕和一個Pictrue控件上一頁下一頁返回本章首頁練習2：編程顯示如圖所示的乘法九九表作業(yè)P772、編寫command1_click事件的代碼如下：PrivateSubCommand1_Click()DimI%,j%DimexpssAsStringFori=1To9Forj=1Toiexpss=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*10+1);expss;NextjPicture1.PrintNextiEndSub上一頁下一頁返回本章首頁編寫command1_click事件的代碼如下：上一頁下一頁5.2While循環(huán)語句格式：While<條件>……[ExitDo]……Wend循環(huán)體TrueFalse循環(huán)體條件是否為真計算條件的值例5.5見P69例5.4找出最大整數(shù)n,使得N!<1000上一頁下一頁返回本章首頁5.2While循環(huán)語句格式：循環(huán)體TrueFalseDoWhile<條件>……[ExitDo]……Loop循環(huán)體條件TrueFalse循環(huán)體條件FalseTrueDoUntil<條件>…[ExitDo]…Loop5.3Do循環(huán)-------當型循環(huán)上一頁下一頁返回本章首頁DoWhile<條件>循環(huán)體條件TrueFalse循環(huán)體Do…[ExitDo]…LoopWhile<條件>循環(huán)體條件TrueFalse5.3Do循環(huán)-------直到型循環(huán)Do…[ExitDo]…LoopUntil<條件>循環(huán)體條件False

True上一頁下一頁返回本章首頁Do循環(huán)體條件TrueFalse5.3Do循環(huán)-----Do循環(huán)舉例例5.6求s=1+2+3+……+100的和例5.7求兩自然數(shù)m,n的最大公約數(shù)和最小公倍數(shù)

其設計思路是：

最大公約數(shù)----輾轉(zhuǎn)相除法

（1）假設m大于n；

（2）m除以n，得余數(shù)r。

（3）若r=0，則n即為所求的最大公約數(shù)，結(jié)束；

否則，執(zhí)行步驟（4）；

（4）令m←n，n←r再轉(zhuǎn)到（2）執(zhí)行。最小公倍數(shù)：兩數(shù)的乘積除以最大公約數(shù)見

li5_7.vbp

上一頁下一頁返回本章首頁Do循環(huán)舉例例5.6求s=1+2+3+……+1循環(huán)嵌套：即大循環(huán)中包含小循環(huán)。無論是Do-Loop循環(huán)，還是For-Next循環(huán)，都可以進行循環(huán)嵌套。注意：內(nèi)循環(huán)一定要完整地包含在外循環(huán)內(nèi)，不得相互交叉。示例：Fori=e1Toe2[Stepe3]…

Forj=d1tod2[Stepd3]…..Nextj…

Nexti5.4循環(huán)嵌套上一頁下一頁返回本章首頁循環(huán)嵌套：即大循環(huán)中包含小循環(huán)。無論是Do-Loop循環(huán)，循環(huán)嵌套舉例：例5.8：打印九九乘法表（各種格式）。例5.9：求1~1000之間的“水仙花數(shù)”。Li5_9.vbp

注：“水仙花數(shù)”是一個三位數(shù)，其各位數(shù)的立方和等于該數(shù)本身。

分析：該題可用三重循環(huán)，也可用一重循環(huán)

百位i：i=n\100或：i=int（n/100）十位j：j=n\10–i*10個位k：k=nMod10界面如圖：例5.10：求sinx（見P74）上一頁下一頁返回本章首頁循環(huán)嵌套舉例：上一頁下一頁返回本章首頁5.5其他輔助語句With語句

With語句的功能是在一個單一對象或一個用戶定義類型上執(zhí)行一系列的語句。

其語法結(jié)構(gòu)為：