VB字符串组合

'两个TextBox,一个CommandButton
'设置TextBox2的Multiline=True,ScrollBars=Vertical

Dim k() As String, length As Integer
Private Sub Command1_Click()
ptn = Text1.Text
length = Len(ptn)
ReDim k(0)
combine (ptn)
Text2.Text = Join(k, vbCrLf)
End Sub

Sub combine(ByVal s As String)
If Len(s) = 0 Then
If UBound(k) <> 0 Then k(UBound(k)) = Mid(k(UBound(k) - 1), 1, length - Len(k(UBound(k)))) & k(UBound(k))
ReDim Preserve k(UBound(k) + 1)
Exit Sub
End If
For i = 1 To Len(s)
t = Mid(s, i, 1)
k(UBound(k)) = k(UBound(k)) & t
combine (Replace(s, t, ""))
Next
End Sub

textbox没有分行的功能
需要用到其他的控件
能不能说的具体点
放点代码看下

TEXT没有分行的功能，但是你可以在输出的时候让每种组合用逗号隔开然后到WORD里面用分行替换逗号来实现。或者换一个增强功能的TEXT控件，用ctrl+t调出找到一个TEXT打头的一个，名字忘了，它的用法跟TEXT基本相同，同时能够加入滚动条。

在功能实现方面分为以下几步：
1.统计TEXT1里面有多少个字符，一个一个存到数组里面，数组上限为TEXT1的字符数。
2.在存储字符的时候比较是否跟数组前面部分的数值相同，相同则转到存