针对vb中scriptcontrol 数组调用另类解决思路

对于scriptcontrol的数组问题，网上的文章很少，有的用addobject添加类模块，这个觉得繁琐还是，其他的方法什么窗体的属性函数，我也没弄懂，那个大侠只顾自己，也没详细说，于是自己创立了一个方法如下，其实也很简单：

首先，定义数组 dim arr(3) as integer

arr(0)=0
arr(1)=1
arr(2)=2
arr(3)=3

然后用字符串将其复制进去 dim expStr as string
expstr="dim arr(" & ubound(arr) &")" &vbcrlf 注意后面不要加as.....不然后面出错

for i = 0 to ubound(arr)
expstr=expstr & "arr(" & i ")=" & arr(i) & vbcrlf
next i

这样把数组全部放到字符串变量中的，然后在调用数组的时候就不用说来直接最前面加上这个，然后用

scriptcontrol1.addcode expstr

就可以了，想是想这样的，明天再试一下就知道了，应该没问题