7,789
社区成员
发帖
与我相关
我的任务
分享怎样将str=acd转换成 x(0)=a,x(1)=c ,x(2)=d
怎样将str=acd转换成 x(0)=a,x(1)=c ,x(2)=d
...全文
请发表友善的回复…
发表回复
Cham 2002-06-19
- 打赏
- 举报
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
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
junwhj 2002-06-19
- 打赏
- 举报
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
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
