UC知道vb求两个矩阵的乘积
来源：百度知道 编辑：UC知道 时间：2024/05/11 04:31:44
vb求两个矩阵的乘积这个代码怎么写,有两个按纽,一个是重置,另一个是计算
我自己做了,能不能帮我看看下面这哪里错了:
Dim a(3, 2) As Integer, b(2, 4) As Integer
Private Sub Command1_Click()
For n = 1 To 3
For m = 1 To 2
For k = 1 To 4
x = Int(Rnd * 100): a(n, m) = Val(x)
x = Int(Rnd * 100): b(m, k) = Val(x)
Next
Next
Next
Picture1.Cls: Picture2.Cls: Picture3.Cls
For n = 1 To 3
For m = 1 To 2
For k = 1 To 4
Picture1.Print Format(a(n, m), "@@@@");
Picture2.Print Format(b(m, k), "@@@@");
Next
Picture1.Print: Picture2.Print
Next
Next
End Sub
Private Sub Command2_Click()
Dim c(3, 4) As Integer
For n = 1 To 3
For m = 1 To 2
For k = 1 To 4
c(n, k) = c(n, k) + a(n, m) * b(m, k)
Next
Next
Next
Picture3.Cls
Picture3.CurrentY = 80
For n = 1 To 3
For m = 1 To 2
For k
我自己做了,能不能帮我看看下面这哪里错了:
Dim a(3, 2) As Integer, b(2, 4) As Integer
Private Sub Command1_Click()
For n = 1 To 3
For m = 1 To 2
For k = 1 To 4
x = Int(Rnd * 100): a(n, m) = Val(x)
x = Int(Rnd * 100): b(m, k) = Val(x)
Next
Next
Next
Picture1.Cls: Picture2.Cls: Picture3.Cls
For n = 1 To 3
For m = 1 To 2
For k = 1 To 4
Picture1.Print Format(a(n, m), "@@@@");
Picture2.Print Format(b(m, k), "@@@@");
Next
Picture1.Print: Picture2.Print
Next
Next
End Sub
Private Sub Command2_Click()
Dim c(3, 4) As Integer
For n = 1 To 3
For m = 1 To 2
For k = 1 To 4
c(n, k) = c(n, k) + a(n, m) * b(m, k)
Next
Next
Next
Picture3.Cls
Picture3.CurrentY = 80
For n = 1 To 3
For m = 1 To 2
For k
Public Sub MatrixMultiply(byref m() As Single, byref n() As Single,byref ReturnValue() As Single)
Dim i As Long, j As Long, k As Long, row As Long, column As Long, max As Long
row = UBound(m, 1)
column = UBound(n, 2)
max = UBound(m, 2)
ReDim ReturnValue(1 To row, 1 To column)
For i = 1 To row
For j = 1 To column
For k = 1 To max
ReturnValue(i, j) = ReturnValue(i, j) + m(i, k) * n(k, j)
Next
Next
Next
End Sub