Вычислить количество элементов каждой строки матрицы

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim R As New Random
        Dim Arr(), Mat(4, 4), N As Integer
        TextBox1.Text = ""
        ListBox1.Items.Clear()
        'создаем матрицу
        For i = 0 To 4
            For j = 0 To 4
                Mat(i, j) = R.Next(0, 15) 'диапазон чисел от 0 до 14
                TextBox1.Text &= Mat(i, j) & " "
            Next
            TextBox1.Text &= vbNewLine
        Next
        'проверяем условие
        N = -1
        For i = 0 To 4
            For j = 0 To 4
                If Mat(i, j) > 0 And Mat(i, j) < 5 Then
                    N += 1
                    ReDim Preserve Arr(N)
                    Arr(N) = Mat(i, j) 'записываем в массив
                    ListBox1.Items.Add(Arr(N))
                End If
            Next
        Next
        Label1.Text = Arr.Count
    End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim R As New Random
        Dim Arr(), Mat(4, 4), N As Integer
        TextBox1.Text = ""
        ListBox1.Items.Clear()
        N = -1
        'создаем матрицу
        For i = 0 To 4
            For j = 0 To 4
                Mat(i, j) = R.Next(0, 15) 'диапазон чисел от 0 до 14
                TextBox1.Text &= Mat(i, j) & " "
 
                If Mat(i, j) > 0 And Mat(i, j) < 5 Then   'проверяем условие
                    N += 1
                    ReDim Preserve Arr(N)
                    Arr(N) = Mat(i, j) 'записываем в массив
                    ListBox1.Items.Add(Arr(N))
                End If
            Next
            TextBox1.Text &= vbNewLine
        Next
        Label1.Text = Arr.Count
    End Sub

        Dim R As New Random
        Mat(i, j) = R.Next(-9, 15) 'диапазон чисел от -9 до 14

    Sub Main()
        Dim Arr(4, 4) As Integer
        Dim N As Integer = 0, r As New Random
        For i = 0 To 4
            N = 0
            For j = 0 To 4
                Arr(i, j) = r.Next(-10, 11)
                N -= Arr(i, j) > 0 And Arr(i, j) < 5
                Console.Write(Arr(i, j) & vbTab)
            Next
            Console.Write("Количество элементов, удовлетворяющих условию: " & N)
            Console.WriteLine()
        Next
        Console.ReadKey()
    End Sub

    Sub Main()
        Dim Arr(4, 4) As Integer, B(4) As Integer
        Dim r As New Random
        For i = 0 To 4
            For j = 0 To 4
                Arr(i, j) = r.Next(-10, 11)
                B(i) -= Arr(i, j) > 0 And Arr(i, j) < 5
                Console.Write(Arr(i, j) & vbTab)
            Next
            Console.Write("Количество элементов, удовлетворяющих условию: " & B(i))
            Console.WriteLine()
        Next
        Console.ReadKey()
    End Sub