用vb求数组每行的和并显示在文本框中怎么做啊？我做了之后只显示一行的和，另外几行显示不了

Question

是个5行5列的数组

Answer 1

'你首先要设置text的属性MultiLine = True，这个属性需要你在编程的时候在控件属性中更改，程序中不允许更改
Private Sub Command1_Click()
Dim a(4, 4) As Integer
'----------以下为对这个5行5列数组赋值并显示出来----------
For i = 0 To 4
For j = 0 To 4
a(i, j) = Int(Rnd * 90) + 10
Text1.Text = Text1.Text & a(i, j) & Space(1)
'Space(1)为用空格区分每个数字，也可以改为","等其它分隔符
Next
Text1.Text = Text1.Text & vbCrLf 'vbCrLf表示换行
Next
'----------以上为对这个5行5列数组赋值并显示出来----------
End Sub来自：求助得到的回答

Answer 2

open "c:\1.txt" for input as #1
do while not eof(1)
line input #1,a
loop
close #1
text1.text=a