怎样将str=acd转换成 x(0)=a,x(1)=c ,x(2)=d

[sailorhdx2001]

怎样将str=acd转换成 x(0)=a,x(1)=c ,x(2)=d

[junwhj]

dim str as string
dim x() as string

str="abcdefg"
redim x(len(str)-1)

for i= to len(str)
x(i-1)=mid(str,i,1)
next i

[Cham]

Dim str As String, i As Integer, ilen As Integer
Dim x() As String * 1
str = Trim(Text1.Text)
ilen = Len(str)
ReDim x(ilen)

For i = 1 To ilen
x(i) = Mid(str, i, 1)
MsgBox CStr(i) + "," + x(i)
Next i