vb if语法多条件判断

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

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

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

追问

谢谢 但是这个也不行

温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2017-11-26
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

本回答被提问者采纳
第2个回答  2013-11-19
if A and B and C then action1
else action 2
第3个回答  2013-11-19
你已经写好了啊,是正确的,为何要问别人?追问

我把一部分代码贴楼上

VB中如果if 句中有两个条件怎么办?
“If...Then”分支结构用于给程序添加逻辑控制能力。这里,“Condition”是个条件表达式,“Statement”是条件有效的Visual Basic语句。例如:If Score>=20 Then Label1.Text="You Win!"是个使用了下述条件表达式的分支结构:Score>=20 根据这个表达式的值,程序决定是否把Label1对象的“Text”属性设置...

VB语言中可以定义多个IF条件吗?
在 IF 中可以使用多条件判断,在VB中除了有算术运算符外,还有比较运算符,是对二个数据进行对比,例如大于(>)、小于(<)、等于(=)等等,还有逻辑运算符进行逻辑运算的,例如逻辑非(Not)、逻辑与(And)、逻辑或(Or)等等,在IF 语句中可以使用这些运算符进行组合判断。根据你的题意:If A条件=True ...

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

vbifelse用法,
VB中的If Else用法:用于条件判断,控制程序流程。根据条件的真假选择执行不同的代码块。详细解释如下:一、基本结构 VB中的If Else结构是基本的条件判断语句,用于根据不同的条件执行不同的操作。其基本结构如下:vbscript If 条件 Then ' 条件为真时执行的代码 Else ' 条件为假时执行的代码 End If ...

我想问一下VB中多个判断语句IF的使用方法
if a>0 and a<501 then b=a+5 enf if if a>501 and a<1001 then b=a+10 end if 你那enf改为end if

VB多条件if语句
If a = "好"||"你" Then T2.Text = "好"(用“或”来增加判断条件)

VB中的elseif的用法,哪位高手能举个例子并解释一下,谢谢了!
vbIf 条件1 Then ' 如果条件1成立,执行语句块1 语句块1ElseIf 条件2 Then ' 否则,如果条件2成立,执行语句块2 语句块2ElseIf 条件3 Then ' 以此类推,直到条件3 语句块3Else ' 如果所有条件都不成立,执行Else后的语句块 语句块4End If值得注意的是,使用规则如下...

在vb中,如何对多种条件进行选择?
if (条件1=true) and (条件2=true) and (条件3=true) then '123 --- 1.11 10:06修改 --- 你说的这个问题,可以用数组来作啊。Function check(arr() As Boolean)check = True For i = 1 To UBound(arr)If Not arr(i) Then check = False Exit Function End If Next End Funct...

vb中if嵌套语句
首先,最基础的嵌套形式是单行if-then结构,其书写方式如下:if 条件 then 语句块 end if 其次,如果你需要表达更复杂的条件判断,可以使用多行嵌套,例如:if 条件1 then 语句块1 else if 条件2 then 语句块2 else 语句块3 end if end if 在这一结构中,如果条件1不满足,会检查条件2,如果...

vb 多条件if
for i=1 to 10 s="welcome"+cstr(i)if a=s then b=1 next i or的条件要写全,比如if a="welcome1" or a="welcome2"

相似回答