第1个回答 推荐于2016-04-18
文本框的MultiLine属性设置为True,程序代码如下:
Private Sub Form_Activate()
Dim a(1 To 5, 1 To 5) As Integer
Dim s As String
Randomize
s = ""
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(10 * Rnd)
s = s & a(i, j) & " "
Next
s = s & vbCrLf '为数据分行
Next
Text1.Text = s
End Sub本回答被提问者采纳