В заданном массиве определить номер 1-го рядка, который имеет максимальное количество положительных элементов - VB

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

В заданyом массиве У(n, m) определить номер 1-го рядка, который имеет максимальное количество положительных элементов. Я сделал так чтоб считало положительные элементы всего массива, а как сделать что бы считало именно в строке не пойму.

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Private Sub Command1_Click()
Dim n As Long, m As Long, a As Long, b As Long, i As Long, j As Long, k As Long
 
n = Text1(0).Text
m = Text1(1).Text
a = Text1(2).Text
b = Text1(3).Text
 
ReDim mas(n - 1, m - 1) As Long
Randomize Timer
For i = 0 To n - 1
    For j = 0 To m - 1
        mas(i, j) = Fix(Rnd * (b - a + 1)) + a
    Next j
Next i
For i = 0 To n - 1
    For j = 0 To m - 1
        Label1.Caption = Label1.Caption & mas(i, j) & " "
    Next j
    Label1.Caption = Label1.Caption & vbCrLf
Next i
   k = 0
For i = 0 To n - 1
    For j = 0 To m - 1
       If mas(i, j) >= 0 Then
       k = k + 1
       End If
    Next j
Next i
Label2.Caption = Label2.Caption & k & " "
End Sub

Решение задачи: «В заданном массиве определить номер 1-го рядка, который имеет максимальное количество положительных элементов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit 
Private Sub Command1_Click()
Dim n As Long, m As Long, a As Long, b As Long
Dim i As Long, j As Long, k As Long, iPos As Long, cPos As Long
 
n = Text1(0).Text
m = Text1(1).Text
a = Text1(2).Text
b = Text1(3).Text
Label1.Caption = ""
Label2.Caption = ""
 
ReDim mas(n - 1, m - 1) As Long
Randomize Timer
For i = 0 To n - 1
    For j = 0 To m - 1
        mas(i, j) = Fix(Rnd * (b - a + 1)) + a
    Next j
Next i
For i = 0 To n - 1
    For j = 0 To m - 1
        Label1.Caption = Label1.Caption & mas(i, j) & " "
    Next j
    Label1.Caption = Label1.Caption & vbCrLf
Next i
For i = 0 To n - 1
     k = 0
     For j = 0 To m - 1
         If mas(i, j) >= 0 Then
             k = k + 1
         End If
     Next j
     If k > cPos Then cPos = k: iPos = i + 1
Next i
Label2.Caption = "Максимальное количество положительных (" & cPos & ") в строке № " & iPos
End Sub