Question

vb 多条件的if语句 如何实现如果满足条件1，条件2，条件3，条件4，条件5时。执行A 我用if语句，不能连用an

比如if（（ 条件1 and 条件2） and （条件3 and 条件4 ））and 条件5 then
A
系统显示缺少
如果用嵌套if 。应该怎么用？另外二维数组也显示i找不到，不知道什么原因
附上程序Public Function jinji(xD2() As Double, xr1() As Double, xD1() As Double, xL1ef() As Double, xail() As Double) As Byte()
Dim i As Integer
Dim j As Integer
Dim p As Integer
For j = 0 To 9 ' (省略了step=1)
For i = 0 To 9
If(( xD2(j)=jinjibiao[i][0] and xr1(j)=jinjibiao[i][1]) and ( xD1(j)=jinjibiao[i][2] and xL1ef(j)=jinjibiao[i][3] ))and xail(j)=jinjibiao[i][4] then
Exit For
End If
Next j
p = 1
Else
p = 0
Byte（j）=p
End If
Next i
End Function

Answer 1

1.楼主你看一下哈，你上面有两个end if，可是只有一个if，肯定不匹配，对不对？
2.这个程序里面i的for语句循环是在j 的后面，说明i是嵌套在j循环的里面，可是楼主下面却是先next j，再 next i，这又是矛盾了吧？
3.程序里面的 else 是跟哪个if 匹配的？？？整个程序当中只有一个if，可是你却在else之前就end if了···这也不对吧？
还望楼主自己再修改、调试下哈，我这没有vb，也不能帮你调试~~~程序写出来就是要调试的，呵呵~~希望能帮到楼主~~~

Answer 2

你不打算使用select case语句吗？

有些教科书上的题目简直是吃饱了撑的，这种多分支的就算我能嵌套IF来做到，我也不会这么干，做为写程序的标准，那样的可读性简直是天书级别的在故意刁难人。

追问

我是要求同时满足5个条件，执行A，不是分别满足5个条件中任一个执行不同的语句，用select case干嘛= =

Answer 3

b中二维数组是这样表示的a(i,j) 而不是a[i][j]

Answer 4

vb中二维数组是这样表示的a(i,j) 而不是a[i][j]