为什么这条 IF-THEN 行在没有 END IF 的情况下工作？答案

【问题标题】：Why is this IF-THEN line working without an END IF?为什么这条 IF-THEN 行在没有 END IF 的情况下工作？
【发布时间】：2014-03-01 03:50:11
【问题描述】：

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

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

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

感谢您的帮助。

【问题讨论】：

【解决方案1】：

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

【讨论】：

【解决方案2】：

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

【讨论】：