Подсчитать по отдельности суммы C1 и C2 и количества M1 и M2 отрицательных и положительных элементов массива

Public Class Form1 
    Private Sub btnПуск_Click(ByVal sender As System.Object, _ 
     ByVal e As System.EventArgs) Handles btnПуск.Click 
        Dim m, i, ka, kb As Integer 
        Dim h, a(), b(), c() As Single 
        txtЖурнал.Clear() 
        m = InputBox("m = ?")   13 
        txtЖурнал.AppendText("m = " & m & vbCrLf) 
        h = InputBox("h = ?") 
        txtЖурнал.AppendText("h = " & h & vbCrLf) 
        ReDim a(m), b(m), c(m) 
        InputVector(a, "a") 
        txtЖурнал.AppendText("Вектор a" & vbCrLf) 
        OutputVector(a, txtЖурнал) 
        InputVector(b, "b") 
        txtЖурнал.AppendText("Вектор b" & vbCrLf) 
        OutputVector(b, txtЖурнал) 
        For i = 1 To m 
            If a(i) > b(i) And a(i) > h Then 
                c(i) = a(i) 
                ka = ka + 1 
            ElseIf b(i) > a(i) And b(i) > h Then 
                c(i) = b(i) 
                kb = kb + 1 
            Else 
                c(i) = h 
            End If 
        Next 
        txtЖурнал.AppendText("ka = " & ka & vbTab) 
        txtЖурнал.AppendText("kb = " & kb & vbCrLf) 
        txtЖурнал.AppendText("Вектор c" & vbCrLf) 
        OutputVector(c, txtЖурнал) 
    End Sub 
 
    Private Sub Label1_Click(ByVal sender As System.Object, _ 
    ByVal e As System.EventArgs) Handles Label1.Click 
        End 
    End Sub 
 
    Private Sub InputVector(ByRef x() As Single, Optional _ 
ByVal ArrayName As String = "элемент") 
        Dim i As Integer 
        For i = 1 To x.GetUpperBound(0) 
            x(i) = InputBox(ArrayName & "(" & i & ") = ?") 
        Next 
    End Sub 
 
    Private Sub OutputVector(ByRef x() As Single, ByVal _ 
    txtBx As TextBox) 
        Dim i As Integer 
        For i = 1 To x.GetUpperBound(0) 
            txtBx.AppendText("  " & x(i)) 
        Next 
        txtBx.AppendText(vbCrLf) 
    End Sub 
End Class

    Dim Mass(10) As String
    Dim Rand As New Random
    Dim SummPlus, SummMinus, CountPlus, CountMinus As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Заполняем массив
        For I As Integer = 0 To 9
            Mass(I) = CInt(Rand.NextDouble * 20 - 10)
            If Mass(I) >= 0 Then
                CountPlus += 1
                SummPlus += Mass(I)
            Else
                CountMinus += 1
                SummMinus -= Mass(I)
            End If
        Next
        MsgBox("Массив: " & String.Join(", ", Mass) & vbCrLf & "Положительные элементы:" & vbCrLf & "Количество: " & CountPlus & vbCrLf & "Сумма: " & SummPlus & vbCrLf & _
               "Отрицательные элементы:" & vbCrLf & "Количество: " & CountMinus & vbCrLf & "Сумма: " & SummMinus)
    End Sub

    Dim A, B, S As Integer
    Dim Radius(3) As Integer
    Dim Cnt As Integer
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        A = InputBox("Ширина прямоугольника:")
        B = InputBox("Высота прямоугольника:")
        S = A * B
        For I As Integer = 0 To Radius.Length - 1
            Radius(I) = InputBox("Радиус " & I + 1 & "-й окружности")
            If S < Math.PI * Radius(I) ^ 2 Then Cnt += 1
        Next
        If Cnt > 0 Then
            MsgBox(Cnt & " кругов имеют большую площадь, чем прямоугольник")
        Else
            MsgBox("Нет ни одного достойного дру... Круга")
        End If
    End Sub