逐个拆分字符串

代码

 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