VBA, цикл FOR, последовательности

[tomp171]

Sub s()
Dim i As Integer
Dim a As Integer
n = Array(-4, -2, 4, 5, 2, 5, 1)
For i = 1 To 7
i =
If (i) >= 0 Then
a = a + 1
End If
Next i
MsgBox a
End Sub

Вот, накидал, но не знаю, как "заставить" i брать числа из массива по очереди.
Найти количество положительных чисел в последовательности из n чисел (последовательность вводится пользователем).

[SAS888]

Если я правильно понял, то можно применить любой из вариантов:

Sub test1()
    Dim i As Integer, a As Integer, n()
    n = Array(-4, -2, 4, 5, 2, 5, 1)
    For i = LBound(n) To UBound(n)
        If n(i) >= 0 Then a = a + 1
    Next
    MsgBox a
End Sub

Sub test2()
    Dim a As Integer, q
    For Each q In Array(-4, -2, 4, 5, 2, 5, 1)
        If q >= 0 Then a = a + 1
    Next
    MsgBox a
End Sub

[tomp171]

Сообщение от SAS888

Если я правильно понял, то можно применить любой из вариантов:

Sub test1()
    Dim i As Integer, a As Integer, n()
    n = Array(-4, -2, 4, 5, 2, 5, 1)
    For i = LBound(n) To UBound(n)
        If n(i) >= 0 Then a = a + 1
    Next
    MsgBox a
End Sub

Sub test2()
    Dim a As Integer, q
    For Each q In Array(-4, -2, 4, 5, 2, 5, 1)
        If q >= 0 Then a = a + 1
    Next
    MsgBox a
End Sub

Огромное спасибо...а я не додумался)

[SAS888]

Если требуется просто узнать количество неотрицательных элементов в массиве, то можно и так (без явных циклов):

a = UBound(Filter(Array(-4, -2, 4, 5, 2, 5, 1), "-", False)) + 1