满意答案
房师傅验房..
2013.03.15
采纳率:57% 等级:12
已帮助:6468人
Public Sub add(a() As Integer, b() As Integer, c() As Integer, n As Integer)
For i = 1 To n
For j = 1 To n
c(i, j) = a(i, j) + b(i, j)
Next j
Next i
End SubPrivate Sub Command1_Click()
Dim n As Integer
Dim i As Integer, j As Integer
n = InputBox("输入方阵的行数", "输入框")
ReDim a(1 To n, 1 To n)
ReDim b(1 To n, 1 To n)
ReDim c(1 To n, 1 To n)
Call readm(a, "输入矩阵a")
Call readm(a, "输入矩阵b")
Print "矩阵a"
Call out(a)
Print "矩阵b"
Call out(b)
Call add(a(), b(), c(), n)
Print "矩阵c"
Call out(c)
End Sub
Public Sub add(a() As Integer, b() As Integer, c() As Integer, n As Integer)
For i = 1 To n
For j = 1 To n
c(i, j) = a(i, j) + b(i, j)
Next j
Next i
End SubPrivate Sub Command1_Click()
Dim n As Integer
Dim i As Integer, j As Integer
n = InputBox("输入方阵的行数", "输入框")
ReDim a(1 To n, 1 To n)
ReDim b(1 To n, 1 To n)
ReDim c(1 To n, 1 To n)
Call readm(a, "输入矩阵a")
Call readm(a, "输入矩阵b")
Print "矩阵a"
Call out(a)
Print "矩阵b"
Call out(b)
Call add(a(), b(), c(), n)
Print "矩阵c"
Call out(c)
End Sub
00分享举报