Question

vb如何将“Print”的内容改到文本框text1中显示

Private Sub Command1_Click()
Dim A1 As String, A2 As String
Dim A1l As Integer, A2l As Integer
Dim I As Integer, J As Integer, K As Integer, L As Integer
Dim B() As String, Bl As Integer
Dim C() As String, Cl As Integer
A1 = InputBox("第一组数", "输入", "12345")
A2 = InputBox("第二组数", "输入", "06789")
A1l = Len(A1)
A2l = Len(A2)
I = A1l * (A1l - 1) / 2
ReDim B(I)
I = I * A2l
ReDim C(I)
For I = 1 To A1l - 1
For J = I + 1 To A1l
K = K + 1
B(K) = Mid(A1, I, 1) & Mid(A1, J, 1)
Next
Next
For I = 1 To A2l
For J = 1 To K
L = L + 1
C(L) = Mid(A2, I, 1) & B(J)
Print C(L); Space(1);
If L Mod 10 = 0 Then Print
Next
Next
Print
Print "共有以上"; L; "组。"

End Sub

Answer 1

Private Sub Command1_Click()
    Dim A1 As String, A2 As String
    Dim A1l As Integer, A2l As Integer
    Dim I As Integer, J As Integer, K As Integer, L As Integer
    Dim B() As String, Bl As Integer
    Dim C() As String, Cl As Integer
    A1 = InputBox("第一组数", "输入", "12345")
    A2 = InputBox("第二组数", "输入", "06789")
    A1l = Len(A1)
    A2l = Len(A2)
    I = A1l * (A1l - 1) / 2
    ReDim B(I)
    I = I * A2l
    ReDim C(I)
    For I = 1 To A1l - 1
        For J = I + 1 To A1l
            K = K + 1
            B(K) = Mid(A1, I, 1) & Mid(A1, J, 1)
        Next
    Next
    For I = 1 To A2l
        For J = 1 To K
            L = L + 1
            C(L) = Mid(A2, I, 1) & B(J)
            Text1.Text = Text1.Text & C(L) & " "   '!!!!
            If L Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf '!!!!
        Next
    Next
    Text1.Text = Text1.Text & vbCrLf   '!!!!
    Text1.Text = Text1.Text & "共有以上" & L & "组。"  '!!!!
End Sub

标有!!!!的行就是修改过的

注：Text1的MulitLine属性必须设为True才有换行效果

Answer 2

text1= "共有以上" & L & "组。"

追问

试过了不行，text1要显示“print所显示全部内容”才行啊

追答

'先要在属性窗口里把text1的multiline属性设为true,朋友。这很重要。呵呵
Private Sub Command1_Click()
Text1 = ""
Dim A1 As String, A2 As String
Dim A1l As Integer, A2l As Integer
Dim I As Integer, J As Integer, K As Integer, L As Integer
Dim B() As String, Bl As Integer
Dim C() As String, Cl As Integer
A1 = InputBox("第一组数", "输入", "12345")
A2 = InputBox("第二组数", "输入", "06789")
A1l = Len(A1)
A2l = Len(A2)
I = A1l * (A1l - 1) / 2
ReDim B(I)
I = I * A2l
ReDim C(I)
For I = 1 To A1l - 1
For J = I + 1 To A1l
K = K + 1
B(K) = Mid(A1, I, 1) & Mid(A1, J, 1)
Next
Next
For I = 1 To A2l
For J = 1 To K
L = L + 1
C(L) = Mid(A2, I, 1) & B(J)
' Print C(L); Space(1);
Text1 = Text1 & C(L) & " "
If L Mod 10 = 0 Then Text1 = Text1 + vbCrLf
Next
Next
Print
'Print "共有以上"; L; "组。"
Text1 = Text1 + vbCrLf + "共有以上" + Str(L) + "组。"
End Sub