Note20240724_循环

VB循环

1. For循环

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For i = 0 To 9 Step 2 'Step 表示步长
            'System.Console.WriteLine(i)
            MsgBox(i)    ' 弹出信息提示框
        Next
    End Sub

2. Do循环

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim i As Integer = 0
        '死循环
        Do
            MsgBox(i)
            i += 1
            If i = 3 Then
                Exit Do     '结束do 循环
            End If
            If i = 5 Then
                Exit Sub  ' 结束过程,此句在此处不会被执行
            End If
        Loop
        ' 退出死循环用 exit
        MsgBox("The Loop have been ended")
    End Sub

3. While循环

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        '条件循环
        '当条件满足时进入循环
        Dim i As Integer = 0
        While i < 5
            MsgBox(i)
            i += 1
            If i = 3 Then
                Exit While
            End If
        End While
        MsgBox("The Loop have been ended 3")
    End Sub