Для каждой строки массива A 6×4 посчитать количество положительных элементов - VB

CLS
RANDOMIZE TIMER
 
DIM A(6, 4) AS LONG
DIM B(6) AS LONG
 
FOR i = 1 TO 6
FOR j = 1 TO 4
   A(i, j) = 18 * RND - 9
   PRINT A(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO 6
FOR j = 1 TO 4
   IF A(i, j) > 0 THEN B(i) = B(i) + 1
NEXT j, i
 
FOR i = 1 TO 6
   PRINT B(i);
NEXT