Составьете пожалуйста блок схему к задаче: Дан двумерный массив. Определить: а) среднее арифметическое элемент - VBA

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

Дан двумерный массив. Определить: а) среднее арифметическое элементов второго столбца б) Среднее арифметическое элементов k-ой строки массива

Sub abc2()
Dim A(20, 20) As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
Dim n As Integer
Dim s1, s2 As Double
k = InputBox("Введите K")
n = InputBox("Введите количество строк матрицы >=K")
m = InputBox("Введите количество столбцов матрицы >=2")
For i = 1 To n
For j = 1 To m
A(i, j) = InputBox("Ввод элемента " & "(" & i & "," & j & ")")
Cells(i, j) = A(i, j)
Next j
Next i
s1 = 0
j = 1
Do While j <= m
s1 = s1 + A(k, j)
j = j + 1
Loop
s1 = s1 / m
s2 = 0
i = 1
Do While i <= n
s2 = s2 + A(i, 2)
i = i + 1
Loop
s2 = s2 / n
Cells(n + 2, 1) = "Среднее второго столбца = " & s2
Cells(n + 3, 1) = "Средннее " & k & " строки = " & s1
End Sub

Решение задачи: «Составьете пожалуйста блок схему к задаче: Дан двумерный массив. Определить: а) среднее арифметическое элемент»

textual
                            Листинг программы 
                        

                            Option Explicit
Sub abc2()
    Dim A(20, 20) As Integer
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim m As Integer
    Dim n As Integer
    Dim s1 As Double
    Dim s2 As Double
    
    Range("A1:F20").Clear
    
    k = InputBox("Введите K")
    n = InputBox("Введите количество строк матрицы >= K")
    m = InputBox("ведите количество столбцов матрицы >= 2")
    
    For i = 1 To n
        For j = 1 To m
            A(i, j) = InputBox("Ввод элемента " & "(" & i & "," & j & ")")
            Cells(i, j) = A(i, j)
        Next j
    Next i
    
    For i = 1 To n
        s1 = s1 + A(i, 2)
    Next
    
    For j = 1 To m
        s2 = s2 + A(k, j)
    Next
    
    Cells(n + 2, 1) = "Среднее второго столбца = " & s1 / n
    Cells(n + 3, 1) = "Среднее " & k & " строки = " & s2 / m
End Sub
                        