visualbasic語言程序設(shè)計教程第8章循環(huán)結(jié)構(gòu)(已修改)
2024-11-15 16:04 本頁面
【正文】 信息系 外院 1 第 8章 循環(huán)結(jié)構(gòu) 本章的學(xué)習要點 掌握 DO循環(huán)結(jié)構(gòu) 掌握 For循環(huán)控制結(jié)構(gòu) 循環(huán)的嵌套 常用算法 信息系 外院 2 概述 單擊窗體，要求在窗體上顯示 6行星號 ?分析： 要求顯示的信息是每行是由 16個星號所構(gòu)成的字符串，所以可以通過連續(xù) 6次調(diào)用窗體的 Print方法實現(xiàn)圖形的顯示 Private Sub Form_Click() Print **************** Print **************** Print **************** Print **************** Print **************** Print **************** End Sub ? 若要求顯示 10行或更多行這樣的信息 ? 若打印信息的行數(shù)要求是由用戶決定 ?專門用于進行重復(fù)操作的語句結(jié)構(gòu) 信息系 外院 3 概述 所謂循環(huán)結(jié)構(gòu)，表示在執(zhí)行語句時，需要對其中的某個或某部分語句重復(fù)執(zhí)行多次。對于此類情況可以利用各種循環(huán)結(jié)構(gòu)來實現(xiàn)。 循環(huán)結(jié)構(gòu)可以分為 For循環(huán)、 Do 循環(huán)和 While循環(huán)語句結(jié)構(gòu)。 循環(huán) For循環(huán) Do 循環(huán) While循環(huán) For…Next For Each…Next 前測型循環(huán) 后測型循環(huán) 當型循環(huán) 直到型循環(huán) 當型循環(huán) 直到型循環(huán) 信息系 外院 4 Do 循環(huán) Do 循環(huán)可以分為前測型循環(huán)和后測型循環(huán)兩種結(jié)構(gòu)。 前測型循環(huán) 結(jié)構(gòu) 語法格式： True 循環(huán)條件 循環(huán)體 False 格式 1 (當型 ) Do While 循環(huán)條件 循環(huán)體 Loop False 循環(huán)條件 循環(huán)體 True 格式 2(直到型 ) Do Until 循環(huán)條件 循環(huán)體 Loop 當型循環(huán)是當循環(huán)條件為 TRUE時進入循環(huán)；直到型則是為 FALSE進入循環(huán)。 信息系 外院 5 Do 循環(huán) Do 循環(huán)可以分為前測型循環(huán)和后測型循環(huán)兩種結(jié)構(gòu)。 后測型循環(huán) 結(jié)構(gòu) 語法格式： 格式 1 (當型 ) Do 循環(huán)體 Loop While 循環(huán)條件 格式 2 (直到型 ) Do 循環(huán)體 Loop Until 循環(huán)條件 循環(huán)條件 循環(huán)體 True False 循環(huán)條件 循環(huán)體 False True 前測型循環(huán)是 先判斷循環(huán)條件 ，循環(huán)體執(zhí)行次數(shù) ≥0； 后測型循環(huán)是 先執(zhí)行循環(huán)體 ，循環(huán)體執(zhí)行次數(shù) ≥1 。 信息系 外院 6 Do 循環(huán) 單擊窗體，要求在窗體上顯示 6行星號 前測型 當型循環(huán)： 將上面的代碼改為 前測型 直到型循環(huán)、后 測型 當型循環(huán)和后 測型 直到型循環(huán)。 Dim i As Integer 39。定義計數(shù)器變量 i來記錄目前已輸出的行數(shù) i = 0 Do While i 6 39。當輸出行數(shù)未達到 6行，反復(fù)執(zhí)行下面語句 Print **************** i = i + 1 39。每輸出一行信息，計數(shù)器 i累加 1 Loop 39。返回到 Do While行 End Sub Do Until i 5 Do while i 6 Until i 5 Val(InputBox(請輸入行數(shù)： )) 注意： 在 循環(huán)體中 ， 至少要有一條語句使得循環(huán)趨結(jié)束 ,使循環(huán)語句在有限的時間內(nèi)執(zhí)行完畢，否則將會出現(xiàn)“ 死循環(huán) ” 。 信息系 外院 7 ?例 :求 S=1+(1+2)+ … +(1+2+3+… +100)的值。 編寫代碼 ： Private Sub Command1_Click() Dim s As Long, n As Integer, k As Integer = s=1+(1+2)+(1+2+3)+...(1+2+3+...100)=? s = 0: n = 0: k = 1 Do n = n + k ’ 求 “ 小和 ” ，即求 s中的每一項的和。 s = s + n ’ 求 “ 大和 ” ，即求 s的累加和。 k = k + 1 ’ “大和 ” 的項數(shù) (亦即 “ 小和 ” 中的末項值 )。 Loop While k = 100 = s=1+(1+2)+(1+2+3)...+(1+2+3+...+100)= amp。 s End Sub Do循環(huán) Until k 100 信息系 外院 8 Do 循環(huán) 設(shè)計采用歐幾里德算法求解兩個自然數(shù)的最大公約數(shù)的程序 ?算法分析： “ 歐幾里德算法 ” ① 輸入兩個自然數(shù) m、 n ② 求 m除以 n的余數(shù) r ③ m←n ④ n←r ⑤ 若 r≠0， 則重復(fù)執(zhí)行 ②③④ (循環(huán) )，否則轉(zhuǎn) ⑥ ⑥ 輸出 m和 n的最大公約數(shù) m 輸入兩個自然數(shù) m,n r=m Mod n m=n n=r r0 輸出最大公約數(shù) m 開始 結(jié)束 False True 信息系 外院 9 Do 循環(huán) 設(shè)計采用歐幾里德算法求解兩個自然數(shù)的最大公約數(shù)的程序 ?界面設(shè)計 ： 利用 文本框 來接收數(shù)據(jù)和顯示結(jié)果，利用 命令按鈕的單擊事
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1