我必须忽略一些非常明显的东西。以下代码在Next行上失败,并显示错误消息“Expected end of statement”:
Option Explicit
GetB
Sub GetB()
Dim i
For i = 1 to 2
Msgbox i
Next i
End Sub
答案 0 :(得分:2)
找到它。在Next语句中重复循环变量(“i”),这在所有其他类似BASIC(B * SIC?)语言中是合法的和可选的,在VBS中是非法的。
代码应为:
Option Explicit
GetB
Sub GetB()
Dim i
For i = 1 to 2
Msgbox i
Next
End Sub