這是循環(huán)結(jié)構(gòu)程序設(shè)計(jì)ppt，包括了循環(huán)結(jié)構(gòu)，用For-Next語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu)，用Do While-Loop語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu)，嵌套的循環(huán)結(jié)構(gòu)等內(nèi)容，歡迎點(diǎn)擊下載。

循環(huán)結(jié)構(gòu)程序設(shè)計(jì)ppt是由紅軟PPT免費(fèi)下載網(wǎng)推薦的一款課件PPT類型的PowerPoint.

第4章 循環(huán)結(jié)構(gòu)程序設(shè)計(jì) 本章內(nèi)容 循環(huán)結(jié)構(gòu) 用For-Next語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 用Do While-Loop語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 嵌套的循環(huán)結(jié)構(gòu) 循環(huán)結(jié)構(gòu) 用For-Next語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 語(yǔ)句形式： For 循環(huán)變量=初值 to 終值 [Step 步長(zhǎng)] [循環(huán)體] [Exit For] [循環(huán)體] Next 循環(huán)變量 用For-Next語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 語(yǔ)句說(shuō)明： 循環(huán)變量必須為數(shù)值型。 當(dāng)步長(zhǎng)為正時(shí)，初值小于終值，反之初值大于終值；步長(zhǎng)缺省時(shí)為1。 循環(huán)體由一條或多條語(yǔ)句組成。 執(zhí)行到Exit For語(yǔ)句時(shí)退出循環(huán)體，執(zhí)行For語(yǔ)句的下一語(yǔ)句。 循環(huán)次數(shù)： int為取整。 用For-Next語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 語(yǔ)句執(zhí)行過(guò)程： 用For-Next語(yǔ)句實(shí)現(xiàn)循環(huán)結(jié)構(gòu) 【實(shí)例4.1】求1+2+3+……+n的和。窗體界面如圖4-2 實(shí)例4.1 代碼編寫(xiě)分析 求1+2+3+……+100的和，描述如下： Sum=Sum+1 Sum=Sum+2 Sum=Sum+3 …… Sum=Sum+100 實(shí)例4.1 代碼編寫(xiě) 【實(shí)例4.1】界面設(shè)計(jì) 實(shí)例4.1 代碼編寫(xiě) “計(jì)算”按鈕完整代碼: Private Sub cmdcal_Click() Dim i As Integer， sum As Long， n As Long n = Val(txtn.Text) For i = 1 To n sum = sum + i Next i txtsum.Text = sum End Sub 實(shí)例4.1 代碼編寫(xiě) “計(jì)算結(jié)果”框架中的標(biāo)簽（labn）內(nèi)容隨txtn輸入值變化 Private Sub txtn_Change() labn.Caption = "1+2+3……+" & txtn.Text End Sub 問(wèn)題：修改程序 （1）單擊“計(jì)算”按鈕時(shí)，檢測(cè)n的值，如果為空或不合法，彈出提示對(duì)話框 實(shí)例4.1 代碼編寫(xiě) Private Sub cmdcal_Click() Dim i As Integer， sum As Long， n As Long If txtn.Text = "" Then MsgBox "請(qǐng)輸入一個(gè)正整數(shù)"， vbOKOnly， "提示信息" txtn.SetFocus Else n = Val(txtn.Text) For i = 1 To n sum = sum + i Next i txtsum.Text = sum End if End Sub 實(shí)例4.1 代碼編寫(xiě) 問(wèn)題：修改程序 （2）計(jì)算完畢后， “計(jì)算”按鈕的標(biāo)題改為“清空”，同時(shí)兩個(gè)文本框的內(nèi)容清空 如何檢測(cè)按鈕的狀態(tài)是需要顯示“計(jì)算”還是 “清空”？ 解決方法：設(shè)置一個(gè)布爾變量true對(duì)應(yīng)“計(jì)算”，false對(duì)應(yīng)“清空” 例：1*2*3……*100 Private Sub cmdCal_Click() Dim Fac As Integer Dim i As Integer Fac=1 For i = 1 To 100 Fac = Fac * i Next i lblSum.Caption = Fac End Sub 1！+2！+3！+……+15! Private Sub cmdCal_Click() Dim Fac As long， sum As long Dim i As Integer Fac=1 For i = 1 To 15 Fac = Fac * i sum=sum+Fac Next i lblSum.Caption = sum End Sub 用While語(yǔ)句實(shí)現(xiàn)循環(huán) 語(yǔ)句形式： While 條件 [循環(huán)體] Wend 語(yǔ)句說(shuō)明： “條件”一般為條件表達(dá)式，結(jié)果為布爾變量True或False。 “條件”用于控制“循環(huán)體”是否執(zhí)行。 多用于循環(huán)次數(shù)不定的情況。 用While語(yǔ)句實(shí)現(xiàn)循環(huán) 語(yǔ)句執(zhí)行過(guò)程： 用While語(yǔ)句改寫(xiě)實(shí)例4.1 “計(jì)算”按鈕完整代碼: Private Sub cmdcal_Click() Dim i As Integer Dim sum As Long， n As Long n = Val(txtn.Text) For i = 1 To n sum = sum + i Next i txtsum.Text = sum End Sub 用While語(yǔ)句實(shí)現(xiàn)循環(huán) 【實(shí)例4.2】實(shí)現(xiàn)1*2*3*……*n的操作，當(dāng)階乘值>5000時(shí)結(jié)束操作。 實(shí)例4.2 代碼編寫(xiě) Private Sub cmdcal_Click() Dim i As Integer，fac As Long i = 1:fac = 1 While fac <= 5000 fac = fac * i i = i + 1 txtcyc.Text = i txtfac.Text = fac Wend End Sub 實(shí)例4.2 代碼編寫(xiě) “手動(dòng)計(jì)算”按鈕：?jiǎn)尾窖菔纠鄢私Y(jié)果，需要窗體級(jí)變量保留成績(jī)，及點(diǎn)擊次數(shù) Private Sub Cmdcalh_Click() If j = 0 Then fact = 1 If fact <= 5000 Then j = j + 1 fact = fact * j txtcyc.Text = j txtfac.Text = fact Else Cmdcalh.Enabled = False End If End Sub 用DO語(yǔ)句實(shí)現(xiàn)循環(huán) Do While – Loop語(yǔ)句 Do While 條件 循環(huán)體語(yǔ)句 Loop Do – Loop While語(yǔ)句 Do 循環(huán)體語(yǔ)句 Loop While 條件 用Do While – Loop 語(yǔ)句改寫(xiě)實(shí)例4.1 “計(jì)算”按鈕完整代碼: Private Sub cmdcal_Click() Dim i As Integer Dim sum As Long， n As Long n = Val(txtn.Text) For i = 1 To n sum = sum + i Next i txtsum.Text = sum End Sub 執(zhí)行過(guò)程 用Do – Loop While語(yǔ)句改寫(xiě)實(shí)例4.1 “計(jì)算”按鈕完整代碼: Private Sub cmdcal_Click() Dim i As Integer Dim sum As Long， n As Long n = Val(txtn.Text) For i = 1 To n sum = sum + i Next i txtsum.Text = sum End Sub 補(bǔ)充例題1 產(chǎn)生m個(gè)1~100之間的隨機(jī)數(shù)，求出其中的最大值、最小值和平均值。窗體設(shè)計(jì)界面和運(yùn)行界面如圖 。 補(bǔ)充例題1 代碼分析 代碼 Private Sub Command1_Click() Dim m As Integer， n As Integer， r As Integer， i As Integer， max As Integer， min As Integer Dim sum As Single， ave As Single lblrnd.Caption = "" m = Val(txtnum.Text) r = Int(Rnd * 100) + 1 max = r min = r n = 1 sum = r lblrnd.Caption = Str(r) 代碼 Do r = Int(Rnd * 100) + 1 If r > max Then max = r Else If r < min Then min = r End If sum = sum + r lblrnd.Caption = lblrnd.Caption + "" + Str(r) n = n + 1 Loop While n < m 代碼 ave = sum / n '求平均值 lblmax.Caption = max '標(biāo)簽顯示最大值 lblmin.Caption = min '標(biāo)簽顯示最小值 lblave.Caption = ave '標(biāo)簽顯示平均值 End Sub 用 DO 語(yǔ)句實(shí)現(xiàn)循環(huán) 【實(shí)例4.3】產(chǎn)生m個(gè)10~99之間的隨機(jī)整數(shù)，求出其中的素?cái)?shù)，并求出素?cái)?shù)中的最大值、最小值和平均值。窗體設(shè)計(jì)界面 算法 產(chǎn)生隨機(jī)數(shù)r r= Int（Rnd*90）+10 判斷r 是否素?cái)?shù) 素?cái)?shù)最大、最小值 、平均 判斷r是否素?cái)?shù) For i = 2 To r - 1 If r Mod i = 0 Then Exit For Next i If i >= r Then End if 素?cái)?shù)最大、最小值 、平均 If r > max Then max = r Else If r < min Then min = r End If sum = sum + r 初始化部分 lblrnd.Caption = "" '清空顯示隨機(jī)數(shù)的標(biāo)簽 lblprime.Caption = "" '清空顯示隨機(jī)數(shù)素?cái)?shù)的標(biāo)簽 m = Val(txtnum.Text) max = 10 '最大值賦值兩位整數(shù)中的最小值 min = 99 '最小值賦值兩位整數(shù)中的最大值 n = 0 '計(jì)數(shù)變量賦初值 sum = 0 '累加求和變量賦初值 輸出部分 ave = sum / p '求平均值 lblmax.Caption = max '標(biāo)簽顯示最大值 lblmin.Caption = min '標(biāo)簽顯示最小值 lblave.Caption = ave '標(biāo)簽顯示平均值 循環(huán)的嵌套 Private Sub Form_Activate() Dim i As Integer， j As Integer For i = 1 To 3 Print Tab(20); For j = 1 To 4 - i Print Spc(1); Next j For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i End Sub For i = 2 To 1 Step -1 Print Tab(20); For j = 1 To 4 - i Print Spc(1); Next j For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i 問(wèn)題 如果是n行圖形，程序應(yīng)如何修改？ 每行“ * ”輸出的位置？ 奇數(shù)和偶數(shù)輸出的圖形有何不同？ 補(bǔ)充例題 例：請(qǐng)輸入n值，編寫(xiě)程序輸出下列圖形（例如n=5）. 1 2 3 4 5 1 1 2 3 4 1 1 1 2 3 1 1 1 1 2 1 1 1 1 1 補(bǔ)充例題代碼 Private Sub Form_Activate() Dim i As Integer， j As Integer For i = 1 To 5 For j = 1 To i Print 1; Next j For j = 2 To 6 - i Print j; Next j Print Next i End Sub 實(shí)例4.4 補(bǔ)充例題 譯密碼: 字母翻譯：按26個(gè)字母排列順序向后移動(dòng)n位，若移出了最后一個(gè)則移到字母a或A并順序往后移 例：今天是28號(hào)，a 向后移動(dòng)28位 abcdefghijklmnopqrstuvwxyz 補(bǔ)充例題代碼 If ch >= "a" And ch <= "z" Then asch = Asc(ch) - 97 + 1 ’在26個(gè)小寫(xiě)字母中的位置 trap = Chr$(( asch + n ) Mod 26 + 97 - 1) ‘求出按規(guī)則轉(zhuǎn)換后的字符 補(bǔ)充例題 題目要求：輸入一行數(shù)字，按相反的順序輸出。 例如：輸入“1 2 3 4 5 6 7 8” 輸出“8 7 6 5 4 3 2 1” 難點(diǎn)：如何獲得各位數(shù)字 補(bǔ)充例題代碼 Private Sub lblout_Click() n = Val(txtin.Text) While n <> 0 r = n Mod 10 lblout.Caption = lblout.Caption & r n = n \ 10 Wend End Sub 譯碼器——密碼檢測(cè)窗體設(shè)計(jì) 譯碼器——密碼檢測(cè)窗體設(shè)計(jì) 添加窗體：工程||添加窗體 密碼框?qū)傩裕篜asswordChar * 代碼 Dim n As Integer ‘定義n為窗體級(jí)變量，用于累計(jì)驗(yàn)證密碼的次數(shù) Private Sub cmdok_Click() 　Const password = "061216" 　Const name = "santa" 　n = n + 1 　If n <= 3 Then '控制驗(yàn)證密碼的次數(shù) If txtname.Text = "" Or txtpassword.Text = "" Then MsgBox "必須輸入姓名和密碼"， 0 + 64， "提示" Else If txtname.Text = name And txtpassword.Text = password Then frm1.Hide frm2.Show Else 　 MsgBox "姓名或密碼錯(cuò)誤"， 0 + 48， "警告" End If End If Else End End If End Sub 譯碼器——譯碼器窗體設(shè)計(jì) 譯碼器——譯碼器窗體設(shè)計(jì) 函數(shù) Asc（C）的功能是將字符轉(zhuǎn)換成ASCII碼值，如Asc（“A”）的值65 Chr(65)其功能是將ASCII碼值轉(zhuǎn)換成字符，如Chr（65）的值“A” LTrim(C)是去掉字符串左邊的空格，如LTrim(“└┘└┘ABVC”)的值為ABVC Mid(C，N1，N2)是取字符子串，在C中從N1位開(kāi)始向右取N2個(gè)字符 譯碼器——譯碼器窗體設(shè)計(jì) 約定 “原文”文本框中的數(shù)字字符串每三位代表一個(gè)完整的信息，如一個(gè)字母（065表示字符“A”）或一個(gè)空格（000表示空格），一個(gè)數(shù)字（033非字母或空格，表示數(shù)字33），字符串結(jié)束（“###”） 譯碼器——“譯碼”代碼 n = 1 ori = LTrim$(txtori.Text) '去掉“原文”文本框字符串右邊的空格，賦值給變量ori orip = Mid$(ori， n， 3) '從字符串ori的第一個(gè)位置開(kāi)始取3個(gè)字符，賦值給字符串變量orip While orip <> "###" n = n + 3 '確定下一次取字符的位置 If Val(orip) >= 0 And Val(orip) <= 255 Then 'ASAII碼的范圍是0~255 orip = Chr$(Val(orip)) If orip >= "a" And orip <= "z" Then trapn = Asc(orip) - 97 + 1 trap = Chr$((trapn + Day(Now)) Mod 26 + 97 - 1) letterlow = letterlow + 1 '計(jì)小寫(xiě)字母的個(gè)數(shù) Else If orip >= "A" And orip <= "Z" Then trapn = Asc(orip) - 65 + 1 trap = Chr$((trapn + Day(Now)) Mod 26 + 65 - 1) lettercap = lettercap + 1 '計(jì)大寫(xiě)字母的個(gè)數(shù) Else '非字母 trap = Asc(orip) '字符orip轉(zhuǎn)換成ASCII碼值，作為譯碼即保持原值 If trap = 0 Then '字符oripASCII碼值為0即原值為“000” trap = " " '譯碼為空格 word = word + 1 '單詞計(jì)數(shù)，因?yàn)榭崭穹指魡卧~ other = other + 1 '其它字符計(jì)數(shù)，空格也是一個(gè)非字母字符 Else If trap > 99 Then '其它字符計(jì)數(shù) other = other + 3 Else If trap > 9 Then other = other + 2 Else other = other + 1２２ End If End If End If End If End If Else trap = orip '超出ASCLL碼范圍的值不變 other = other + 3 End If tra = tra + trap '譯碼連接到字符串tra orip = Mid$(ori， n， 3) '取出下一個(gè)字符串 Wend txttra.Text = tra '譯碼在“譯文”文本框中顯示 inf = "大寫(xiě)字母?jìng)�(gè)數(shù)：" + Str$(lettercap) + Chr$(13) +chr$(10) + "小寫(xiě)字母?jìng)�(gè)數(shù)：" + Str$(letterlow) + Chr$(13) +chr$(10) + "單詞個(gè)數(shù)：" + Str$(word + 1) + Chr$(13) +chr$(10)+ "其它字符個(gè)數(shù)：" + Str$(other) MsgBox inf， 0 + 64， "譯文統(tǒng)計(jì)信息" End Sub4Km紅軟基地

c語(yǔ)言循環(huán)結(jié)構(gòu)ppt：這是c語(yǔ)言循環(huán)結(jié)構(gòu)ppt，包括了while語(yǔ)句，do--while語(yǔ)句，goto語(yǔ)句，break語(yǔ)句和continue語(yǔ)句，循環(huán)的嵌套，循環(huán)中的幾種變量，課外練習(xí)等內(nèi)容，歡迎點(diǎn)擊下載。