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

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