主题：请教甜大师

大师：请教如何将“大师您好！”，动态变成“大  师  您  好！” ？

Dim str As String = "abcefg"
Dim temp As String = ""
For Each s As String In str
    temp &= s & "   "
Next
msgbox(temp.SubString(0, temp.Length - 3))

供参考：

 

'Insert,按指定间隔插入指定长度的字符串:
Dim str As String = "好人32326777e288啦828a88bc6d78901234567890"
InputValue(str,"","请输入原字符串")
Dim s As String
InputValue(s,"","请输入插入字符串")
Dim Int As Integer = 1
InputValue(Int,"","请输入插入间隔长度")
If Int = 0 Then
    Return "除数不能为零"
End If
If str.Length Mod Int = 0 Then
    For i As Integer = Int To (str.Length \ Int) * (s.Length + Int) - s.Length - 1 Step s.Length + Int
        str = str.Insert(i,s)
    Next
Else
    For i As Integer = Int To (str.Length \ Int) * (s.Length + Int) - s.Length Step s.Length + Int
        str = str.Insert(i,s)
    Next
End If
str = str.Replace("空"," ")
Output.Show(str)

谢谢！