Матрицы

[KuIIeR]

Получить матрицу B( M,N) из матрицы A( M,N) путем перестановки столбцов - первого с последним второго с предпоследним и т.д.
Имеется решение в паскале, нужно переделать в Visual Basic:

Const
m=4;
n=4;
var
A:array[1..M,1..N] of integer;
B:Array[1..N] of Integer;
i,j:integer;
begin
for j:=1 to m do
begin
for i:=1 to n do
begin
a[i,j]:=random(17);
end;
end;
For j:=1 To (M div 2) Do
Begin
For i:=1 To N Do
Begin
B[J]:=A[I,J];
A[I,J]:=A[M-I+1,J];
A[I,J]:=B[J];
End;
End;
for j:=1 to m do
begin
for i:=1 to n do
write(a[m-i+1,j]:4);
writeln;
end;
end.