Question

VB 每2个数字后面1个空格

对象：1个text1文本 1个Command1按钮
text1内容是
123456789123456789123456789
123456789123456789123456789
123456789123456789123456789
按下Command1按钮后
text1内容为
12 34 56 78 91 23 45 67 89 12 34 56 78 9
12 34 56 78 91 23 45 67 89 12 34 56 78 9
12 34 56 78 91 23 45 67 89 12 34 56 78 9

请问这样代码该怎么些~
分不多，真心学习！

Answer 1

Dim s As String
Dim bz As Integer
bz = 0
For i = 1 To Len(Me.Text1.Text)
If Asc(Mid(Me.Text1.Text, i, 1)) = Asc(vbCrLf) Then
bz = -1: s = s + Mid(Me.Text1.Text, i, 1)
Else
bz = bz + 1: s = s + Mid(Me.Text1.Text, i, 1)
If bz Mod 2 = 0 And bz > 0 Then s = s + " "
End If
Next
Me.Text1.Text = s

Answer 2

FOR I=1 TO LEN STEP 2
OUTPUT MID ,I,2
OUTPUT " "
NEXT

Answer 3

Dim s As String
Dim bz As Integer
bz = 0
For i = 1 To Len(Me.Text1.Text)
If Asc(Mid(Me.Text1.Text, i, 1)) = Asc(vbCrLf) Then
bz = -1: s = s + Mid(Me.Text1.Text
bz = bz + 1: s = s + Mid(Me.Text1.Text,If bz Mod 2 = 0 And bz > 0 Then s = s + " "End If