作业帮 > 综合 > 作业

vb if语法多条件判断

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/04 14:33:08
vb if语法多条件判断
多条件判断 比方说 if 条件1 条件2 条件3 then 结果1 else 结果2 end if
如果条件123都成立 返回结果1
如果条件123 其中一个或两个不成立 则返回 结果2
是不是不能用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 "否"
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