VB.NET Class.3 (迴圈)

程式依序按鈕排列...


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = ""
        Dim i As Integer
        While i <= 10
            Label1.Text = Label1.Text & "WHILE" & i & "次" & vbCr        //vbCr為換行指令
            i += 1
        End While
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Label1.Text = ""
        Dim i As Integer
        For i = 0 To 10
            Label1.Text = Label1.Text & "FOR" & i & "次" & vbCr             //vbCr為換行指令
        Next
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Label1.Text = ""
        Dim i As Integer
        Dim total As Integer = 0
        For i = 0 To 10
            total += i
        Next
        Label1.Text = "總和 = " & total
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Label1.Text = ""
        Dim i As Integer
        Dim total As Integer = 0
        For i = 0 To 10
            If i Mod 2 = 1 Then
                total += i
            End If
        Next
        Label1.Text = "奇數和 = " & total
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Label1.Text = ""
        Dim i As Integer
        Dim total As Integer = 0
        For i = 0 To 10
            If i Mod 2 = 0 Then
                total += i
            End If
        Next
        Label1.Text = "偶數和 = " & total
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        Label1.Text = ""
        Dim i As Integer
        Dim total As Integer = 0
        Do While i <= 10
            total += i
            i += 1
        Loop
        Label1.Text = "前置" & total
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        Label1.Text = ""
        Dim i As Integer
        Dim total As Integer = 0
        Do
            total += i
            i += 1
        Loop While i <= 10
        Label1.Text = "後置" & total
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        Label1.Text = ""
        Dim i As Integer
        Dim total As Integer = 0
        Do Until i > 10
            total += i
            i += 1
        Loop
        Label1.Text = "前置" & total
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
        Label1.Text = ""
        Dim i As Integer
        Dim total As Integer = 0
        Do
            total += i
            i += 1
        Loop Until i > 10
        Label1.Text = "後置" & total
    End Sub
-----------------------------------------------------------------------------------------------------------------    Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
        Dim a As Integer = InputBox("輸入一個數a")
        Dim b As Integer = InputBox("輸入一個數b")
        MessageBox.Show("總合為" & a + b)
    End Sub
End Class

-----------------------------------------------------------------------------------------------------------------