Question

vb编程计算中 if 语句块的语法问题 运行时提示“endif缺少if语句块”

For j = 5 To a
If Cells(j, 8) >= 0 Then
Cells(j, 9) = Cells(j, 8)
Else
For m = -1 To -j
If Cells(j + m, 8) > 0 Then
b = Cells(j + m, 8)
End If
Exit For

For n = 1 To a - j
If Cells(j + n, 8) > 0 Then
c = Cells(j + n, 8)
End If
Exit For

Cells(j, 9) = (b + c) / 2
End If
Next j

Answer 1

请给你的代码加上注释，保持好正确的缩进，以及：给你的for加上next 想要完美可以在next后面加上是结束 哪一个for。另外，exit for是退出循环的命令，不是确定for循环边界的命令。所以，你的错误在for没有足够的next

Answer 2

你这一段有两个if，却有3个end if，当然就不正常了。if 和end if是配对的，你这个肯定多出一个了。一般自己写的代码是较少会出现这种情况的，估计代码是拷的吧，要拷也不是不可以，但要看明白看懂了再拷。

追问

都是三个。 仔细看一下啦

追答

哦，是三个。那是我看错了。但你这一段的关系也很模糊。建议你一个一个配对好。在百度这里缩进不明显，在IDE中有良好的缩进比较容易发现问题。

是啊，正如楼下所说的，for是和next对应的，不应该是exit for。

Answer 3

截张图看看