Question

哪位用Vb6帮我编一个小程序.

用富文本框，2个“button”，编好后要能独立运行（就是电脑上没有安装VB编译器，也能运行你帮我编的这个程序）。

要求：在富文本框里粘贴进一大段文字（可能是中文，也能是英文，还可能是中英文混排），然后点击按钮" ¦"，就使全篇的每两个字之间都插入一个" ¦"，点击按钮“`”就在全篇每两个字之间都插入一个“`”。

当然再重申一点，调试完后，生成可独立运行的程序，不再依赖于任何VB编译器。

然后呢，把这个作品打包发到我的邮箱yintaoqh@126.com

最后呢，谢谢你的帮助。^-^

另外你再在以下两个地址回复一下，便可以得到总共65分的奖励(当然要求以当前本贴为准)。
http://zhidao.baidu.com/question/48787571.html
http://zhidao.baidu.com/question/48783284.html

Answer 1

你乎旦自己添加一个 什么富文本并茄框 RICHTEXTBOX
然后把名称改成 TEXT1 就可以了

Private Sub Command1_Click()
Dim A() As String
ReDim A(Len(Text1.Text))
For i = 1 To Len(Text1.Text) Step 2
A(i) = Mid(Text1.Text, i, 2)
Next
Text1.Text = ""
For i = 1 To UBound(A)
Text1.Text = Text1.Text & "|" & A(i)
Next
End Sub

Private Sub Command2_Click()
Dim A() As String
ReDim A(Len(Text1.Text))
For i = 1 To Len(Text1.Text) Step 2
A(i) = Mid(Text1.Text, i, 2)
Next
Text1.Text = ""岁蔽扰
For i = 1 To UBound(A)
Text1.Text = Text1.Text & "`" & A(i)
Next
End Sub

Private Sub Command3_Click()
Command3.Caption = Len(Text1.Text)
End Sub

Answer 2

这个其实很简单，就是你悬赏得分太少，嘿嘿