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

Answer 2

Конечно, я могу помочь вам написать код на VBA, который решит эту задачу. Вот пример кода для выполнения вашей задачи:

vbaCopy code
Sub ПодсчетЧисел()
    Dim число As Integer
    Dim количество As Integer
    
    количество = 0
    
    Do
        число = InputBox("Введите число:")
        количество = количество + 1
    Loop Until число = 0 And количество >= 3
    
    MsgBox "Количество введенных чисел: " & количество
End Sub

Этот код создает макрос VBA, который будет запрашивать у пользователя ввод чисел до тех пор, пока не будет введено три нуля. Когда это условие выполняется, код выводит количество введенных чисел в виде сообщения.

Чтобы выполнить этот код, откройте Excel, перейдите во вкладку "Разработчик" (если она не отображается, активируйте ее в настройках Excel) и выберите "Visual Basic". В открывшемся окне редактора VBA вставьте этот код. Затем вы можете запустить макрос, выбрав его в списке макросов и нажав "Запустить".