0 
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 & vbNewLine & vbCr」を除いてすべて正常に機能しています。ここでは、テキスト ボックス内の 2D 形式で行と列の配列を印刷しようとしていますが、「vbNewLine または vbcr」の両方が発生していません。が機能しておらず、配列が 1 行で印刷されています。

4

1 に答える 1

1

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

于 2012-04-19T13:15:24.720 に答える