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://bbs.ncf-china.com/)