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」這裏我想在文本框中以二維形式在行列中打印數組,但它沒有發生「vbNewLine或vbcr」兩者不工作,我的數組打印在一行中。不在Visual Basic中的文本框內以2D格式打印的數組
'Text1'是'TextBox',還是'RichTextBox',如果它是'TextBox',那麼將'Multiline'屬性更改爲True。 – user959631 2012-04-19 13:17:45
感謝問題解決了... – rick 2012-04-19 13:24:19