Сформировать двумерный массив Z(10,3) из случайных чисел, принадлежащих отрезку [-2;15] - VB

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

Сформировать двумерный массив Z(10,3) из случайных чисел, принадлежащих отрезку[-2;15].Получить и вывести одномерный массив P, где Pi – сумма элементов, расположенных за первым отрицательным элементом в i-й строке; если все элементы строки неотрицательны, то принять Pi=100. ребят пожайлуста! отблагодарю

Решение задачи: «Сформировать двумерный массив Z(10,3) из случайных чисел, принадлежащих отрезку [-2;15]»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim Z(), P(), n, m, i, j, kPol
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = 10    ' InputBox("Enter n")
m = 3    ' InputBox("Enter m")
ReDim Z(n, m), P(n) ' Размеры массива Z -  n-строк, m-столбцов
For i = 1 To n
 For j = 1 To m
     Z(i, j) = Round(17 * Rnd - 2) 'Заполняем массив случайными числами
      Print Z(i, j); vbTab;
 Next j
 Print
Next i
 
Print
  For i = 1 To n
     kPol = 0
     For j = 1 To m
        If Z(i, j) >= 0 Then P(i) = P(i) + Z(i, j): kPol = kPol + 1 Else P(i) = 0
     Next j
     If kPol = m Then P(i) = 100
   Print P(i);
Next i
End Sub