帮帮我VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/26 05:43:09
我在TEXT1中输入 一段文字后 然后将这段文字每两个文字中间加一个空格后 显示在TEXT2中

就像TEXT1="ABCDEFGH"
TEXT2 = AB CD EF GH

A = Text1.Text

For i = 1 To Len(A) Step 2

B = Mid(A, i, 2)

C = C & B & " "
Next i

Text2.Text = C
你试试行不行？

测试成功
Dim a As Integer
Dim b As String
Private Sub Command1_Click()
a = Len(Text1)
For i = 1 To a
If i Mod 2 = 0 Then
b = b & " "
Else
b = b & Mid$(Text1.Text, i, 2)
End If
Next i
Text2 = b
End Sub