数组不在Visual Basic中的textBox内以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＆amp; vbNewLine＆amp; vbCr”这里我试图在文本框内以2D形式打印行列中的数组，但它没有发生“vbNewLine或vbcr “两个都没有工作，我的阵列打印在一行。

Answer 1

我建议使用vbCrLf而不是vbNewLine & vbCr，并且您需要确保在属性编辑器中将文本框设置为Multiline。