7-5.前測式迴圈.docVIP

第7章 重複結構 目錄 7-0. 迴圈種類：有3類 2 7-1. 計數迴圈 3 7-2. 範例練習[exp7-1]：檢查密碼是否正確 4 7-3. 陣列計算迴圈 For…. Each…. Next 5 7-4. 範例練習[exp7-2]：計算求1到N的總合 6 7-5. 前測式迴圈 8 7-6. 範例練習[exp7-3]：重複輸入個人的興趣 9 7-7. 範例練習[exp7-4]：同上，重複輸入個人的興趣 11 7-8. 後測式迴圈 12 7-9. 範例練習[exp7-5]：計算總和、計算階乘 13 7-10. 圖片方塊 Picture Box 14 7-11. 兩種座標系統 16 7-12. 範例練習[exp7-6]：控制PictureBox的4個關鍵指令 17 7-13. 計數器Timer與動畫 22 7-14. 範例練習[exp7-7]：計數器Timer及其在動畫上的應用(1) 22 7-15. 範例練習[exp7-8]：計數器Timer及其在動畫上的應用(2) 25 7-16. 範例練習[exp7-9]：計數器Timer及其在動畫上的應用(3) 28 7-17. 影像列示 Image List與動畫 30 7-18. 範例練習[exp7-10]：影像列示 Image List及其在動畫上的應用 31 7-19. 捲軸 Scroll Bar與動畫 33 7-20. 範例練習[exp7-11]：捲軸Scroll Bar及其在動畫上的應用 34 迴圈種類：有3類 　　　　　 計數迴圈：For…Next 重覆結構 陣列迴圈：For Each …Next 條件式迴圈：Do…Loop。 　　　　　 計數迴圈 公式： 語法：For變數=初值To終值[Step增值]　　　　　[敘述區段]　　　　　[Exit For]　　　 Next變數 功能：命令電腦在指定的次數內，重覆去執行某個敘述區段。 說明： For後面的變數一般稱為計數變數，必須是數值變數，可使用整數變數、長整數變數、單精確度變數、倍精確度變數等。 初值、終值和增值可以為常數、數值變數或數值運算式。 預設增值為1，此時Step可省略。若增值為正，終值必須大於或等於初值；反之，若增值為負，終值必須小於或等於初值。 Next後面的變數可以省略。 若要從For…Next中跳出，可用Exit For中途離開迴圈，如： For ｉ= … 　… 　If 條件 Then Exit For 　… Next ｉ 　… 範例： For i = 1 To 20 total = total + i Next i 範例練習[exp7-1]：檢查密碼是否正確 練習目標：使用For...Next 來檢查所輸入的密碼是否正確，失敗3次的，就將程式結束 程式碼： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pwd As String Dim i As Short For i = 0 To 2 pwd = InputBox(請輸入會員登入密碼, 會員登入, 123) If pwd = csie Then Exit For Else MessageBox.Show(你輸入的密碼錯誤！請重新輸入！, 密碼檢查, MessageBoxButtons.OK) End If Next If pwd = csie Then MessageBox.Show(歡迎會員光臨, 密碼檢查, MessageBoxButtons.OK) Else MessageBox.Show(你將被驅除出境, 密碼檢查, MessageBoxButtons.OK) End If End Sub 陣列計算迴圈 For…. Each…. Next 公式： 語法：For Each變數 In 陣列　　　　　[敘述區段]　　　　　　　　 Next 功能：命令電腦在指定的次數內，重覆去執行某個敘述區段。 說明： 適用於陣列的計算。 範例： For Each a In a1 sum += a