7、随机产生一个由一位正整数组成的5*5的矩阵输出到窗体上，求各行和。

Dim a(1 To 5, 1 To 5) As Integer
Dim sum As Integer
Dim i As Integer
Dim j As Integer
Dim str As String
For i = 1 To 5
sum=0
str=""
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
sum = sum + a(i,j)
str = str & "," & a(i,j)
Next j
print str & " 本行之和为:"&sum
Next i

对回答有问题，百度消息我。。。