Question

VB怎样每隔两个字母就插入一个空格？

假设 text1.text = "abcdefgh"
如何每隔两个字母就插入一个空格？ 使其输出 "ab cd ef gh"

Answer 1

Private Sub Command1_Click()
Text1.Text = "abcdefghwweewwww"
a = Text1
For i = 1 To Len(a) Step 2
b = b & Mid(a, i, 2) & " "
Next
Text1 = b
End Sub

Answer 2

Private Sub Command1_Click()
Text1.Text = "abcdefgh"
Dim i As Integer, temp As String
For i = 1 To Len(Text1) Step 2
temp = temp & Mid(Text1, i, 2) & " "
Next
Text1 = Trim(temp)

End Sub