Блок-схема по задаче и коду - VB

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

Здравствуйте! Мне попалась вот такая вот задача" Заполнить в памяти ЭВМ матрицу Н вида: 0 1 0 1 1 0 1 0 0 1 0 1 1 0 1 0 Код (благодаря вашему форму) я написал, матрицу он выводит именно такую, но я не могу составить блок схему.. Если кому не трудно, пожалуйста помогите..вчера пол дня сидел и так и не допёр, как составить, а сегодня с утра написал только код. Буду безумно благодарен!

OPTION BASE 1
Private SUB Command1_Click()
DIM m AS INTEGER, i AS INTEGER, j AS INTEGER, H() AS INTEGER
m = InputBox("Введите размерность")
REDIM H(m, m)
FOR i = 1 TO m
FOR j = 1 TO m
H(i, j) = (i + j) AND 1
NEXT
NEXT
FOR i = 1 TO m
FOR j = 1 TO m
PRINT H(i, j);
NEXT
PRINT
NEXT
END SUB

Решение задачи: «Блок-схема по задаче и коду»

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

                            Dim nam(1 To 10) As String
Dim noma(1 To 10) As String
Dim n As Integer
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & CStr(Index)
End Sub
 
Private Sub Command13_Click()
n = n + 1
nam(n) = InputBox("Абонент " & n & ". Введи имя абонента", "Абонент")
noma(n) = InputBox("Абонент " & nam(n) & ". Введи номер телефона", "Телефон")
End Sub
Private Sub Command3_Click()
nom = Text1.Text
i = 1: poisk = 0
Do
If nom = noma(i) Then
poisk = 1
Else
i = i + 1
End If
Loop Until poisk = 1 Or i = n + 1
If i > n Then
Text1.Text = "Нет такого номера"
Else
Text1.Text = "Абонент: " & nam(i)
Beep
End If
End Sub
 
Private Sub Command2_Click()
Text1.Text = ""
'Text1.Locked = True
End Sub
 
Private Sub Form_Load()
For i = 0 To 9
Command1(i).FontSize = 12
Command1(i).FontBold = True
Command1(i).Caption = i
Next
Text1.Text = ""
Text1.Locked = True
nam(1) = "Служба спасения"
noma(1) = "01"
nam(2) = "Милиция"
noma(2) = "02"
nam(3) = "Скорая помощь"
noma(3) = "03"
n = 3
End Sub
                        