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 s但1 End If。因此，要麼關閉第二If

... 
End If 
End If 
... 

或將其更改爲ElseIf

ElseIf (w And &h2) Then 
temp=1