输出a、b
瞎折腾的

Dim a As Long, b As Long
a = 11
b = 15
If a > b Then x = a + b
Debug.Print a, b

呵呵，用VB重写了一遍，感觉有点不一样。
问一下，楼主的代码可以运行的吗？QB的If不用加End If的吗？

呵呵，我对QB不懂的。

[quote]Dim a As Long, b As Long
a = 11
b = 15
If a > b Then x = a + b
Debug.Print a, b

呵呵，用VB重写了一遍，感觉有点不一样。
问一下，楼主的代码可以运行的吗？QB的If不用加End If的吗？

呵呵，我对QB不懂的。[/quote]
我在想
是不是相当于空if了一下