Const N = 5
Dim aa(M, N), bb(M, N), cc(M, N)
Sub printit(a()) '打印矩阵
For i = 1 To M
For j = 1 To N
Print Tab(j * 10); a(i, j);
Next j
Print
Next i
End Sub
Sub jzjia(a(), b(), c()) '矩阵相加 c=a+b
For i = 1 To M
For j = 1 To N
c(i, j) = a(i, j) + b(i,
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024