求助，vb中if如何在5个条件中满足任意三个条件，然后then。。。最后5个条件都满足，then。。。如果if不行，其他的可以么 - 编程论坛

#2

wds12018-08-30 15:04

bz=0
if   条件1 then bz=bz+1
if  条件2 then bz=bz+1
if  条件3 then bz=bz+1
if  条件4 then bz=bz+1
if  条件5 then bz=bz+1
if bz=5 then
if bz>=3 then

#3

Artless2018-08-31 02:22

如果5条件则*
如果3条件则*
不是则*

#4

ZHRXJR2018-08-31 18:01

程序代码：

If A = "条件1" And B = "条件2" And C = "条件3" And D = "条件4" And E = "条件5" Then
    MsgBox "满足了五个条件！"
ElseIf A = "条件1" And B = "条件2" And C = "条件3" And D = "条件4" Then
    MsgBox "满足了四个条件！"
ElseIf A = "条件1" And B = "条件2" And C = "条件3" Then
    MsgBox "满足了三个条件！"
Else
    MsgBox "三个条件都满足不了！"
End If

其中A、B、C、D、E是你需要判断的控件、对象、变量等。

#5

shark9972018-09-26 11:19

回复 2楼 wds1

最搞笑的代码

#6

yingshu2018-10-04 11:32

回复 2楼 wds1

dim bz as integer
dim sql as string
bz=0
if   条件1 then bz=bz+1:sql="条件1"
if  条件2 then bz=bz+1：sql=sql+"条件2"
if  条件3 then bz=bz+1：sql=sql+"条件3"
if  条件4 then bz=bz+1：sql=sql+"条件4"
if  条件5 then bz=bz+1：sql=sql+"条件5"

if bz=3 then *
if bz=5 then *

支持楼2，学习ING

#7

xiguadagong2018-10-04 11:34

以下是引用shark997在2018-9-26 11:19:28的发言：

最搞笑的代码

没啥问题吧，最起码保证结果正确。