Число точек с положительной абсциссой и ординатой

Public Class Form1
 
    Private Sub btnПуск_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnПуск.Click
1:      Dim m, i, ka, kb As Integer
        Dim h, a(), b(), c() As Single
        txtЖурнал.Clear()
        m = InputBox("m = ?")
5:      txtЖурнал.AppendText("m = " & m & vbCrLf)
        h = InputBox("h = ?")
        txtЖурнал.AppendText("h = " & h & vbCrLf)
        ReDim a(m), b(m), c(m)
        InputVector(a, "a")
10:     txtЖурнал.AppendText("Вектор a" & vbCrLf)
        OutputVector(a, txtЖурнал)
        InputVector(b, "b")
        txtЖурнал.AppendText("Вектор b" & vbCrLf)
        OutputVector(b, txtЖурнал)
15:     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
20:             c(i) = b(i)
                kb = kb + 1
            Else
                c(i) = h
            End If
25:     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
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class