小问题，怎么样将字符串分成单个字母存入数组？

[NetBoy]

Dim str,arr(3)
str='abc'

arr(0)值为a
arr(1)值为b
arr(2)值为c

[若白师妹]

for i=0 to len(str)-1
arr(i)=mid(str,i+1,1)
next
for j=0 to len(str)-1
response.write arr(j)
next

[NewBody]

这样的数据没必要放到数组中,看我的.
str="abcdefgh"

取出第n个字符(VbScript)
reaponse.write(mid(str,n,1))

[NetBoy]

谢谢两位，又学了一招