VBA_Excel_教程：分枝循环结构

Sub 分枝()
    tmp = Cells(1, 1).Value '变量不用定义，当前写代码的Sheet
    Debug.Print tmp
    If tmp = "1" Then
        Debug.Print "A"
        
    'ElseIf是连着的
    ElseIf tmp = "2" Then
        Debug.Print "B"
    Else
        Debug.Print "C"
    End If
End Sub

Sub 分枝()
    tmp = Cells(1, 1).Value '变量不用定义，当前写代码的Sheet
    
    Select Case tmp
        Case 0
            Debug.Print "A"
        Case 1
            Debug.Print "B"
        Case 2
            Debug.Print "C"
        Case 3
            Debug.Print "D"
        Case Else
            Debug.Print "Z"
    End Select
End Sub

Sub For循环()
    'i不用定义
    For i = 0 To 3
        Debug.Print i
    Next
End Sub

Sub doWhileLoop()
    i = 0
    Do While i < 10 '摸着石头过河
        Debug.Print i
        
        i = i + 1
    Loop
    Debug.Print "------------------------------"
    i = 0
    Do
        Debug.Print i
        
        i = i + 1
    Loop While i < 10 '先下河再找石头
    Debug.Print "------------------------------"
    i = 0
    Do Until i > 10 '摸到石头就走
        Debug.Print i
        
        i = i + 1
    Loop
    Debug.Print "------------------------------"
    i = 0
    Do
        Debug.Print i
        
        i = i + 1
    Loop Until i > 10 '走到摸不到石头
End Sub

 

Sub while循环()
    i = 0
    While i < 100
        Debug.Print i
       
        If i = 20 Then
            i = 100 '利用While的破坏条件退出循环 '
        End If
        i = i + 1
    Wend
End Sub