Простая задача в бейсик есть заготовка надо довести до ума - VBA

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

само задание в фото есть код преподу не нравится следующее: 1.сделать каким угодно матрицу (квадратную обязательно, в коде она максимально 10х10) 2.алгоритм заполнения одномерного массива

                    Листинг программы
                
 
                        
                          
                    
CLS
 
RANDOMIZE TIMER
 
DIM  n AS INTEGER
 
INPUT "Vvedite kol-vo strok do 10: "; n
REDIM mas(1 TO 10) AS LONG
 
REDIM arr(1 TO n, 1 TO n) AS INTEGER
 
FOR i = 1 TO n
  FOR j = 1 TO n
    arr(i, j) = RND * 11 - 5
  NEXT j
NEXT i
 
sump = 0
sumot = 0
FOR i = 1 TO n
  FOR j = 1 TO n
    IF arr(i, j) > 0 THEN
      sump = sump + arr(i, j)
    ELSE
      sumot = sumot + arr(i, j)
    END IF
  NEXT j
NEXT i
 
FOR i = 1 TO n
  FOR j = 1 TO n
    PRINT "["; arr(i, j); "]";
  NEXT j
  PRINT
NEXT i
mas(1) = sump/sumot
    PRINT "Massiv B =";"{ "; mas(1); "}";
 
END

Решение задачи: «Простая задача в бейсик есть заготовка надо довести до ума»

textual
                            Листинг программы 
                        
 
                        
                          
                    
CLS
RANDOMIZE TIMER
 
DIM arr(1 TO 10, 1 TO 10) AS LONG
 
FOR i = 1 TO 10
FOR j = 1 TO 10
   arr(i, j) = 11 * RND - 5
   PRINT arr(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO 10
FOR j = 1 TO 10
   IF arr(i, j) > 0 THEN
      sumP = sumP + arr(i, j)
   ELSEIF arr(i, j) < 0 THEN
      sumOT = sumOT + arr(i, j)
   END IF
NEXT j, i
 
PRINT "sumP ="; sumP
PRINT "sumOT ="; sumOT
 
IF sumOT = 0 THEN
   PRINT "OTRICATELNYH CHISEL NET"
ELSE
   PRINT "OTNOSHENIE ="; ABS(sumP / sumOT)
END IF
END