Да, снова требуется помощь :)

[Карбидо]

нахожусь в небольшом ступоре и никак не пойму сабж.
текст:

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

"Запишите бесконечный цикл, в котором, используя оператор InputBox, введите числа и выполните расчёты:

"В разные колонки таблицы водятся положительные и отрицательные числа. Ввод прекращается, когда сумма чисел равна нулю."

Выход из цикла происходит при нажатии кнопки Cancel оператора InputBox."

Буду чертовски благодарен за помощь

[alibek]

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

Dim S As String, V1 As Single, V2 As Single, F As Boolean
Do
S = InputBox("?")
If Len(S)=0 Then Exit Do
F = Not F
If F Then V1 = Val(S) Else V2 = Val(S)
If Not F Then
  'Column1 = V1
  'Column2 = V2
  If (V1+V2) < 1e-8 Then Exit Do
End If
Loop