Private Sub Command1_Click()
Dim s() As String
Dim a() As String
s = Split(RichTextBox1.Text, Chr(10))
a = Split(RichTextBox2.Text, Chr(10))

For i = 0 To UBound(s)
RichTextBox3.Text = RichTextBox3.Text + s(i) +"*"+ a(i) + Chr(10)
Next

End Sub


这是让两个文本框里的 每行并列出现在第三个文本框

可是 当两个文本框行数不一样的时候就不行了

初步想法 是想让不等的部分用chr(10)补齐 可是不知道怎么 写

小弟不知道怎么办 高手 指点 详细点 谢谢!

[此贴子已经被作者于2007-3-31 0:13:07编辑过]

代码很简单，我就不解释了，你可以单步调试看一下：

字符串连接时，强烈建议将"+"改为"&"

Private Sub Command1_Click()
Dim s() As String
Dim a() As String
s = Split(Text1.Text, Chr(13))
a = Split(Text2.Text, Chr(13))

Dim minnum As Integer
Dim leftnum As Integer
If UBound(s) >= UBound(a) Then
minnum = UBound(a)
Else
minnum = UBound(s)
End If
leftnum = UBound(s) - UBound(a)

For i = 0 To minnum
Text3.Text = Text3.Text & s(i) & "*" & a(i) & Chr(13)
Next

If leftnum >= 0 Then
For i = minnum + 1 To UBound(s)
Text3.Text = Text3.Text & s(i) & "*" & Chr(13)
Next
Else
For i = minnum + 1 To UBound(a)
Text3.Text = Text3.Text & Chr(13) & "*" & a(i)
Next
End If

End Sub

顶下 上面代码应该OK

split(字符串,分隔符)

Private Sub Command1_Click()

Dim s() As String
Dim a() As String
s = Split(RichTextBox1.Text, Chr(13))
a = Split(RichTextBox2.Text, Chr(13))

Dim minnum As Integer
Dim leftnum As Integer
If UBound(s) >= UBound(a) Then
minnum = UBound(a)
Else
minnum = UBound(s)
End If
leftnum = UBound(s) - UBound(a)

For i = 0 To minnum
RichTextBox3.Text = RichTextBox3.Text & s(i) & "*" & a(i) & Chr(13)
Next

If leftnum >= 0 Then
For i = minnum + 1 To UBound(s)
RichTextBox3.Text = RichTextBox3.Text & s(i) & "*" & Chr(13)
Next
Else
For i = minnum + 1 To UBound(a)
RichTextBox3.Text = RichTextBox3.Text & Chr(13) & "*" & a(i)'这种情况下每个* 后面多了个换行符
Next
End If

End Sub

不知道 怎么回事 百思不得其解 ?

变成了这样子
RichtextBox1*RichTextBox2

*
RichTextBox2
*
RichTextBox2
*
RichTextBox2