IF语句

Sub 判断()
Dim a%, b%
a = 1
b = 2
If (a > b) Then
MsgBox ("a比b大")
Else
MsgBox ("a比b小")
End If
End Sub

还有一种IFF的用法：

Sub iff判断()
Dim a%, b%, c$
a = 1
b = 2
c = IIf((a > b), "a>b", "a<b")
MsgBox c
End Sub