VB种,if语句的形式为:
if 条件 then
语句1
else
语句2
end if
'满足条件时,则执行语句1;否则执行语句2.
下面用例子说明常见的三种形式:
Private Sub Command1_Click()
'形式1,标准形式
x = InputBox("请输入一个整数")
y = InputBox("请输入一个整数")
If x > y Then
Print "较大的数为:" & x
Else
Print "较大的数为:" & y
End If
End Sub
Private Sub Command2_Click()
'形式2,省略了else部分
x = InputBox("请输入一个整数")
If x >= 0 Then
Print "您输入的数" & x
End If
End Sub
Private Sub Command3_Click()
'形式3,多分支
x = InputBox("请输入您的成绩")
If x >= 60 And x < 80 Then
MsgBox "成绩及格"
ElseIf x >= 80 And x < 90 Then
MsgBox "成绩良好"
ElseIf x >= 90 And x <= 100 Then
MsgBox "成绩优秀,很棒"
Else
MsgBox "成绩不及格!!!"
End If
End Sub