编程 ，矩阵的相加c语言,VB中如何编程序以实现两个矩阵相加？ 谢谢了。。。...

满意答案

房师傅验房..

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

Print "矩阵b"

Call out(b)

Print

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

Print "矩阵b"

Call out(b)

Print

Call add(a(), b(), c(), n)

Print "矩阵c"

Call out(c)

End Sub

00分享举报