двумерный массив (VBA)

[Мухаммад]

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

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

[ZX Spectrum-128]

2.

option base 1

n=5  
Dim a(n,n) As Integer

For i=1 to n
  For j=1 to n
     a(i,j)=i+j
  Next j
Next i

For i=1 to n
   a(i,i)=1		 
   a(n-i+1,i)=1 
   a(1,i)=1
   a(n,i)=1
   a(i,1)=1
   a(i,n)=1
Next i

For i=1 to n
  For j=1 to n
    Print a(i,j);
  Next j
  Print
Next i
Sleep

[Мухаммад]

спасибо большое))

[Мухаммад]

1 кто сможет решить?

[ZX Spectrum-128]

1

option base 1

n=5
Dim a(n,n)As Integer

For i=1 to n
  For j=1 to n
     a(i,j)=Int(Rnd*10)
  Next j
Next i

For i=1 to n
  For j=1 to n
    Print a(i,j);
  Next j
  Print
Next i

Print
For j=1 to n
  sum=0		
  For i=1 to n
  	 sum=sum+a(i,j)
  	 
    
  Next 
  Print sum;" ";
Next 
Print

Sleep

[Мухаммад]

спасибо тебе большое) об этом сайте я даже не знал) жаль что только не давно нашел тот сайт