新观念的 VB6 教本演示文稿.ppt

新觀念的 VB6 教本 第七章 讓程式轉彎的控制敘述 7-1 強制跳躍的 GoTo 強制跳躍 GoTo GoTo 是 跳到… 的意思，執行之後可以跳到前面的敘述，也可以跳到後面的敘述，但使用 GoTo 以前必須先有「標記」存在。 標記的設定 設定標記的方法十分簡單，只要把標記名稱加在敘述前面，並且用 : 分開即可，例如： 標記設定 -- 完整的規則 標記必須放在敘述的前面，並且以冒號 ‘:’ 分隔。 標記之後可以不必接續任何敘述，唯 ‘:’ 仍不可省略。 標記的命名規則與變數的命名規則相同，有關變數的命名規則請參考2-5節「變數與常數」。 除了標記名稱可以作為標記之外，數字0～2147483647也可以作為標記，若以數字作為標記，與敘述分隔用的 ‘:’ 可以省略。 已使用的標記不能重複使用。 標記設定 -- 正確的使用法 標記設定 -- 錯誤的使用法 GoTo 敘述 GoTo 可以跳到前面的敘述，也可以跳到後面的敘述，但是當 GoTo 跳到前面的敘述時，要特別小心，請觀察以下例子： GoTo 敘述 -- 無窮迴圈 每次執行到 GoTo L10 之後，都會回到前面的敘述重新執行，進入所謂的無窮迴圈，結果會發現整個系統都變得不能操作了，即使是按結束命令鈕也沒有效，這時候解救方法是按下 Ctrl 鍵+Break 鍵，讓 VB 進入中斷模式，然後再結束程式。 GoTo 敘述 -- 溢位的示誤訊息(1) 出現在無窮迴圈的另一個現象是溢位的示誤訊息，例如以下是一個連續列印 1、2、3…的程式： GoTo 敘述 -- 溢位的示誤訊息(2) 這是一個無窮迴圈的程式，所以迴圈中的 I% = I% + 1 會不斷地被執行，使 I% 值一直往上加，最後加到32768，就超過了整數型別的最大容量，所以 VB 便發出溢位的訊息。 If-Then-GoTo 避免無窮迴圈，可在 GoTo 前面增加條件式的判斷，以決定是否讓 GoTo 繼續往回跳，使用的敘述是： If 條件式 Then GoTo 標記 假如 條件式 成立，就跳到 標記 所在的敘述來執行，否則就向下執行。 If-Then-GoTo 的實例研究 改良第四章 score.vbp 專案程式 -- 如果使用者輸入的成績小於0或大於100，則要求其重新輸入。原程式如下： If-Then-GoTo 的實例研究 – Step1 檢查使用者輸入的「數學」成績是否位於0～100區間，如果不是，則跳回「A = Val(InputBox(“請輸入[數學]成績”))」敘述之前，程式如下： 因此只要A小於0或A大於100，程式都會跳回L10的標記位置，緊接著又會執行 InputBox 敘述，要求使用者重新輸入數學成績。 If-Then-GoTo 的實例研究 – Step2 改良後完整的程式如下： 7-2 有條件執行的 If 敘述 If-Then 格式 其實 If-Then 不一定要配合 GoTo 一起使用，比較通則性的 If-Then 格式是： If 條件式 Then 敘述 如果 條件式 成立，就執行 Then 之後的 敘述，否則繼續向下執行。其中 敘述 部份可以是任何合乎規定的敘述，例如將它換成 GoTo 敘述，就變成了上一節所看到的 If-Then-GoTo 格式，If-Then 敘述在程式設計中十分常用。 If-Then 的實例練習 求 X 的絕對值 If-Then – Then 後面執行多行敘述 如果要在 Then 後面執行多個敘述，用敘述分隔符號 ‘:’ 逐一把 Then 後面的敘述隔開來即可，例如： If I 10 Then Print I : I = I + 1 : GoTo L10 敘述 1 敘述 2 敘述 3 If-Then 的實例研究 如果使用者輸入的成績小於 0 或大於 100，則先顯示一個訊息窗，然後才要求其重新輸入。 結構化的 If-Then 格式(1) 當 Then 後面的敘述很多時，整個 If-Then 敘述將會拖得很長，對閱讀來說十分不方便，所以 VB 又提供了另一種比較結構化的 If-Then 格式： 結構化的 If-Then 格式(2) 介於 Then 及 End If 間的敘述稱「敘述區塊」，所以有時候這個格式會表示成： 而在寫法上，我們通常會將整個敘述區塊後退幾格，讓程式更容易閱讀，例如： If-Then-Else 格式(1) 有時候我們會說：「如果…就做第一件事，否則就做第二件事。」，這表示成 VB 的敘述是： If-Then-Else 格式(2) 結構化的寫法： If-Then-Else 實例研究(1) 在所完成的「計算平均分數」程式