Question

VB二维数组文本框输出

产生数组
16 12 12 12 12
14 15 18 11 18
11 17 10 10 19
14 13 11 15 18

然后将这些做数据输出到文本框的程序代码怎么写？？为什么我写出来文本框就变成了右下角那个数字，比如18？？
是二维数组A（4,5）

Answer 1

文本框text1的multiline设置为true
for i=1 to 4
for j=1 to 5
text1 = text1 & a(i,j) & " "
next j
text1 =text1 & chr(13) & chr(10)
next i

追问

可以输出啦~
还有一个问题，就是 输出的数组第一行
Text116 12 12 12 12
14 15 18 11 18
11 17 10 10 19
14 13 11 15 18

怎么把那个text1去掉啊

追答

text1=“” '加一个这个
for i=1 to 4
for j=1 to 5
text1 = text1 & a(i,j) & " "
next j
text1 =text1 & chr(13) & chr(10)
next i

Answer 2

在Text1的属性窗口设置MultiLine属性为True ，容许多行输出
Text1的属性窗口设置ScrollBars 属性为2 ，容许垂直滚动条
Text1.Text = “”
For i = 1 To 4
For j = 1 To 5
Text1.Text = Text1.Text & A(i, j) & " "
Next j
Text1.Text = Text1.Text & vbCrLf
Next i