2楼: Originally posted by smitest at 2017-09-02 00:02:52
dim b,d()  as double,i as long
b=split(num," "
redim d(lbound(b) to ubound(b)) as double
for i=lbound(b) to ubound(b)
d(i)=cdbl(b(i))
next

...

dim b,d()  as double,i as long
b=split(num," ")
redim d(lbound(b) to ubound(b)) as double
for i=lbound(b) to ubound(b)
d(i)=cdbl(b(i))
next

3楼: Originally posted by jjdg at 2017-09-03 11:54:27
1.先将一行string读入一个字符串变量，
2.用字符串函数以空格来拆分，计数一行中变量的个数，
3.用cdbl把拆分得到的string转存入动态数组