当前位置：首页 > news >正文

企业管理咨询网站模板/seo收费低

news 2025/7/1 1:15:32

企业管理咨询网站模板,seo收费低,pc建站,行业门户网站的优化怎么做yps行业门户系统【IF...THEN...语句】 If condition Then [statements1] else [statements2] end if condition 为一个逻辑表达式，表示做选择时需要判别的条件，其结果为布尔类型，当其值为真时，执行statements1语句，为假是则执行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