vb 如何在每个字符中间加空格

看看我这个行不行？
Private Sub Command1_Click()
'有几万个字，最好这样做
Dim s As String
Dim x As String
Dim i, ask As Integer
Open "d:\1txt" For Input As #1 '转换前的源文件，改成你自己文件的路径
Open "d:\2txt" For Output As #2 '转换后保存在2txt
While Not EOF(1)
Line Input #1, s '按行读取源文件
Print s
's=replace(s,"，","")这句可选，如果你的文件没有任何杂项(标点，空格等)，这句可省略，如果有杂项，要用replace替换他们再做其他 *** 作
s = Trim(s) '去掉两端的空格
For i = 1 To Len(s)
x = x & " " & Mid(s, i, 1) '挨个截取字符，并在其前面添加空格
Next
Wend
Print #2, x '写入到2txt
Close #2
Close #1
ask = MsgBox("转换完成,现在打开吗", vbInformation + vbYesNo, "完成") '点击"是"，打开文件
If ask = vbYes Then Shell "notepadexe d:\2txt", vbNormalFocus
End Sub
最终文件是以单行显示的，若想要多行显示，请用下面的代码
Private Sub Command1_Click()
'有几万个字，最好这样做
Dim s As String
Dim x As String
Dim i, ask As Integer
Open "d:\1txt" For Input As #1 '转换前的源文件，改成你自己文件的路径
Open "d:\2txt" For Output As #2 '转换后保存在2txt
While Not EOF(1)
x=""
Line Input #1, s '按行读取源文件
Print s
's=replace(s,"，","")这句可选，如果你的文件没有任何杂项(标点，空格等)，这句可省略，如果有杂项，要用replace替换他们再做其他 *** 作
s = Trim(s) '去掉两端的空格
For i = 1 To Len(s)
x = x & " " & Mid(s, i, 1) '挨个截取字符，并在其前面添加空格
Next
Print #2, x '写入到2txt
Wend
Close #2
Close #1
ask = MsgBox("转换完成,现在打开吗", vbInformation + vbYesNo, "完成") '点击"是"，打开文件
If ask = vbYes Then Shell "notepadexe d:\2txt", vbNormalFocus
End Sub

'把文本文件“c:\aaatxt”中的字符“[”全部替换成tab空格的代码，请参考。
Private Sub Command1_Click()
Txt = "c:\aaatxt" '文本路径
Open Txt For Input As #1
t = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
t = Replace(t, "[", Space(1))
Open Txt For Output As #1
Print #1, t
Close #1
MsgBox "修改成功"
End Sub
'

textboxtext = "12345" & " " & "67890"
或者
textboxtext = "12345" & space(1) & "67890"

Private Sub Command1_Click()
Dim a, b As Integer
a = Text1
b = Text2
If a > b Then
Label1Caption = a & chr(32) & b
Else
Label1Caption = b & chr(32) & a
End If
End Sub
如果认为还是不明显多加几个如b & chr(32) & chr(32) & chr(32) &a

在字符串内循环
用Mid函数把输入的字符串分解成单个字符
利用Asc函数获得当前字符的ASCII码
根据ASCII码判断当前字符是“空格,大写字母,小写字母,以及标点符号”其中的一种
把判断值递增到统计变量

---