Программирование алгоритмов циклической структуры VBA

[hronorez]

Задание : С клавиатуры вводятся целые числа. Признак конца ввода – 0. Определить все числа идущие перед отрицательными числами.
Программу нужно написать без использования массивов .
Вот что я написал :

Код: Выделить всё

Private Sub CommandButton1_Click()
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim n As Integer
Label1.Caption = ""
Label2.Caption = ""
b = 0
Do
 a = InputBox("Введите целое число")
  If a <> 0 Then
    Label1.Caption = Label1.Caption & Str(a) & "; "
  End If
   If b <> 0 Then
     If a < 0 Then
       Label2.Caption = Label2.Caption & Str(b) & "; "
     End If
   End If
 b = a
Loop While a <> 0
End Sub

Преподаватель сказал что должны выводиться ВСЕ числа идущие перед отрицательными . Вообще это реально осуществить без использования массивов ? Если знаете как подскажите )
(Язык программы впринципе неважен (Pascal , VBA) , мнебы хотябы алгоритм)

[Angel666]

Это возможно сделать, если ты первую часть оставишь так же, но не много изменишь

Private Sub CommandButton1_Click()
Dim i As Integer
Dim a As Integer
Dim b As String
Dim n As Integer
Label1.Caption = ""
Label2.Caption = ""
Do
a = InputBox("Введите целое число")
If a < 0 Then
Label1.Caption = Label1.Caption & Str(a) & "; "
End If
If a < 0 Then
degin
Label2.Caption = Label2.Caption(b) & "; "
b = " "
end
else
b = b & Str(a)
Loop While a <> 0
End Sub

PS: только вот один нюанс не совсем поняла задание, вот смотри если будут введены во такие числа 1;2;3;-3;-4, то он должен будет вывести 1;2;3 или как? (В том что я написала будет вывод 1;2;3)

[hronorez]

PS: только вот один нюанс не совсем поняла задание, вот смотри если будут введены во такие числа 1;2;3;-3;-4, то он должен будет вывести 1;2;3 или как? (В том что я написала будет вывод 1;2;3)

спасибо за помощь ! А вот по поводу задания сам не знаю , нам дают лабы и не поясняют как должно быть , вот и пределываю по 20 раз пока всё как надо не сделаю )

[Angel666]

Если что обращайся