vb if语法多条件判断

Question

多条件判断 比方说 if 条件1 条件2 条件3 then 结果1 else 结果2 end if
如果条件123都成立 返回结果1
如果条件123 其中一个或两个不成立 则返回 结果2

是不是不能用if 实现哇 求大神

Answer 1

if  (条件1  and 条件2 and 条件3) then '3个条件同时满足
    结果1
elseif  (条件1 or  条件2 or 条件3) then'3个条件满足至少一个
    结果2
end if

追问

谢谢 但是这个也不行

Answer 2

Private Sub Command1_Click()
Dim a, b, c As Long
a = 3
b = 3
c = 5
If a + b = 6 And b + c = 8 And a + c = 8 Then MsgBox "是" Else MsgBox "否"
End Sub
修改ABC的值就可以看到了，可以实现的，呵呵，祝你成功！不懂的可以问我哦！追问

用or连接条件 返回的是 then以后的 用and 连接条件 返回else

if Rs("BQ_id1") = BQ_id1 or Rs("BQ_jd") = session("BQ_Admin_Name") or Rs("BQ_time") = date() then
结果1
else
结果2
end if

追答

Private Sub Command1_Click()
Dim a, b, c As Long
a = 3
b = 3
c = 5
'If a + b = 6 And b + c = 8 And a + c = 8 Then MsgBox "是" Else MsgBox "否"
If a + b = 6 And b + c = 8 And a + c = 8 Or a * b = 19 Then MsgBox "是" Else MsgBox "否"
End Sub
修改IF 后面的什么什么等于多少的值就可以看到效果了

又看了一遍你的问题，如果以上代码还不是你想要的效果的话，那么你应该想要的应该是嵌套的IF代码如下：
Private Sub Command1_Click()
Dim a, b, c As Long
a = 3
b = 3
c = 5
'If a + b = 6 And b + c = 8 And a + c = 8 Then MsgBox "是" Else MsgBox "否"
If a + b = 6 And b + c = 8 And a + c = 9 Then
'MsgBox "是"

Else
'MsgBox "否"
If a * b = 90 Or b * c = 14 Then MsgBox "是" Else MsgBox "否" ' 修改这条的数值就可以看到效果了

End If
End Sub

本回答被提问者采纳

Answer 3

if A and B and C then action1
else action 2

Answer 4

你已经写好了啊，是正确的，为何要问别人？追问

我把一部分代码贴楼上