Скласти рекурсивну процедуру, яка видаляє від’ємні елементі зі списку S

Dim S As ListItem 'исходный спсок

Dim PreparedList As ListItem 'преобразованный список

Sub RemoveItems()

Dim tmp As ListItem

If Not S Is Nothing Then 'если в исходном списке (еще) есть элементы:

If S.Number >= 0 Then 'если первый элемент исходого списка >= 0, то добавить его в преобразованный список

tmp.Number = S.Number

Set tmp.NextCell = PreparedList

Set PreparedList = tmp

End If

'удаляем первый элемент исходного списка, делая второй элемент первым

Set S = S.NextCell

'запускаем процедуру еще раз

Call RemoveItems

Else 'если в исходном списке нет элементов, выходим из процедуры

Exit Sub

End If

End Sub

ListItem.cls:

Public Number As Single 'число, характеризующее элемент списка

Public NextCell As ListItem 'ссылка на следующий элемент списка