VB中的Text问题

来源：百度知道编辑：UC知道时间：2024/06/20 07:32:06

一开始在Text框中输入一串字符，怎么把每个字符放到一个数组里面啊？
如Text1.text="dfwjroepret"使得
a(0)="d"
a(1)="f"

Dim a()
ReDim a(Len(Text1.Text) - 1)
For i = 0 To Len(Text1.Text) - 1
a(i) = Mid(Text1.Text, i + 1, 1)
Next i

dim n
n = len(text1.text)
dim a(n)
for n=1 to len(text1.text)
a(n) = mid$(text1.text,n,1)
next n

for i = 1 to len(text1.text)
a(i) = mid(text1.text,i,1)
next i

大致就这意思了.

Dim a()
ReDim a(Len(Text1.Text) - 1)
for i = 1 to len(text1.text)
a(i) = mid(text1.text,i,1)
next i