Question

Приветствую! Не могли бы вы мне помочь с информатикой
Нужно написать код созданный в программе "VBA"
Задача: Последовательно вводятся числа до тех пор, пока во введенной совокупности не окажется три нуля. Вывести количество введенных чисел

Answer 1

Sub Prime()

   Dim k As Integer, x As Double

   k = 0

   Do

       x = CDbl(InputBox("Введи число, ноль завершит работу"))

       If x = 0 Then Exit Do

       k = k + 1

   Loop

   MsgBox "Введено чисел: " & CStr(k)

End Sub