單元:ch04. 迴圈陳述式

單元:ch04. 迴圈陳述式

• 我知道 For ...next 結構

For 迴圈變數 = 初值 To 終值 Step 增量 

Next 迴圈變數 

• 我會計算 for...next 迴圈的執行次數

【( 終值-初值) / 增量】+ 1

• 印出 5 10 15 ... 50

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '印出 5 10 15 ... 50
        Dim ans As String = ""
        For i = 5 To 50 Step 5
            ans &= i & " "
        Next
        Me.TextBox1.Text = ans
    End Sub

• 印出 20 16 12 ...-12 -16

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '印出 20 16 12 ...-12 -16
        Dim ans As String = ""
        For i = 20 To -16 Step -4
            ans &= i & " "
        Next
        Me.TextBox2.Text = ans
    End Sub

• 我知道 do while....loop 結構

Do while 條件
      程式區塊
Loop 

• 我知道 do until....loop 結構

Do until 條件
      程式區塊
Loop 

• 我知道 do ...loop while 結構

Do 
      程式區塊
Loop while 條件

• 我知道 do...loop until 結構

Do 
      程式區塊
Loop until 條件

• 如何將 For...Next 改成 Do While...Loop 或 Do...Loop While?

For i = 初值 To 終值 Step 增量  ==>  Dim  i  = 初值
                                                              Do While  i <= 終值
Next                                             ==>        i += 增量
                                                              Loop

實例:

For x = 20 To -16 Step -4   ==>Dim x = 20  
                                                  Do While x <= -16
    ans &= x & " "           ==>         ans &= x & " "
Next                              ==>         x -= 4
                                                  Loop
Msgbox (ans)               ==>      MsgBox(ans)

• 印出九九乘法表。(三種不同樣式)