SCRIPT 的語法問題~~

agpig · 发表于 2010-10-4 13:28:56

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

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

metall · 发表于 2012-4-25 18:16:27

这尼玛学习，为了点亮度

最牛的粽子 · 发表于 2010-12-15 16:19:44

很赞。。。学习学习

taliesin · 发表于 2010-10-26 10:08:10

谢谢楼主分享好东西大家学习

agpig · 发表于 2010-10-21 19:36:02

哦謝了~~大大~

夜神 · 发表于 2010-10-6 15:58:03

不能在sub里面定义函数

panhao1 · 发表于 2010-10-5 21:20:52

函数代码块是不能重叠的

帐号		自动登录	找回密码
密码			注册

[在线求助] SCRIPT 的語法問題~~