为什么这条 IF-THEN 线在没有 END IF 的情况下工作?

Question

我有一个关于 If 命令的问题。

For x = 2 To 8
If ComboBox1.ListCount < 7 Then ComboBox1.AddItem Cells(x, 13).Value
Next x'

为什么这可以正常工作而没有错误？没有结束如果语句。 我不知道这是否重要，但这段代码在 UserForm_Activate() 过程中。

感谢您的帮助。

Answer 1

如果If中只有一个语句，并且它与If语句在同一行，则不需要End If。

Answer 2

当Then关键字后面的语句位于同一行代码上时，VBA(以及 VB6 和 VB.Net)不需要End If。