VB简单脚本错误编译循环

Question

我有一个非常简单的脚本但它在编译时给我一个错误：

Sub Unit_Status()

    Dim temp, w, j
    On Error Resume Next

    For j=0 To 5
        temp = 0
        w = SmartTags("DB400")(j)

        If (w And &h10) Then 
            temp=4 '

        Else If (w And &h2) Then 
            temp=1 

        Else                
            temp=0 

        End If

        SmartTags("Unit_Status")(j)  =temp

    Next
End Sub

SmartTags是另一款软件的一部分。我得到的错误是'意外的下一个'。不应该与Next关闭？

谢谢 - 我不熟悉VB，只需将它作为另一个软件的一部分使用。

Answer 1

如上所述，您有2 If s但1 End If。所以要么关闭第二个If

...
End If
End If
...

或将其更改为ElseIf

ElseIf (w And &h2) Then 
temp=1