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