前面个麻烦了点,不需要execute,这里主要就是Redim
<SCRIPT LANGUAGE="vbScript">
Dim s
ReDim a(-1)
'开始赋值
s = "bubuy"
Redim a(len(s)-1)
for i = 1 to len(s)
a(i-1) = mid(s,i,1)
next
'调试
for i = 0 to Ubound(a)
document.write "a("&i&")="&a(i) & "<BR>"
next
</SCRIPT>
<SCRIPT LANGUAGE="vbScript">
Dim s
ReDim a(-1)
'开始赋值
s = "bubuy"
Redim a(len(s)-1)
for i = 1 to len(s)
execute "a("&i-1&")=mid(s,i,1)"
next
'调试
for i = 0 to Ubound(a)
document.write "a("&i&")="&a(i) & "<BR>"
next
</SCRIPT>