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

显示全部楼层 · 2010-6-21 14:32:20

是个5行5列的数组

千问 · 2010-6-21 14:32:20

'你首先要设置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)为用空格区分每个数字，也可以改为","等其它分隔符

千问 · 2010-6-21 14:32:20

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