Дан двумерный массив размером n*m - VB

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

Дан двумерный массив размером n*m. 1. Заменить элемент кратный трем каждого столбца нулем 2. Вставить после каждого столбца, начиная со второго первый столбец. 3. Удалить из него каждый столбец, содержащий элемент, кратный пяти 4. Поменять местами третий и последний столбцы. Помогите с решением задачи!

Решение задачи: «Дан двумерный массив размером n*m»

textual
                            Листинг программы 
                        
 
                            
                        
Private B() As Integer, A() As Integer, X() As Integer, n As Byte, m As Byte, u As Byte
Private Sub CmdDelete_Click()
Dim k As Byte, i As Byte, p As Byte, r As Byte
k = InputBox("Введите удаляемый столбец", "Удаление")
Form1.Cls
Print: Print: Print "Массив A:"
ReDim X(1 To m * (n - 1))
p = 0
r = 0
For i = 1 To m
    For u = 1 + p To k - 1 + p
      X(u) = B(u + r)
      Print X(u);
      Print vbTab;
    Next u
    For u = k + p To n + p - 1
      X(u) = B(u + 1 + r)
      Print X(u);
      Print vbTab;
    Next u
    p = p + n - 1
    r = r + 1
    Print
Next i
End Sub
Private Sub Form_Load()
Dim j As Byte, i As Byte
    Randomize Timer
    m = InputBox("Введите количество строк в массиве A", "Ввод")
    n = InputBox("Введите количество столбцов в массиве A", "Ввод")
    ReDim A(1 To m, 1 To n) As Integer
    ReDim B(1 To m * n) As Integer
    Print: Print: Print "Массив A:"
    For i = 1 To m
      For j = 1 To n
       A(i, j) = Rnd * 10 - 5
       Print A(i, j);
       Print vbTab;
       u = (i - 1) * n + j
       B(u) = A(i, j)
      Next j
    Print
    Next i
End Sub