文本框的显示问题

[renyucai1963]

Option Explicit

Sub OUTPUT(Nc%, B%())
Dim m$
Dim S$, i%
m = 6
S = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To m
Print Mid(S, B(i), 1);
Next i
Print
End Sub

Sub Combination(N%, m%)
ReDim B%(m)
Dim i%, j%, Nc%
For i = 1 To m: B(i) = i: Next
Nc = 1
OUTPUT Nc, B()
'
Do While B(1) <= N - m
j = m
Do While B(j) = N + j - m: j = j - 1: Loop
B(j) = B(j) + 1
For i = j + 1 To m: B(i) = B(j) + i - j: Next i
Nc = Nc + 1
OUTPUT Nc, B()
Loop
End Sub

Private Sub Form_Click() '问题是单击窗体将内容显示在文本框中
Call Combination(7, 6)
Text1.Text = Combination(7, 6)
End Sub

[神马被哪个妞占用了呢]

该函数没有返回值，怎么赋值给text......

[renyucai1963]

我是想把显示在窗体上的显示在文本框里。如何解决？

[神马被哪个妞占用了呢]

text1的多行显示设置为真
把这句改下：Print Mid(S, B(i), 1);

text1.text=text1.text & Mid(S, B(i), 1) & vbcrlf

[flfq]

Print Mid(S, B(i), 1)

改下

text1.text=text1.text &  Mid(S, B(i), 1)

[booksoon]

显示在窗体的同时,给TEXT赋值