Формирование и обработка двумерных массивов

    Private arSource(,) As Integer 'Исходный массив
    Private arResult() As Integer 'Конечный массив
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Заполнение массива
        FillArray(arSource)
        'Очистка листбоксов для отображения исходного и конечного массивов
        ListBox1.Items.Clear()
        ListBox2.DataSource = Nothing
        'Двумерный массив почему-то не отображается.
        'Поэтому загрузка циклом
        'ListBox1.MultiColumn = True
        'ListBox1.ColumnWidth = 25
        'ListBox1.DataSource = arSource
        'Загрузка исходного массива в листбокс. Колонки разделены табуляцией
        For i As Integer = 0 To arSource.GetUpperBound(0)
            ListBox1.Items.Add(String.Format("{1}{0}{2}{0}{3}", vbTab, arSource(i, 0), arSource(i, 1), arSource(i, 2)))
        Next
        'Определение конечного массива
        ReDim arResult(arSource.GetUpperBound(0))
        Dim sum As Integer 'Сумма элементов после первого отрицательного
        Dim NoNegativ As Boolean 'Флаг, что встретился отрицательный элемент
        'Перебор элементов конечного массива
        For i As Integer = 0 To arResult.GetUpperBound(0)
            'Инициализация переменных перед каждой строкой
            NoNegativ = False : sum = 0
            'Перебор элементов i-й строки исходного массива
            For j As Integer = 0 To arSource.GetUpperBound(1)
                If NoNegativ Then
                    'Суммирование элементов, если прошли первый неотрицательный элемент
                    sum += arSource(i, j)
                Else
                    'Переключение флага на отрицательном элементе i-й строки исходного массива
                    NoNegativ = arSource(i, j) < 0
                End If
            Next
            'Занесение суммы в конечный массив. Если флаг не переключался, т.е. 
            'в i-й строке не встретился отрицательный элемент, то записываем 100
            arResult(i) = IIf(NoNegativ, sum, 100)
        Next
        'Отображение конечного массива в листбоксе
        ListBox2.DataSource = arResult
    End Sub
 
    'Процедура заполнения массива
    Private Sub FillArray(ByRef ar(,) As Integer, Optional ByVal rows As Integer = 10, Optional ByVal cols As Integer = 3)
        Dim rand As New Random() 'Переменная для генерации случайных чисел
        ReDim ar(rows - 1, cols - 1) 'Инициализация массива
        'Заполнение массива значениями
        For i As Integer = 0 To ar.GetUpperBound(0)
            Randomize()
            For j As Integer = 0 To ar.GetUpperBound(1)
                'Запись в массив очередного целого из заданного диапазона
                ar(i, j) = rand.Next(-2, 15)
            Next
        Next
    End Sub