Двумерный массив

[Мухаммад]

на языке VBA кто знает,пожалуйста распишите мне 2 задачи) последний семестр надо добить с информатикой)

1))) Вычислить сумму элементов каждого столбца матрицы A(M,N).
и
2))) Образовать матрицу порядка n с единицами на главной и побочной диагоналях и по контуру. Остальные элементы принять равными сумме индексов

[mishammm]

1)

const 
    n=3;
    m=3;

var
   a:array[1..n,1..m] of integer;
   
   i,j:integer;
 
 s:integer;
   begin
   Writeln('vvedi massiv');
   For i:=1 to m do
   begin
   For j:=1 to n do
   Readln(a[i,j]);
   end; 
   
   
   
   Writeln('Vash massiv');
   for i:=1 to m do begin
  for j:=1 to n do
     write(A[i,j],' ');
  writeln;
end;

 s:=0;
For j:=1 to n do
begin
For i:=1 to m do
 s:=s+a[i,j];
write('summa stolbcov = ' , s, ' ');
 end;

end.

P.s. блин, сорри не увидел что на vb ну надеюсь по алгоритму переделаете

[Мухаммад]

спасибо(( но я не волоку в программировании