VB二维数组文本框输出

发布网友发布时间：2023-08-24 23:16

共2个回答

热心网友时间：2024-11-24 07:31

文本框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

热心网友时间：2024-11-24 07:31

在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