Sub 过程名()
a = 100
b = 1
If a > b Then Debug.Print "大于"
'若 2>1 时 立即窗口.显示 大于
'多行
If a > b Then
Debug.Print "大于"
End If
'否则
If a > b Then
Debug.Print "大于"
Else
Debug.Print "小于"
End If
'否则若
If a > b Then
Debug.Print "大于"
ElseIf a = b Then
Debug.Print "等于"
Else
Debug.Print "小于"
End If
End Sub