Блок-схема алгоритма для программы - VB

Dim A(1 To 10, 1 To 10) As Integer
Dim B(100, 100) As Integer
Dim S(100, 100) As Integer
Private Sub Command1_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
ff = Val(Text4)
Open File For Input As #1
For i = 1 To 10
For j = 1 To 10
Input #1, A(i, j)
Next j
Next i
Close #1
For i = 1 To n
For j = 1 To m
B(i, j) = A(i, j)
Next j
Next i
MSFlexGrid1.Rows = n + 1
MSFlexGrid1.Cols = m + 1
MSFlexGrid1.Row = 0
For j = 1 To m
MSFlexGrid1.Col = j
MSFlexGrid1.ColWidth(j) = 700
MSFlexGrid1.Text = j
Next j
MSFlexGrid1.Col = 0
MSFlexGrid1.ColWidth(0) = 300
For i = 1 To n
MSFlexGrid1.Row = i
MSFlexGrid1.Text = i
Next i
For i = 1 To n
MSFlexGrid1.Row = i
For j = 1 To m
MSFlexGrid1.Col = j
MSFlexGrid1.Text = B(i, j)
Next j
Next i
End Sub
Private Sub Command2_Click()
n = Val(Text2)
m = Val(Text3)
ff = Val(Text4)
File = Text1
schet = 0
For i = 1 To n
For j = 1 To m
If B(i, j) Mod ff <> 0 Then schet = schet + B(i, j)
Next j
Next i
Label9.Caption = schet
End Sub
Private Sub Command3_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
w = m
For j = 1 To m
h = 0
For i = 1 To n
If A(i, j) = 0 Then h = h + 1
Next i
If h <> 0 Then
w = w - 1
For g = j To m - 1
For i = 1 To n
A(i, g) = A(i, g + 1)
Next i
Next g
For i = 1 To n
A(i, m) = 0
Next i
End If
Next j
t = w
For j = 1 To w
h = 0
For i = 1 To n
If A(i, j) = 0 Then h = h + 1
Next i
If h <> 0 Then
t = t - 1
For g = j To m - 1
For i = 1 To n
A(i, g) = A(i, g + 1)
Next i
Next g
For i = 1 To n
A(i, m) = 0
Next i
End If
Next j
For i = 1 To n
For j = 1 To t
Picture1.Print A(i, j);
Next j
Picture1.Print vbNewLine
Next i
End Sub
Private Sub Command4_Click()
File = Text1
n = Val(Text2)
m = Val(Text3)
l = Val(Text5)
k = Val(Text6)
For i = 1 To n
For j = 1 To m
S(i, j) = B(i, j)
Next j
Next i
Max = S(1, 1)
For i = 1 To n
For j = 1 To m
If S(i, j) > Max Then Max = S(i, j)
Next j
Next i
proizv = Max * S(l, k)
Label8.Caption = proizv
End Sub