vb求两个矩阵的和

来源：百度知道 编辑：UC知道 时间：2024/06/19 00:04:13
两个矩阵的行数和列数都通过键盘输入，矩阵内的数据也是通过键盘输入，用二唯数组表示矩阵

Option Base 1
Private Sub Command1_Click()
Dim sum As Long
x = Val(InputBox("输入行数"))
y = Val(InputBox("输入列数"))
ReDim a(x, y) As Integer, b(x, y) As Integer
For i = 1 To x
For j = 1 To y
a(i, j) = Val(InputBox("输入a矩阵" & i & "行" & j & "列数据"))
b(i, j) = Val(InputBox("输入b矩阵" & i & "行" & j & "列数据"))
sum = sum + a(i, j) + b(i, j)
Next j
Next i
Print sum
End Sub

例如a(5,5)
就表示一个5行5列的
至于怎么显示就看你怎么输出了。