怎样把某段字符串中的每一个字符存入某个数组中？

来源：百度知道 编辑：UC知道 时间：2024/06/30 19:17:27
比如某段字符串"f823r"，我想把此字符串分解为f 8 2 3 r并存入数组a()中。请问如何编写？

Dim b As String
b = "f823r"

ReDim a(1 To Len(b)) As String

Dim i As Integer

For i = 1 to Len(b)
a(i) = Mid$(b, i, 1)
Next i

程序代码是这样的,我已经验证OK!!!

Private Sub Command1_Click()
Dim arr(1 To 20) As String
Dim str As String
Dim i As Integer
str = "f823r"
For i = 1 To Len(str)
arr(i) = Mid(str, i, 1)
Next
For i = LBound(arr) To UBound(arr)
Print "第 "& i & "个元素:" &arr(i)
Next
End Sub

我也是VB爱好者,以后共同学习!!!