在vb中，如何对多种条件进行选择？

Question

有3个以上的条件，进行交互时，选择13条件或23条件或123的条件
先感谢各位的回答，不过我的选择条件是3个以上的，并且具有不确定性，有可能是30个啊，并且不能用checkbox来控制，呵呵

Answer 1

if (条件1=true) and (条件3=true) then '13

if (条件2=true) and (条件3=true) then '23

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 Function

Private Sub Command1_Click()
Dim arr(1 To 4) As Boolean '你有多少个条件就定义多大的上限，我这里设的是4
arr(1) = 1 = 1 'True
arr(2) = 1 < 2 'True
arr(3) = 1 < 3 'True
arr(4) = 1 = 4 'False

MsgBox (CStr(check(arr))) '调用check(arr)返回false
End Sub

Answer 2

select case true
case 条件1=true and 条件2=true
case 条件2=true and 条件3=true
case 条件1=true and 条件3=true
end select
这样应该可以 没实际测试过

Answer 3

。。。。迷糊~~