针对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

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