窗体文本框输出二维数字

你好饿的

[img][/img]

1. Private Sub CommandButton4_Click()
   
2. Dim ar As Variant, i As Integer, j As Integer
   
3. Dim str As String
   
4. ar = Fsum
   
5. For i = LBound(ar) To UBound(ar)
   
6.   For j = 1 To 3
   
7.     str = str & "  " & ar(i, j)
   
8.   Next j
   
9.   str = str & vbNewLine
   
10. Next i
    
11. Me.TextBox1 = str

复制代码

小凡、、、

改下textbox属性，不过说实话看着挺抽象的

micch

可以直接设置textbox允许换行，人工换行可以用  vbcrlf