Помогите составить программу в VBA Excel

[energy drink]

Толком не объяснили и дали такую задачу. Помогите пожалуйста составить программу:
Задано одномерный массив А размерности N . Вывести номер предпоследнего положительного элемента.

[ViktorR]

Решить эту задачу можно, например, так:

Sub qq()
Dim i As Integer
Dim flag As Boolean
flag = False   ' Флажок, который показывает, что один положительный элемент найден 
For i = 9 To 1 Step -1  ' Просматриваем массив с "хвоста"
   If Cells(i, 1) > 0 And flag Then ' найден предпоследний полож. элемент
      Cells(i, 2) = Cells(i, 1)   ' Покажем его в соседнем столбце
   End If
   If Cells(i, 1) > 0 Then flag = True ' Найден первый положительный элемент
Next i   ' Продолжим цикл

End Sub

или вот так:

Sub qq()
Dim i As Integer
Dim n As Integer ' найдено положительных элементов
Dim k As Integer ' порядковый номер элемента с "хвоста"
Dim flag As Boolean
flag = False
n = 0
k = 2 ' надо найти предпоследний элемент
For i = 9 To 1 Step -1
   If Cells(i, 1) > 0 Then n = n + 1
   If n = k Then Cells(i, 2) = Cells(i, 1)
Next i
End Sub

Вариантов много ...


Как-то так, ...
PS: Эти реализации выполнены макросом в Excel.