Образовать векторы, элементы которых есть сумма элементов новой матрицы по строкам и по столбцам - VB

Формулировка задачи:

Объединить две матрицы А и В в одну, при этом А(N, L), В(К,L) N=4, K=3, L=7. Образовать векторы, элементы которых есть сумма элементов новой матрицы по строкам и по столбцам.

Решение задачи: «Образовать векторы, элементы которых есть сумма элементов новой матрицы по строкам и по столбцам»

textual
                            Листинг программы 
                        
 
                            
                        
Private Sub Command1_Click()
Dim a() As Double
Dim b() As Double
Dim c() As Double
Dim s_1() As Double
Dim s_2() As Double
Dim n As Integer
Dim k As Integer
Dim l As Integer
Dim i As Double
Dim j As Double
Dim sum_stol As Integer
Dim sum_str As Integer
Cls
n = 4 ' Г—ГЁГ±Г«Г® Г±ГІГ°Г®ГЄ
k = 3 ' Г—ГЁГ±Г«Г® Г±ГІГ®Г«ГЎГ¶Г®Гў
l = 7
ReDim a(1 To n, 1 To l)
ReDim b(1 To k, 1 To l)
For i = 1 To n
            For j = 1 To l
                a(i, j) = Int(Rnd * 100 - 18)
                Print a(i, j); vbTab;
            Next j
            Print
Next i
Print
For i = 1 To k
            For j = 1 To l
                b(i, j) = Int(Rnd * 100 - 18)
                Print b(i, j); vbTab;
            Next j
            Print
Next i
Print
ReDim c(1 To n + k, 1 To l)
For i = 1 To n + k
            For j = 1 To l
                    If i <= n Then
                    c(i, j) = a(i, j)
                    Else
                    c(i, j) = b(i - n, j)
                    End If
                Print c(i, j); vbTab;
            Next j
            Print
Next i
Print "Г‘ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г*Г®ГўГ®Г© Г¬Г*ГІГ°ГЁГ¶Г» ГЇГ® Г±ГІГ°Г®ГЄГ*Г¬ - "
ReDim s_1(1 To n + k)
For i = 1 To n + k
            sum_str = 0
            For j = 1 To l
                sum_str = sum_str + c(i, j)
            Next j
                s_1(i) = sum_str
            Print s_1(i);
Next i
Print
Print "Г‘ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г*Г®ГўГ®Г© Г¬Г*ГІГ°ГЁГ¶Г» ГЇГ® Г±ГІГ®Г«ГЎГ¶Г*Г¬ - "
ReDim s_2(1 To l)
For i = 1 To l
            sum_stol = 0
            For j = 1 To n + k
                sum_stol = sum_stol + c(j, i)
            Next j
                s_2(i) = sum_stol
            Print s_2(i);
Next i