【文章內容簡介】 語句塊 n [Case Else 語句塊 n+1] End Select 【 例 】 寫一個程序 ， 根據輸入的整數 （ 1—7） 輸出對應星期幾的英文單詞 。 (1)創(chuàng)建項目 WebExamp3_2，將初始頁面文件名由 。 (2)設計 。 制作 : 楊玉偉 流程控制 (3) 在 BtnExe_Click()事件處理中輸入以下程序代碼： Private Sub BtnExe_Click(ByVal sender As , ByVal e As ) Handles If = Then = 您必須輸入一個 17之間的整數 ! Else Select Case CInt() Case 1 = Monday Case 2 = Tuesday Case 3 = Wednsday Case 4 = Thursday“ Case 5 = Friday Case 6 = Saturday Case 7 = Sunday Case Else = 您的輸入有誤，必須輸入一個 17之間的整數 ! End Select End If End Sub 制作 : 楊玉偉 流程控制 (4) 編譯程序 。 選擇主選單的 “ 生成 ” ?“ 生成解決方案 ” 。 (5) 運行程序 ， 結果如圖所示 。 循環(huán)結構 循環(huán)是用于重復執(zhí)行某些操作的結構 。 1. For…Next 語句 語法： For 循環(huán)變量 =初值 to終值 [Step步長 ] 語句塊 [Exit For] [語句塊 ] Next [循環(huán)變量 ] For..Next語句的執(zhí)行流程如右圖所示。 例如，下面的程序使計算機的揚聲器響 3下。 For i = 1 To 3 Beep Next i 其中 i為循環(huán)變量 ， 用作 For… Next循環(huán)中的循環(huán)計數器 。 制作 : 楊玉偉 流程控制 2. For Each… In… Next 語法： For Each 表達式 In 語句塊 [Exit For] [語句塊 ] Next 例如： Dim score() As Integer = {80,90,100,89,98} 39。定義整型數組 Score并賦初值 Dim mark As Integer, sum As Integer = 0 For mark In score 39。求數組 Score()各元素之和 sum += mark Next 上述程序代碼求出 score()數組各元素之和 。 Do… loop Do…Loop語句有兩種格式 語法： Do {While/Until} 條件表達式 語句塊 [Exit Do] 語句塊 Loop 39。 Do… Loop語句格式一 制作 : 楊玉偉 流程控制 Do 語句塊 [Exit Do] 語句塊 Loop {While/Until} 39。 Do… Loop語句格式二 Do… loop的執(zhí)行流程如圖 【 例 】 猜數游戲 。 給定一個數字 (本例為 88)， 由戶來 猜 。 用戶在文本框中輸入數字 ， 點擊 “ 猜對了 嗎 ？ ” 按鈕 。 若猜中 ， 給出成功提示；若用戶 不想繼續(xù)猜測 ， 則點擊 “ 不猜了 ” 按鈕 。 設計步驟如下： (1) 創(chuàng)建項目 WebExamp3_3， 將初始頁面文件名由 圖 Do… Loop循環(huán)結構流程圖 。 (2) 設計 。 制作 : 楊玉偉 流程控制 (3) 雙擊 BtnAns按鈕，進入程序編輯窗口，在 BtnAns_Click() 事件處理中輸入以下程序代碼： Private Sub BtnAns_Click(ByVal sender As , ByVal e As ) Handles Do While CInt() 88 If = Then () Else If CInt() 88 Then () Else If CInt() 88 Then () End If End If End If Loop = 恭喜您，猜對了！ End Sub 制作 : 楊玉偉 流程控制 雙擊 界 面 上 的 BtnCancel 按鈕 ， 進 入 程 序 編 輯 窗 口 ， 在BtnCancel_Click() 事件處理中輸入以下程序代碼： Private Sub BtnCancel_Click(ByVal sender As , ByVal e As ) Handles = True End Sub (4) 編譯程序 。 選擇主選單的 “ 生成 ” ?“ 生成解決方案 ” 。 (5) 運行程序 ， 結果如圖 。 While 語法： While 條件表達式 [語句塊 ] [Exit While] [語句塊 ] End W