【IF...THEN... 语句】
If condition Then
[statements1]
else
[statements2]
end if
condition 为一个逻辑表达式,表示做选择时需要判别的条件,其结果为布尔类型,当其值为真时,执行 statements1 语句,为假是则执行 ELSE 中 statements2 语句
【代码区域】
- Private Sub 测试if()
- Dim age As Integer
- age = InputBox("请输入年龄", "输入年龄窗口")
- If (age >= 18) Then
- MsgBox "已经成年", vbOKOnly, "判断结果"
- Else
- MsgBox "未成年", vbOKOnly, "判断结果"
- End If
- End Sub
【IF 嵌套语句】
IF condition Then
[statements1]
[Elseif condition2 then statements2]
[Elseif condition3 then statements3]
...
[Elseif conditionN then statementsN]
Else statements
End if
【代码区域】
- Private Sub 测试if嵌套()
- Dim age As Integer
- age = InputBox("请输入年龄", "输入年龄窗口")
- If (age <= 6) Then
- MsgBox "童年", vbOKOnly, "判断结果"
- ElseIf (6 < age And age <= 17) Then
- MsgBox "少年", vbOKOnly, "判断结果"
- ElseIf (17 < age And age <= 40) Then
- MsgBox "青年", vbOKOnly, "判断结果"
- ElseIf (41 < age And age <= 65) Then
- MsgBox "中年", vbOKOnly, "判断结果"
- Else
- MsgBox "老年", vbOKOnly, "判断结果"
- End If
- End Sub
【Select Case 语句】
Select Case testexpression
[Case expressionlist - n]
[statements-n]...
[Case Else
[elsestatements]]
End Select
【代码区域】
- Private Sub case测试()
- Dim age As Integer
- age = InputBox("请输入年龄", "输入年龄窗口")
- Select Case age
- Case 0 To 6
- MsgBox "童年", vbOKOnly, "判断结果"
- Case 6 To 17
- MsgBox "少年", vbOKOnly, "判断结果"
- Case 17 To 40
- MsgBox "青年", vbOKOnly, "判断结果"
- Case 40 To 65
- MsgBox "中年", vbOKOnly, "判断结果"
- Case Else
- End Select
- End Sub
【Tips】
在 Select Case 中需要注意上下界问题,例如:"Case 0 to 6" 表示 6>=age>0
来源: