此函数说类型不匹配 ，为什么， 望高手修改。

Question

function strToArray(str)array_sum=len(str)Dim arraymode()redim arraymode(array_sum)for i=1 to array_sumteststr=Mid(str,i,1)arraymode[i-1]=teststrnextstrToArray=arraymodeend function"abcdefg"如上面字符串的每一个字符单独存在一个数组内.array[0]="a"array[1]="b"如上.

Answer 1

VBScript 数组用 () 指明下标,不是 []

Function strToArray(str)
Dim arr, L, i
L = Len(str)
ReDim arr(L-1)
For i=1 To L
arr(i-1) = Mid(str, i, 1)
Next
strToArray = arr
End Function

Dim a

a = strToArray("abcdefg")

Response.Write a(0)
Response.Write "<br />"
Response.Write a(6)

Answer 2

function strToArray(str)

array_sum=len(str)

Dim arraymode()
redim arraymode(array_sum)

for i=1 to array_sum
teststr=mid(str,i,1)
arraymode(i-1)=teststr
next
strToArray=arraymode
end function

arraymode[i-1]中括号换成圆括号试试