发信人: colincpq(晴天霹雳)
整理人: winsy(2003-03-07 10:03:32), 站内信件
|
【 在 laozn 的大作中提到：】
:1，如何一次过将一组没有规律的整数定义为数组，例如将
: （7，9，8，45，63，98）－－》A()
: 而不用先 DIM A(5) AS Integer
: 然后 A(0)=7
: A(1)=9
:
:......
dim a() as String
dim str as string
dim intCount as Integer
str="7，9，8，45，63，98"
a() = Split(strLine, ",", -1, vbTextCompare)
intCount = UBound(a)
a() 就是得到的数组
intCount 就是数组的大小
----
#晴天霹雳#
|
|