📅  最后修改于: 2022-03-11 15:00:14.258000             🧑  作者: Mango
代码示例1
Dim buff() As String
ReDim buff(Len(my_string) - 1)
For i = 1 To Len(my_string)
buff(i - 1) = Mid$(my_string, i, 1)
Next