SCRIPT 的語法問題~~

agpig

Sub Main()

Dim NewArray(10)

NewArray(0) = "Apple"

MsgBox arrLength(NewArray)


Function arrLength(vArray)



ItemCount = 0


For ItemIndex = 0 To UBound(vArray)

If Not(vArray(ItemIndex)) = Empty Then

ItemCount = ItemCount + 1

End If

Next

arrLength = ItemCount
End Function

End Sub


這是用來計算 陣列 元素數目的
但紅色那里有 語法的錯誤 應該如何改正呢~

agpig

哦  謝了~~大大~