Помогите составить блок схему по коду программы в Visual Basic

[email protected] в категроии Информатика, вопрос открыт 26.12.2017 в 22:57

Sub ut()
Dim A() As Integer, B() As Integer, n As Integer, m As Integer
Dim i As Integer, j As Integer


m = InputBox
n = InputBox
ActiveSheet.Cells.Clear
ReDim A(m, n)
ReDim B(n)
Randomize

For i = 1 To m
For j = 1 To n
A(i, j) = Rnd * 100 - 50
Next j
Next i

For j = 1 To n
For i = 1 To m
B(n) = B(n) + A(i, j)
Cells(i, j) = A(i, j)
Next i
Cells(j, i) = B(n)
Next j

For i = 1 To m
For j = 1 To n
Cells(i, j) = A(i, j)
Next j
Next i
End Sub