vb 为什么说我的next没有for ？？？？？代码如下；

Private Sub Command2_Click()

Dim c(), h(), s(), p(), v()
For X = 1 To 5
    If d01 / Ab < Sqr(k * p(X) / v(X)) And d01 / Ab > Sqr(k * p(X + 1) / v(X + 1)) Then
hup = h(X)
sup = s(X)
hlw = h(X + 1)
slw = s(X + 1)
h2c = (hup + hlw) / 2
s2c = (sup + slw) / 2
'call h2c s2c      p2c v2c
     Else
  Next X
    End If
End Sub

追问：满足条件就退出if ，不满足就next恩，是啊。。。。应该怎么弄？？？看不大懂啊，它是满足条件跳出循环，不满足就循环吗？？呵呵，谢谢！！！

答案：把IF语句完整的放到循环内

其他：end if放到next x的前面去 代码混乱，不知所云。 Private Sub Command2_Click()

Dim c(), h(), s(), p(), v()
For X = 1 To 5
    If d01 / Ab < Sqr(k * p(X) / v(X)) And d01 / Ab > Sqr(k * p(X + 1) / v(X + 1)) Then
hup = h(X)
sup = s(X)
hlw = h(X + 1)
slw = s(X + 1)
h2c = (hup + hlw) / 2
s2c = (sup + slw) / 2
'call h2c s2c      p2c v2c
     End If
  Next X
    End Sub 应该是if 条件满足就退出for循环,是不?
Dim c(), h(), s(), p(), v()
For X = 1 To 5
    If d01 / Ab < Sqr(k * p(X) / v(X)) And d01 / Ab > Sqr(k * p(X + 1) / v(X + 1)) Then
hup = h(X)
sup = s(X)
hlw = h(X + 1)
slw = s(X + 1)
h2c = (hup + hlw) / 2
s2c = (sup + slw) / 2
'call h2c s2c      p2c v2c
exit for
    End If
  Next X
End Sub 

上一个：请问高手，VB编程中怎么实现对图行框所画的图进行自动标注？？
下一个：VB编程题