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
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