有关Automation & ActiveX script 的很棘手的问题

Question

上面vbscript代码粘贴时掉了换行符,更正如下:下面是我VBScript的测试代码:Dim a
ReDim a(100)
Dim d
ReDim d(100)
d(1)="h"
a=GetArray()    //vbscript run OK!
b=Isarray(a)
msgbox b        //b return is true说明确实返回数组.
c=vartype(a)     
msgbox c        //return c=9200 (vbArray 是 8192 ,string 是 8)正确.说明返回为
                 //string数组
d=a             //这么赋值也是可以的.
i=lbound(a)     //i=0
msgbox i
j=ubound(a)
msgbox j        //j=99
 
//但我要是想取数组中的元素就不行,比如f=a(i),系统就会说"类型不匹配".
//这是怎么回事,我百思不得其解.哪位可以回答我的问题?
f=a(i)         //这样是不行的.
Msgbox  a(0)    //这也不行
msgbox CStr(a(0))   //这更不行,也就是说无法引用数组下

Answer 1

这儿的"我要回复"form有Bug硬是没让我把最后那个"标"(数组下标)字敲上去,我居然把它敲在了form滚动条外面,结果还是没发出"镖".

Answer 2

1 ActiveX Scripting接口在运行脚本的时候不是都要parse的吗？
2 关于数组传递的问题，有一个叫做“一致性数组的概念”，你可以在数组的元素都是double的情况下，定义一个运行时刻确定维数的一维数组。相关的资料在《inside com+ base services》书中可以找到。多维数组的情况好象也有论及。
我不太熟悉VB，希望能有帮助

Answer 3

这个问题现在我已放弃去寻找解决方法了(有点浪费时间了),问了几个codeguyu上的老外专家,也无回音.
inside com+我是看过了.我的问题已写出,用vb调用com我是毫无问题的,可问题出在vbscript语言上.但还是谢谢Kadh.