逐个拆分字符串

代码

Dim strValue As String = "0123" For i As Integer = 0 To strValue.Length - 1 Dim strV As String = strValue.Substring(i, 1) 'Public Function Substring(ByVal start_Index As Integer, ByVal sub_length As Integer) As String '参数说明：start_Index 拆分的起始位置 sub_length 拆分的长度 如果是逐个拆分，则设置为1 Next

输出结果为：0 1 2 3