用vb求5行5列的数组每行的和
发布网友
发布时间：2024-10-24 15:00
共1个回答
热心网友
时间：2024-10-27 13:31
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
Print
a(i,
j);
Next
Print
Next
'----------以上为对这个5行5列数组赋值并显示出来----------
Print
Dim
b(4)
As
Integer
For
i
=
0
To
4
For
j
=
0
To
4
b(i)
=
b(i)
+
a(i,
j)
Next
Print
"第"
&
i
+
1
&
"行的和为"
&
b(i)
Next
End
Sub
