NCF参数化建筑论坛

标题: SCRIPT 的語法問題~~ [打印本页]

作者: agpig    时间: 2010-10-4 13:28
标题: SCRIPT 的語法問題~~
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


這是用來計算 陣列 元素數目的
但紅色那里有 語法的錯誤 應該如何改正呢~
作者: panhao1    时间: 2010-10-5 21:20
函数代码块是不能重叠的
作者: 夜神    时间: 2010-10-6 15:58
不能在sub里面定义函数
作者: agpig    时间: 2010-10-21 19:36
哦  謝了~~大大~
作者: taliesin    时间: 2010-10-26 10:08
谢谢楼主分享  好东西大家学习
作者: 最牛的粽子    时间: 2010-12-15 16:19
很赞。。。学习学习
作者: metall    时间: 2012-4-25 18:16
这尼玛学习,为了点亮度




欢迎光临 NCF参数化建筑论坛 (http://ncf-china.com/) Powered by Discuz! X3.2