标签：cond statement 判断 bsp state span test 逻辑 选择
【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
标签：cond statement 判断 bsp state span test 逻辑 选择
原文地址：http://www.cnblogs.com/OliverQin/p/6206946.html
