网站建设价格标准信息,西安网站公司比较大的,制定 网站改版优化方案,鲜花店网站建设的规模设想【IF...THEN...语句】 If condition Then [statements1] else [statements2] end if condition 为一个逻辑表达式#xff0c;表示做选择时需要判别的条件#xff0c;其结果为布尔类型#xff0c;当其值为真时#xff0c;执行statements1语句#xff0c;为假是则执行ELSE中…【IF...THEN...语句】 If condition Then [statements1] else [statements2] end if condition 为一个逻辑表达式表示做选择时需要判别的条件其结果为布尔类型当其值为真时执行statements1语句为假是则执行ELSE中statements2语句 【代码区域】 Private Sub 测试if()Dim age As Integerage InputBox(请输入年龄, 输入年龄窗口)If (age 18) ThenMsgBox 已经成年, vbOKOnly, 判断结果ElseMsgBox 未成年, 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 Integerage InputBox(请输入年龄, 输入年龄窗口)If (age 6) ThenMsgBox 童年, vbOKOnly, 判断结果ElseIf (6 age And age 17) ThenMsgBox 少年, vbOKOnly, 判断结果ElseIf (17 age And age 40) ThenMsgBox 青年, vbOKOnly, 判断结果ElseIf (41 age And age 65) ThenMsgBox 中年, vbOKOnly, 判断结果ElseMsgBox 老年, 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 ageCase 0 To 6MsgBox 童年, vbOKOnly, 判断结果Case 6 To 17MsgBox 少年, vbOKOnly, 判断结果Case 17 To 40MsgBox 青年, vbOKOnly, 判断结果Case 40 To 65MsgBox 中年, vbOKOnly, 判断结果Case ElseEnd Select
End Sub 【Tips】 在Select Case中需要注意上下界问题例如Case 0 to 6表示6age0转载于:https://www.cnblogs.com/OliverQin/p/6206946.html
