Private Sub Form_Load()
Dim i As Integer
i = 3
If i = 0 Then
MsgBox "0"
ElseIf i = 1 Then
MsgBox "1"
Else
MsgBox "other"
End If
Select Case i
Case 0
MsgBox "0"
Case 1
MsgBox "1"
Case Else
MsgBox "other"
End Select
MsgBox IIf(i = 0, "is 0", "not 0")
If i = 0 Then MsgBox "0"
End Sub
If Then
If
Then
(Else)
End If
Select Case 变量名
Case Is
Case a To b
...
Case Else
End Select
IIf(条件，a，b）
若条件为真则a，条件为假则b
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024