Первое и последнее пол. значение элементов массива

  Sub obmass(ByRef x() As Integer, ByRef y() As Integer, ByRef polsum As Integer, ByVal a As Integer, ByVal b As Integer, ByVal kolel As Integer)
        Dim vxi, vyi As String
        Dim p, f, l As Integer
        polsum = 0
        p = 0
        vxi = "" 'Вывод ИКС
        vyi = "" 'Вывод ИГРЕК
        For i = 0 To (kolel - 1) 'Заполнение x(i) случ. знач.
            x(CInt(i)) = CInt(Math.Floor((31) * Rnd())) - 15
            vxi = vxi + "|" + CStr(x(i))
 
        Next
        For i = 0 To (kolel - 1) 'Первое пол.
            If x(i) >= 0 Then
                f = i
                Exit For
            End If
        Next
        For n = (kolel - 1) To 0 Step -1 'Последнее пол.
            If x(n) >= 0 Then
                l = n
                Exit For
            End If
        Next
        For n = f To l
            x(n) = y(n)
            polsum = polsum + y(n)
            vyi = vyi + CStr(y(n))
 
        Next
        ListBox1.Items.Add(vxi)
    End Sub

Sub Task(A() As Integer)
Dim flg As Boolean
    f% = 0
    l% = 0
    For i% = 1 To UBound(A, 1)
        If flg Then
           If A(i%) > 0 Then l% = A(i%)
        Else
           If A(i%) > 0 Then
              flg = True
              f% = A(i%)
           End If
        End If
    Next i%
    Debug.Print f%; " "; l%
End Sub

Option Explicit
Dim kolel As Integer, polsum As Integer, a As Integer, b As Integer
Dim vxi As String, vyi As String
Dim TestX() As Integer, TestY() As Integer
   Sub obmass(ByRef x() As Integer, ByRef y() As Integer, ByRef polsum As Integer, ByRef vxi As String, ByRef vyi As String, ByVal kolel As Integer)
        'Dim vxi As String, vyi As String
        Dim p As Integer, f As Integer, l As Integer
        Dim i As Integer, n As Integer
        polsum = 0
        p = 0
        'vxi = "" 'Вывод ИКС
        'vyi = "" 'Вывод ИГРЕК
        Randomize 'для правильной работы рандома
        ReDim x(kolel)
        For i = 0 To (kolel - 1) 'Заполнение x(i) случ. знач.
            'x(CInt(i)) = CInt(Math.Floor((31) * Rnd())) - 15
            
            x(i) = Int(50 * Rnd - 20)
            vxi = vxi + "  |  " + CStr(x(i))
 
        Next
        For i = 0 To kolel 'Первое пол.
            If x(i) > 0 Then
                f = i
                Exit For
            End If
        Next
        For n = kolel To 0 Step -1 'Последнее пол.
            If x(n) > 0 Then
                l = n + 1
                Exit For
            End If
        Next
        ReDim y(f To l)
        For n = f To l - 1
            y(n) = x(n)
            polsum = polsum + y(n)
            'vyi = vyi + CStr(y(n))
            vyi = vyi + "  |  " + CStr(y(n))
        Next
       ' List1.AddItem (vxi)
       ' List2.AddItem (vyi)
        
    End Sub
 
Private Sub Command1_Click()
kolel = 20
obmass TestX, TestY, polsum, vxi, vyi, kolel
List1.AddItem (vxi)
List2.AddItem (vyi)
Print polsum;
End Sub