Question

VB字符串和字符数组的赋值问题

dim str as string
dim strs() as string
str="abcd"
'=================
'如故让字符数组的每个元素得到字符串的每个字符
比如
strs(0)=a
strs(1)=b
strs(2)=c
strs(3)=d
谢谢各位帮我

Answer 1

Dim i As Long
Dim lngStr As Long
lngStr = Len(str)
ReDim Strs(lngStr)
For i = 0 To lngStr - 1
Strs(i) = Mid(str, i + 1, 1)
Next