三種基本結(jié)構(gòu)程序設(shè)計(jì)

1、第四章 三種基本結(jié)構(gòu)程序設(shè)計(jì),本章內(nèi)容及要求： 1.了解算法概念及算法的表示，掌握用流程圖表示算法 2. 熟練掌握賦值語(yǔ)句、End語(yǔ)句和注釋語(yǔ)句等語(yǔ)句及輸入/輸出消息框函數(shù)的使用； 3. 熟練掌握行if語(yǔ)句、塊if結(jié)構(gòu)、Select Case情況選擇結(jié)構(gòu)的使用，掌握選擇的嵌套結(jié)構(gòu)； 4. 熟練掌握實(shí)現(xiàn)循環(huán)結(jié)構(gòu)的For/Next循環(huán)結(jié)構(gòu)及Exit For語(yǔ)句、Do/Loop循環(huán)

2、結(jié)構(gòu)的使用，掌握多重循環(huán)。,重點(diǎn)：選擇結(jié)構(gòu)及循環(huán)結(jié)構(gòu)的實(shí)現(xiàn)及其應(yīng)用,難點(diǎn)：選擇的嵌套及多重循環(huán)結(jié)構(gòu),,,,4.1 算法及算法的表示,4. 1.1 算法概述 什么是算法： 廣義地講：算法是為完成一項(xiàng)任務(wù)所應(yīng)當(dāng)遵循的一步一步的規(guī)則的、精確的、無歧義的描述，它的總步數(shù)是有限的。 狹義地講：算法是解決一個(gè)問題采取的方法和步驟的描述。下面通過兩個(gè)簡(jiǎn)單的例子加以說明：,例4.1 輸入三個(gè)數(shù)，然后輸出其中最大

3、的數(shù)。 將三個(gè)數(shù)依次輸入到變量Ａ、B、C中，設(shè)變量MAX存放最大數(shù)。其算法如下：,,,,例4.2 輸入10個(gè)數(shù)，打印輸出其中最大的數(shù)。算法設(shè)計(jì)如下：（1）輸入1個(gè)數(shù),存入變量A中,將記錄數(shù)據(jù)個(gè)數(shù)的變量N賦值為1，即N=1（2）將A存入表示最大值的變量Max中，即Max=A（3）再輸入一個(gè)值給A，如果A>Max 則 Max=A, 否則Max不變（4）讓記錄數(shù)據(jù)個(gè)數(shù)的變量增加1，即N=N+1（5）判斷N是

4、否小于10，若成立則轉(zhuǎn)到第（3）步執(zhí)行，否則轉(zhuǎn)到第（6）步。（6）打印輸出max,1) 輸入A、B、C。2) A與B中大的一個(gè)放入MAX中。3) 把C與MAX中大的一個(gè)放入MAX中。4) 輸出MAX，MAX即為最大數(shù)。,,,,4.1.2 算法的特性,有窮性 一個(gè)算法必須經(jīng)過有限步驟之后就能解決某個(gè)問題。事實(shí)上，一般的有限性限制在實(shí)際中是不夠的，因?yàn)楸M管解決某個(gè)特定問題的執(zhí)行步驟量是有限的，但可能對(duì)實(shí)際計(jì)算來說仍太

5、大。一個(gè)有用的算法不僅要求步驟有限，同時(shí)也要求步驟量合理。 確定性 一個(gè)算法的每一步必須是無歧義的和精確定義的。在各種情況下動(dòng)作的執(zhí)行必須嚴(yán)密地確定。 3 有0個(gè)或多個(gè)輸入且有一個(gè)或多個(gè)輸出 輸入可定義為算法執(zhí)行前初始化時(shí)給定的一些量，輸出指與輸入有某種特定關(guān)系的，在算法執(zhí)行完成時(shí)產(chǎn)生的一些量。 4 通用性 一個(gè)算法最好是適用于某類問題而不只是適用于某一個(gè)問題。這種通用性，盡管不是必

6、要的，但肯定是一有用算法要求的特性,,,,4.1.3 算法的表示 一、自然語(yǔ)言與偽代碼表示算法自然語(yǔ)言：就是指人們?nèi)粘Ｊ褂玫恼Z(yǔ)言，可以是漢語(yǔ)、英語(yǔ)或其它語(yǔ)言。偽代碼：是用介于自然語(yǔ)言和計(jì)算機(jī)語(yǔ)言之間的文字和符號(hào)（包括數(shù)學(xué)符號(hào)）來描述算法。 例如：例4.1可用如下的偽代碼表示Begin（算法開始） 輸入 A，B，C IF A>B 則 A→Max 否則 B→Max IF C>Max

7、則 C→MaxPrint MaxEnd (算法結(jié)束),,,,二、 用傳統(tǒng)流程圖表示算法,,,,,,,,處理框,起止框,I/O框,判斷框,流程線,連接點(diǎn),1、傳統(tǒng)流程圖中的基本符號(hào),,,,2、三種基本結(jié)構(gòu)的傳統(tǒng)表示（1）順序結(jié)構(gòu),,,條件,,,語(yǔ)句1,語(yǔ)句2,,,,,,,,,,Y,N,,,,,,語(yǔ)句1,語(yǔ)句2,（2）選擇結(jié)構(gòu),,,,,,條件,,( a ),,,,,,,,,,,,條件,,語(yǔ)句組,,,,,,（3）循環(huán)結(jié)構(gòu),a) 當(dāng)型

8、循環(huán),b) 直到循環(huán),Y,N,Y,N,( b ),語(yǔ)句組,,,,例4.2輸入10個(gè)數(shù)，打印輸出其中的最大的數(shù)的流程圖,,,,Private Sub Form_Click() Dim a%, max%, i% a = Val(InputBox("A=?")) max = a For i = 2 To 10 a = Val(InputBox("A=?"

9、)) If a > max Then max = a Next i MsgBox( "Max=“ & Str(max))End Sub,最后需要說明的是：上面介紹的算法表示是給人看的，即是為幫助程序開發(fā)人員閱讀、編寫程序而設(shè)計(jì)的一種輔助工具，程序則必須符合計(jì)算機(jī)語(yǔ)言的語(yǔ)法規(guī)則。 下面是例4.2的計(jì)算機(jī) 程序，即為用計(jì)算機(jī)語(yǔ)言表示算法：,,,,,,,4.2 順序結(jié)

10、構(gòu),4.2.1 賦值語(yǔ)句 形式: 變量名＝表達(dá)式 對(duì)象.屬性＝表達(dá)式 功能： 將表達(dá)式的值賦值給變量名或指定對(duì)象的屬性。 一般用于給變量賦值或?qū)丶O(shè)定屬性值. 例： sRate!=0.1 Text1.Text ＝ "歡迎使用Visual Basic.net”說明： 1. 執(zhí)行過

11、程：先求表達(dá)式的值，然后將值賦值給左邊的變量。 2. 右邊表達(dá)式可以是變量、常量、函數(shù)調(diào)用等特殊的表達(dá)式。 3. 不要將“＝”理解為數(shù)學(xué)上的等號(hào)： A=A+1 是表示將A單元的值加１后以放回到A單元。,,執(zhí)行過程如右圖,4．賦值符號(hào)“=”左邊一定只能是變量名或?qū)ο蟮膶傩砸?，不能是常量、符?hào)常量、表達(dá)式。 下面的賦值語(yǔ)句都是錯(cuò)的：5=X '

12、; 左邊是常量。Abs(X)=20 ' 左邊是函數(shù)調(diào)用，即是表達(dá)式。,5. 賦值符號(hào)“=”兩邊的數(shù)據(jù)類型一般要求應(yīng)一致。,,,,4.2.2 用戶交互函數(shù) 1. InputBox函數(shù)變量名=InputBox[$]([，][，] [，][，] ) 其中:提示 提示信息,標(biāo)題 標(biāo)題區(qū)顯示,缺省輸入?yún)^(qū)缺省值 有$ 返回

13、字符類型,否則為數(shù)值類型. 例如，要在屏幕上顯示如下的對(duì)話框:,例如：有下列語(yǔ)句如下: Dim strName As String * 40， strS1 As String * 40 strS1 = “請(qǐng)輸入你的姓名” + Chr(13) + Chr(10) + “然后單擊確定” strName= InputBox$(strS1， “輸入框”， ， 100，100) 當(dāng)鍵盤輸入“

14、王曉明” 后,變量strName獲得鍵盤輸入的值.,2. MsgBox函數(shù) 函數(shù)形式:變量[%] = MsgBox(提示[,按鈕[＋圖標(biāo)]+ [缺省按鈕]+[模式]][，標(biāo)題]),,,,說明： １ “標(biāo)題”和“提示”與InputBox函數(shù)中對(duì)應(yīng)的參數(shù)相同； ２ “按鈕＋圖標(biāo) +缺省按鈕+模式”是整型表達(dá)式，決定信息框按鈕數(shù)目、出現(xiàn)在

15、信息框上的圖標(biāo)類型及操作模式(見表4.1) ３ 若程序中需要返回值，則使用函數(shù)，否則可調(diào)用過程。,,,,按鈕及圖標(biāo)值如下:,,,,例4.1 編一帳號(hào)和密碼檢驗(yàn)程序。要求: 帳號(hào)不超過6位數(shù)字,有錯(cuò),清除原內(nèi)容再輸入. 密碼輸入時(shí)在屏幕上以 “*”代替; 若密碼錯(cuò)，顯示有關(guān)信息，選擇“重試”按鈕，清除原內(nèi)容再輸入，選擇“取消”按鈕，停止運(yùn)行。分析: 帳號(hào)6位,MaxLength為6 ,

16、密碼PassWordChar為“*”,MsgBox函數(shù)設(shè)置密碼錯(cuò)對(duì)話框.,4.3 選擇結(jié)構(gòu) 1. If…Then語(yǔ)句(單分支結(jié)構(gòu)) If Then 語(yǔ)句塊 End If 或 If Then ,例:已知兩個(gè)數(shù)x和y，比較它們的大小， 使得x大于y. If x<y Then t=x : x=y: y=t

17、End If 或 If x<y Then t=x: x=y: y=t,2. If…Then…Else語(yǔ)句(雙分支結(jié)構(gòu)) If Then Else End If If Then Else ,例如：輸出x,y兩個(gè)中值較大的一個(gè)值。IF X>Y Then Print XElse Print YEnd If也可以寫成如下的單行形式

18、： IF X>Y Then Print X Else Print Y,,雙分支選擇結(jié)構(gòu)執(zhí)行過程,3. If…Then…ElseIf語(yǔ)句(多分支結(jié)構(gòu)) 形式: If Then ElseIf Then … [Else 語(yǔ)句塊 n+1 ] End If,例：輸入一學(xué)生成績(jī)，評(píng)定其等級(jí)。方法是：90~

19、100分為“優(yōu)秀”，80~89分為“良好”，70~79分為“中等”，60~69分為“及格”，60分以為“不合格”,,,,,執(zhí)行過程,請(qǐng)問以下哪些正確，哪些錯(cuò)誤？,IIf 函數(shù),語(yǔ)法：IIf(expr, truepart, falsepart),例如：CheckIt = IIf(TestMe > 1000, "Large", "Small"),相當(dāng)于：If TestMe > 1000

20、 Then testIt = "Large" Else testIt = "Small" End If,4.3.2 Select Case語(yǔ)句（情況語(yǔ)句）形式：Select Case 變量或表達(dá)式Case 表達(dá)式列表1語(yǔ)句塊1Case 表達(dá)式列表2語(yǔ)句塊2…[Case Else語(yǔ)句塊n

21、+1]End Select：與同類型的下面四種形式之一： 表達(dá)式 A +5 一組枚舉表達(dá)式(用逗號(hào)分隔) 2, 4, 6, 8 表達(dá)式1 To 表達(dá)式2 60 to 100 Is 關(guān)系運(yùn)算符表達(dá)式

22、 Is < 60,數(shù)值型或字符串表達(dá)式,,,,,例 輸入百分制成績(jī)mark，顯示對(duì)應(yīng)的五級(jí)制成績(jī),哪些能實(shí)現(xiàn)，哪些不能實(shí)現(xiàn)？,4.3.3 選擇結(jié)構(gòu)的嵌套 在IF語(yǔ)句的Then分支和Else分支中可以完整地嵌套另一IF語(yǔ)句或Select Case語(yǔ)句，同樣Select Case語(yǔ)句每一個(gè)Case分支中都可嵌套另一IF語(yǔ)句或另一Select Case語(yǔ)句。下面是兩種正確的嵌套形式：（1）IF

23、Then ….. if Then …… Else ….. End If …. Else …. IF Then …..

24、 Else ….. End If ….. End IF,（2）IF Then ….. Select Case … Case …… IF Then …… Else

25、 ….. End If …… Case…. ….. End Select ….End IF,注意： 只要在一個(gè)分支內(nèi)嵌套，不出現(xiàn)交叉，滿足結(jié)構(gòu)規(guī)則，其嵌套的形式將有很多種，嵌套層次也可以任意多。 對(duì)于多層IF嵌套結(jié)構(gòu)中，要特別注意IF與Else的配對(duì)關(guān)系，一個(gè)Else必須與IF配結(jié)，配對(duì)的原則是：在寫含有多

26、層嵌套的程序時(shí)，Vb.net會(huì)自動(dòng)縮進(jìn)對(duì)齊方式，這樣容易閱讀和維護(hù)。,,,,,4.3.4常見錯(cuò)誤1．在選擇結(jié)構(gòu)中缺少配對(duì)的結(jié)束語(yǔ)句對(duì)多行式的If塊語(yǔ)句中，應(yīng)有配對(duì)的 End If語(yǔ)句結(jié)束。2. 多邊選擇ElseIf關(guān)鍵字的書寫和條件表達(dá)式的表示 ElseIf 不要寫成Else If； 多個(gè)條件表達(dá)式次序問題3. Select Case語(yǔ)句的使用 Select Case 后不能出現(xiàn)多個(gè)變量；Case子句后不用條件

27、變量進(jìn)行邏輯運(yùn)算,4.4 循環(huán)結(jié)構(gòu)1. For循環(huán)語(yǔ)句 (一般用于循環(huán)次數(shù)已知)形式 For 循環(huán)變量＝初值 to 終值 [Step 步長(zhǎng)] 語(yǔ)句塊[Exit For] 語(yǔ)句塊 Next 循環(huán)變量,循環(huán)次數(shù),例: For I=2 To 13 Step 3 Label1.Text= Label1.Text & Str(I) & Chr

28、(13) &Chr(10) Next I Label1.Text= Label1.Text & “I=”& Str(I),,,,循環(huán)執(zhí)行次數(shù) 輸出I的值分別為: 2 5

29、 8 11 出了循環(huán)輸出為: I=14,例4.5 編程計(jì)算：S=1+2+3+…+100,Dim S%, I%S=0 ' 累加前變量S為0For I=1 to 100 S=S+INext IMsgBox( " S=“ & S),,,,當(dāng)N<=100,,,N=N+1,打印S,,S=0,N=1,S=S+N,例4-5的算法流程圖,形式1：（當(dāng)型循環(huán)）

30、 Do While 語(yǔ)句塊 [Exit Do] 語(yǔ)句塊 Loop Do 語(yǔ)句塊 [Exit Do] 語(yǔ)句塊 Loop While,4.4.2 Do…Loop循環(huán)語(yǔ)句,,,,,,,形式2：(直到循環(huán)）

31、 Do Until 語(yǔ)句塊 [Exit Do] 語(yǔ)句塊LoopDo 語(yǔ)句塊 [Exit Do] 語(yǔ)句塊Loop Until ,Do Until…Loop執(zhí)行過程 Do…Loop Until執(zhí)行過程,說明：（1）當(dāng)使用While構(gòu)

32、成循環(huán)時(shí)，當(dāng)條件為“真” 則反復(fù)執(zhí)行循環(huán)體，當(dāng)條件為“假”，則退出循環(huán)。（2）當(dāng)使用Until 構(gòu)成循環(huán)時(shí)，當(dāng)條件為“假”，則反復(fù)執(zhí)行循環(huán)體，直到條件成立，即為“真”時(shí)， 則退出循環(huán)。,,,,（3）在循環(huán)體內(nèi)一般應(yīng)有一個(gè)專門用來改變條件表達(dá)式中 變量的語(yǔ)句，以使隨著循環(huán)的執(zhí)行，條件趨于不成立 （或成立），最后達(dá)到退出循環(huán)。（4）語(yǔ)句Exit Do的作用是退出它所在的循

33、環(huán)結(jié)構(gòu)，它只能 用在DO/Loop結(jié)構(gòu)中，并且常常是同選擇結(jié)構(gòu)一起出現(xiàn)在循環(huán)結(jié)構(gòu)中，用來實(shí)現(xiàn)當(dāng)滿足某一條件時(shí)提前退出循環(huán)。,例4.7 求兩個(gè)整數(shù)的最大公約數(shù)、最小公倍數(shù),,Dim n%,m%,nm%,r%m=Val(InputBox("m="))n=Val(InputBox("n="))nm=n*mIf m 0)

34、 m=n n=r r= m mod n LoopPrint "最大公約數(shù)=", n Print "最小公倍數(shù)=", nm/n,分析：求最大公約數(shù)的算法思想：(最小公倍數(shù)=兩個(gè)整數(shù)之積/最大公約數(shù))(1) 對(duì)于已知兩數(shù)m，n，使得m>n；(2) m除以n得余數(shù)

35、r；(3) 若r=0，則n為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行(4)；(4) m←n，n←r，再重復(fù)執(zhí)行(2)。,4.4.4 循環(huán)的嵌套——多重循環(huán)結(jié)構(gòu) 如果在一個(gè)循環(huán)內(nèi)完整地包含另一個(gè)循環(huán)結(jié)構(gòu)，則稱為多重循環(huán)，或循環(huán)嵌套，嵌套的層數(shù)可以根據(jù)需要而定，嵌套一層稱為二重循環(huán)，嵌套二層稱為三重循環(huán)。 上面介紹的幾種循環(huán)控制結(jié)構(gòu)可以相互嵌套，下面是幾種常見的二重嵌套形式：,,,,（1）For

36、 I=…. ….. For J=…. …. Next J ….. Next I,（2）For I=…. ….. Do While/Until …. …. Loop …..

37、 Next I,（3）Do While…. ….. For J=…. …. Next J ….. Loop,（4）Do While/Until…. ….. Do While/Until …. …

38、. Loop ….. Loop,,,,,對(duì)于循環(huán)的嵌套，要注意以下事項(xiàng)：(1) 內(nèi)循環(huán)變量與外循環(huán)變量不能同名；(2) 外循環(huán)必須完全包含內(nèi)循環(huán)，不能交叉； (3) 不能從循環(huán)體外轉(zhuǎn)向循環(huán)體內(nèi)，也不能從外循環(huán)轉(zhuǎn)向內(nèi)循環(huán). 正 確錯(cuò) 誤,For ii =1 To 10

39、 For jj=1 To 20 … Next ii Next jj,For ii =1 To 10 For ii=1 To 20 …

40、 Next ii Next ii,For ii =1 To 10 For jj=1 To 20 … Next jj Next ii,For ii =1 To 10 …

41、 Next ii For ii =1 To 10 … Next ii,,,,,,,,,,,,,,,,,,,,,,4.4.5 幾種循環(huán)語(yǔ)句比較,,,,4.4.6 循環(huán)結(jié)構(gòu)與選擇結(jié)構(gòu)的嵌套,在循環(huán)結(jié)構(gòu)中可以完整嵌套選擇結(jié)構(gòu)即整個(gè)選擇結(jié)構(gòu)都屬于循環(huán)體。在選擇結(jié)構(gòu)中嵌套循環(huán)結(jié)

42、構(gòu)時(shí)，則要求整個(gè)循環(huán)結(jié)構(gòu)必須完整地嵌套在一個(gè)分支內(nèi)，一個(gè)循環(huán)結(jié)構(gòu)不允許出現(xiàn)在兩個(gè)或兩個(gè)以上的分支內(nèi)。,（1）For I=…… …… IF … Then …… End IF …… Next I,（6） IF … Then …… For I=…… …… End IF …… Next I,（5）Sel

43、ect Case …… For I=…… …… Case …… …… Case …… …… Next I ……… End Select,（3）For I=…… …… IF … Then …… Next I …… End IF,（2）IF … Then

44、 …… For I=…… …… Next I …… End IF0,（4）For I=…… …… Select Case … Case …… …… Case …… …… End Select …… Next I,×,×,×,,,,,4

45、.5 其它輔助控制語(yǔ)句 4.5.1 Goto 語(yǔ)句 形式: Go To {標(biāo)號(hào)|行號(hào)} 作用是無條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語(yǔ)句. 標(biāo)號(hào)是一個(gè)字符序列,行號(hào)是一個(gè)數(shù)字序列。 例 求100以內(nèi)的素?cái)?shù) 判別某數(shù)m是否為素?cái)?shù)最簡(jiǎn)單的方法是: 對(duì)于m 從i=2，3，…，m-1判別m能否被i整除，只要有一個(gè)能整除 ，m不是素?cái)?shù)，否則m是素?cái)?shù)

46、。 For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM Next i Print m NotNextM: Next m,,,,4.5.2 Exit 語(yǔ)句,Exit 語(yǔ)句用于退出 Do...Loop、For...Next、Funct

47、ion或Sub代碼塊。 對(duì)應(yīng)的使用格式為：Exit Do、Exit For、Exit Function、Exit Sub。分別表示退出DO循環(huán)、For循環(huán)、函數(shù)過程、子過程。,例如： 下面的例子是使用 Exit 語(yǔ)句退出 For...Next 循環(huán)、Do...Loop 循環(huán)及子過程。,Private Sub Form_Click() Dim I%, Num% Do

48、 ' 建立無窮循環(huán)。 For I = 1 To 100 ' 循環(huán) 100 次。 Num = Int(Rnd * 100) ' 生成一個(gè)0~99的隨機(jī)數(shù)。 Select Case Num Case 10: Exit For '退出 For...Next 循環(huán)。 Case 50: Exit Do &#

49、39;退出 Do...Loop 循環(huán)。 Case 64: Exit Sub ' 退出子過程。 End Select Next I LoopEnd Sub,4.5.3 End 語(yǔ)句 形式： End 功能：結(jié)束一個(gè)程序的運(yùn)行。 在Visual Basic中還有多種形式的End語(yǔ)句，用于結(jié)束一個(gè)程序塊或過程。

50、 其形式有： End If End Select End With End Sub End Function等它們與對(duì)應(yīng)的語(yǔ)句配對(duì)使用。,4.5.4 暫停語(yǔ)句 Stop語(yǔ)句用來暫停程序的執(zhí)行，相當(dāng)于在事件代碼中設(shè)置斷點(diǎn)。語(yǔ)法格式為： Stop說明：1. Stop語(yǔ)句的主要作用是把

51、解釋程序置為中斷(Break)模式，以便對(duì)程序進(jìn)行檢查和調(diào)試。可以在程序的任何地方放置Stop語(yǔ)句，當(dāng)執(zhí)行Stop語(yǔ)句時(shí)，系統(tǒng)將自動(dòng)打開立即窗口。2. 與End語(yǔ)句不同。,4.5.5 With...End With 語(yǔ)句 形式： With 對(duì)象名 語(yǔ)句塊 End With 說明：With 語(yǔ)句可

52、以對(duì)某個(gè)對(duì)象執(zhí)行一系列的語(yǔ)句，而不用重復(fù)指出對(duì)象的名稱。 例如，要改變一個(gè)對(duì)象的多個(gè)屬性，可以在 With 控制結(jié)構(gòu)中加上屬性的賦值語(yǔ)句，這時(shí)候只是引用對(duì)象一次而不是在每個(gè)屬性賦值時(shí)都要引用它。,4.6 常用算法,1.累加、連乘,例：1～100的5或7的倍數(shù)的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then

53、 Sum = Sum + i End If Next i Print Sum,例： 3～10的乘積 t = 1 For i =3 To 10 t = t * i Next i Print t,思考：若把循環(huán)體前面置各變量初值的語(yǔ)句放在循環(huán)體內(nèi)，程序運(yùn)行時(shí)會(huì)產(chǎn)生什么情況？,例4.14求自然對(duì)數(shù)e的近似值,要求其誤差小于0.00001，近似公式為:

54、 該例題涉及兩個(gè)問題： （1）用循環(huán)結(jié)構(gòu)求級(jí)數(shù)和的問題。本例根據(jù)某項(xiàng)值的精度來控制循環(huán)的結(jié)束與否。 （2）累加：e=e+t 循環(huán)體外對(duì)累加和的變量清零 e=0 連乘：n=n*i 循環(huán)體外對(duì)連乘積變量置1 n=1 Private Sub Form_Click() Dim i%,n&, t!, e! e = 0 : n = 1 ‘ e存放累加和、n存放階

55、乘 i = 0 : t = 1 ‘ i計(jì)數(shù)器、t第i項(xiàng)的值 Do While t > 0.00001 e = e + t : i = i + 1 ‘ 累加、連乘 n = n * i : t = 1 / n Loop MsgBox( "計(jì)算了 “ & Chr(i) & " 項(xiàng)的和是 " & Chr(e))End Sub,2.最

56、小、最大值在若干個(gè)數(shù)中求最大值，一般先假設(shè)一個(gè)較小的數(shù)為最大值的初值，若無法估計(jì)較小的值，則取第一個(gè)數(shù)為最大值的初值；然后將每一個(gè)數(shù)與最大值比較，若該數(shù)大于最大值，將該數(shù)替換為最大值；依次逐一比較。例隨機(jī)產(chǎn)生10個(gè)100～200之間的整數(shù)，求最大值。,Private Sub Button1_Click() Dim i As Integer Dim x, Max As Integer Max = 1

57、00 For i = 1 To 10 x = Int(Rnd() * 101 + 100) Label1.Text = Label1.Text & Str(x) & " " If x > Max Then Max = x Next i Label1.Text = Label

58、1.Text & Chr(13) & Chr(10) ' 換行 Label1.Text = Label1.Text & "最大值=" & Str(Max)End Sub,4.7 常見錯(cuò)誤1. 不循環(huán)或死循環(huán)的問題 主要是循環(huán)條件、循環(huán)初值、循環(huán)終值、循環(huán)步長(zhǎng)的設(shè)置有問題。2．循環(huán)結(jié)構(gòu)中缺少配對(duì)的結(jié)束語(yǔ)句 For 少 配對(duì)的Next 3.循環(huán)嵌