Получить квадратную матрицу

for i=1 to n
for j=1 to m
  A(i,j)=sin(i^2+j^2/ m)
next j
next i

dim B()
redim B(1 to N)
for i=1 to n
  B(i)=0
  for j=1 to m
    if A(i,j) > 0 then B(i)=B(i) +1
  next j
next i

otvet=""
for i=1 to n
  count=0
  for j=1 to m
    if A(i,j) mod 3 = 0 then
      count=count +1
    else
      exit for
    end if
  next j
  if count = j then otvet = otvet & i & " "
next i
msgbox otvet

for i=1 to n
for j=1 to n
  if i=j then
    A(i,j)=i*i+i
  else
    A(i,j)=0
  end if
next j
next i

sub main()
  s=5
  t=9
  msgbox g(1.2, s) + g(t, s) - g(2*s-1, s*t)
end sub
 
function g(a, b)
  g= a^2 +b^2/ a^2+2*a*b+3*(b^2)+4
end function

n = 5
m = 3
 
n1 = 1
For i = 2 To n
  n1 = n1 * i
Next i
 
n2 = 1
For i = m + 1 To n + m
  n2 = n2 * i
Next i
 
MsgBox n1 / n2