vb 怎么讲字符串转化为字符数组

直接将text中的每个字符循环取出

Dim mystr() As String
Dim i as integer
Redim mystr(len(TEXT1.TEXT))

for i=1 to len(TEXT1.TEXT)
mystr(i)=mid(TEXT1.TEXT,i,1)
next

//已知 text.text = "HELLO"
Dim s = text.text
s = "HELLO"
Dim arr() As Char
arr = s.ToCharArray()
这样就可以把“hello”存入数组“arr”中

Dim mytext AS String
Dim str(1) As String
mytext = text1.text
Redim str(len(text1.text))
str = split(mytext, "")

l=len(text1.text)
Dim a()As String
for i=0 to l-1
a(i)=mid(text1.text,i,1)
next

Dim hArray() as string

hArray=Split(Text1.text ,vbnullstring)