Даны матрицы:
A= 4,1 2,3 -6,8 9,4
7,1 2,4 5,9 4,3
-2,1 7,3 9,3 5,8
B= 4,2 7,4
9,3 2,4
15,7 12,3
14,7 19,3
Найти суммы элементов по столбцам (вывести на List1.Box). Использовать процедуру Sub.
Я пробую решить, но ответ не выводиться. Наверно, неправильно делаю. Подскажите ПОЖАЛУЙСТА, как её решить.
Dim c(1 To 6, 1 To 6) As Single
Sub sum(k, L, n, m)
For j = 1 To m
sumj = 0
For i = 1 To n
c(i, j) = Cells(i + k, j + L)
sumj = sumj + c(i, j)
Next j
Next i
End Sub
Private Sub CommandButton1_Click()
Dim c(1 To 6, 1 To 6) As Single
Dim b(1 To 6, 1 To 6) As Single
Dim i, j, k, L, m, n As Byte
ListBox1.Clear
For i = 1 To 3
For j = 1 To 4
c(i, j) = Cells(i + 1, j)
Next j
Next i
n = 3
m = 4
k = 1
L = 0
sumjA = sum(k, L, n, m)
k = 4
L = 2
sumjВ = sum(k, L, 4, 2)
sumj = sumjA + sumBj
ListBox1.AddItem (Format(sumjA, "0.00"))
End Sub