Dim str As String = "abcefg"Dim temp As String = ""For Each s As String In str temp &= s & " "Nextmsgbox(temp.SubString(0, temp.Length - 3))
加好友 
发短信
Post By：2014/7/15 16:49:00 [显示全部帖子]
