Помогите решить задачу

Вопрос:

Помогите решить задачу. Все элементы, кратные К, матрицы A(n,m) расположить в начале одномерного массива В.

Ответ:

Private Sub Form_Load()
k = 3: n = 10: m = 10
Dim A(10, 10)
REM Максимальное число элементов кратных k (при k=1)
REM равно n*m
Dim B(100)
REM присваиваем значения массиву
REM они будут такими
REM 001 002 003 004 005 006 007 008 009 010
REM 002 003 004 005 006 007 008 009 010 011
REM ...
REM 011 012 013 014 015 016 017 018 019 020
For i = 1 To n
For j = 1 To m
A(i, j) = i + j
Next j
Next i
REM num -- кочичество элементов, кратных k
num = 0
REM пробегаем поочереди все строчки матрицы
For i = 1 To n
For j = 1 To m
REM проверяем делимость на k
If A(i, j) Mod k <> 0 Then GoTo Label
REM если делится -- увеличивем num на единицу
num = num + 1
REM вносим в массив B новый элемент
B(num) = A(i, j)
Label:
Next j
Next i
REM выводим матрицу B в текстбокс Text1
For i = 1 To num
Text1.Text = Text1.Text + Str(B(i)) + ","
Next i
End Sub