配列はビジュアルベースのテキストボックス内に2D形式で印刷されません

Question

Private Sub Command4_Click() 
    Dim x As Integer 
    r = InputBox("Enter row size ") 
    c = InputBox("Enter column size ") 
    ReDim arr(r, c) As Integer 
    For i = 0 To r - 1 Step 1 
    For j = 0 To c - 1 Step 1 
    arr(i, j) = InputBox("Enter row : " & (i + 1) & "column size : " & (j + 1)) 
    Next j 
    Next i 
    For i = 0 To r - 1 
    For j = 0 To c - 1 
     Text1.Text = Text1.Text & " " & arr(i, j) 
    Next j 
    Text1.Text = Text1.Text & vbNewLine & vbCr 
Next i 
End Sub 

これは配列の入力を取得するためのコードです。 "Text1.Text = Text1.Text = Text1.Text = Text1.Text & vbNewLine & vbCr"ここでは、テキストボックス内の2次元フォームで配列を印刷しようとしていますが、その "vbNewLine or vbcr"私の配列は1行で印刷されています。

Answer 1

vbNewLine & vbCrの代わりにvbCrLfをお勧めします。また、プロパティエディタでテキストボックスが複数行に設定されていることを確認する必要があります。