【正文】 否為 3的倍數(shù)：若各位和是 3的倍數(shù)，則這個數(shù)也是 3的倍數(shù)；否則不成立。活動 一 判斷 輸入的數(shù)是否為 3的倍數(shù) 活動簡介從鍵盤上輸入一個正整數(shù) x（不超過 3位），單擊 “ 驗證 ” 命令按鈕，判斷該數(shù)是否為 3的倍數(shù)。③ 通常 GoTo語句與 If語句共同使用，否則會出現(xiàn)死循環(huán)。提示① 標(biāo)號是一個以冒號結(jié)束的標(biāo)識符，用以標(biāo)明 GoTo語句轉(zhuǎn)移的位置。二、分支結(jié)構(gòu)4． GoTo語句GoTo語句有又稱條件轉(zhuǎn)移語句，它通過與語句標(biāo)號的結(jié)合來控制程序的流程。例如：For i = 1 To 3 = i= i vbCrLf For j = 1 To 3 = j= j Next = vbCrLf Next提示① 外層循環(huán)必須完全包含內(nèi)層循環(huán)，循環(huán)體之間不能交叉。Loop Until語句流程圖三、循環(huán) 結(jié)構(gòu)3．循環(huán)的嵌套在一個循環(huán)結(jié)構(gòu)的循環(huán)體內(nèi)含有另一個循環(huán)結(jié)構(gòu)，這就構(gòu)成了循環(huán)的嵌套，又稱多重循環(huán)。相比 Do…While Loop 循環(huán)， Do…Loop Until 循環(huán)無論條件表達(dá)式成不成立都先執(zhí)行一次。求自然對數(shù) e的近似值程序界面三、循環(huán) 結(jié)構(gòu)程序的代碼如下。While...Loop循環(huán)語句流程圖三、循環(huán) 結(jié)構(gòu)例如，求自然對數(shù) e的近似值，近似公式為： e = 1 + 1/1! + 1/2! + … + 1/n! + … ，要求近似值與真值的誤差小于 01。Do語句的作用：當(dāng)指定的循環(huán)條件為 True， 或者 直到指定的循環(huán)條件變?yōu)?True之前重復(fù) 執(zhí)行一 組語句（即循環(huán)體）。Do語句的一般形式如下 。 圖 310 求表達(dá)式之和的程序界面三、循環(huán) 結(jié)構(gòu)程序代碼 如下Public Class Form1 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim sum, i, n As Integer n = 1 For i = 1 To 9 n *= i sum += n Next i = 1!+2!+..+10！ = sum End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles End End SubEnd Class三、循環(huán) 結(jié)構(gòu)2． Do語句Do循環(huán)語句又稱 “ 循環(huán)條件 ” 控制語句，通常用于循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)。⑤ 在循環(huán)體內(nèi)對循環(huán)控制變量可多次引用，但不要對其賦值，否則會影響原來的循環(huán)控制規(guī)律。③ 循環(huán)變量的值是否在終值內(nèi)：當(dāng)步長為正時，若循環(huán)變量的值大于終值，則結(jié)束循環(huán)；當(dāng)步長為負(fù)時，若循環(huán)變量的值小于終值，則結(jié)束循環(huán)。For循環(huán)語句的流程圖三、循環(huán) 結(jié)構(gòu)提示① 步長為 0時，必須有 Exit For語句，否則會發(fā)生 “ 死循環(huán)” 。Exit For：表示當(dāng)遇到該語句時，提前結(jié)束循環(huán)，執(zhí)行 Next后的下一條語句，通常與條件判斷語句（如 IF）聯(lián)合使用 。若為正，循環(huán)變量從小到大變化（初值小于等于終值）；若為負(fù)，循環(huán)變量從大到小變化（初值大于等于終值）；缺省時步長為 1。初值、終值、步長：數(shù)值型表達(dá)式 。For語句的一般形式為：For 循環(huán)變量 = 初值 To 終值 [Step 步長 ] 循環(huán)體 [Exit For]Next 循環(huán)變量 其中：循環(huán)變量：必須為數(shù)值型，用于控制循環(huán)是否執(zhí)行。三、循環(huán) 結(jié)構(gòu)1． FOR語句For循環(huán)語句又稱計數(shù)型循環(huán)語句，通常用于循環(huán)次數(shù)已知的程序結(jié)構(gòu)中。順序結(jié)構(gòu)和分支結(jié)構(gòu)的程序執(zhí)行時，每條語句只能執(zhí)行一次，循環(huán)結(jié)構(gòu)則可以使計算機(jī)在一定條件下反復(fù)多次執(zhí)行同一段程序。如表 34所示。使用邏輯操作符可以判定一個以上的條件。 不等于 ””= 大于或等于 “abc”=”ab”= 小于或等于 1213二、分支結(jié)構(gòu)屬性、方法和事件構(gòu)成了對象的三個要素。 大于 x10比較操作符見表 33，比較的結(jié)果為 True或False。程序?qū)崿F(xiàn)界面如圖 38所示。二、分支結(jié)構(gòu)Select Case語句一般形式為：Select Case 表達(dá)式 Case 表達(dá)式列表 1語句塊 1Case 表達(dá)式列表 2語句塊 2……[Case Else語句塊 n+1]End Select其中： 表達(dá)式 可以是數(shù)值型或字符串表達(dá)式。Select Case語句的作用是：先對 表達(dá)式 求值，然后測試該值與哪個 Case子句中的表達(dá)式列表相匹配。例如：將 x， y中較大的數(shù)存入 Max變量中的語句為：Max=IIf（ x y, x, y）二、分支結(jié)構(gòu)2． Select Case語句在實際應(yīng)用中，對于多分支結(jié)構(gòu)，更方便的做法是使用Select Case語句。提示① 表達(dá)式 1必須是關(guān)系表達(dá)式或邏輯表達(dá)式。語句形式如下：If 條件表達(dá)式 1 Then If 條件表達(dá)式 11 Then…… End If……End If二、分支結(jié)構(gòu)IIf函數(shù)可用來控制簡單的分支操作，它是 If…Then…Else語句結(jié)構(gòu)的另一種形式。因此要注意對多分支表達(dá)式的書寫次序，防止某些值被過濾掉 。② ElseIf不能寫成 Else If。 VB測試條件的順序為表達(dá)式 表達(dá)式 …… 一旦遇到表達(dá)式值為 True，則執(zhí)行該條件下的語句塊。界面如圖 36所示 編程如下。If…Then…Else 語句的一般形式為：（ 1） If 條件表達(dá)式 Then 語句塊 1 Else 語句塊 2 End If（ 2） If 條件表達(dá)式 Then 語句 1 Else 語句 2雙分支結(jié)構(gòu)流程圖如圖 35所示。 圖 34語句塊可以是一條或多條語句。單 分支 If…Then 條件語句的作用是：當(dāng)表達(dá)式的值為 True或非零時，執(zhí)行 Then后面的語句塊，否則執(zhí)行 End If語句后面的語句 。 VB中提供了多種形式的條件語句來實現(xiàn)分支結(jié)構(gòu) 。二、分支結(jié)構(gòu)分支結(jié)構(gòu)又稱選擇結(jié)構(gòu)，用來解決有選擇、有轉(zhuǎn)移的諸多問題。一、順序結(jié)構(gòu)例：以下 語句等價：i = MsgBox(確認(rèn)數(shù)據(jù)是否正確？ , + , 數(shù)據(jù)驗證 )i = MsgBox(確認(rèn)數(shù)據(jù)是否正確？ ,vbYesNo + vbQuestion, 數(shù)據(jù)驗證 )i = MsgBox(確認(rèn)數(shù)據(jù)是否正確？ , 4 + 32, 數(shù)據(jù)驗證 )i = MsgBox(確認(rèn)數(shù)據(jù)是否正確？ , 36, 數(shù)據(jù)驗證 )圖 33 信息 對話框一、順序結(jié)構(gòu)（ 2） MsgBox方法MsgBox方法一般形式為：MsgBox (提示信息 [，按鈕 ][，標(biāo)題 ])其參數(shù)的意義與 MsgBox函數(shù)相同。常 表 31 MsgBox函數(shù)返回值 MsgBoxResult的含義被 單擊 的按 鈕 內(nèi) 默 認(rèn) 按 鈕 VbDefaultButton1 DefaultButton1 0 默 認(rèn) 按 鈕為 第 1個按 鈕VbDefaultButton2 DefaultButton2 256 默 認(rèn) 按 鈕為 第 2個按 鈕VbDefaultButton3 DefaultButton3 512 默 認(rèn) 按