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

智能标签是另一个软件的一部分。我得到的错误是"意外的下一个"。不应该与下一个结束吗？

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

Answer 1

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

...
End If
End If
...

或将其更改为ElseIf

ElseIf (w And &h2) Then 
temp=1