Задачи VBA: 1. В зависимости от возраста ребенка выдайте сообщение: младенец, ясельник, детсадовец или школьник. 2. Есть урожай из N кг яблок. Определите, через сколько дней весь урожай будет вынесен, если каждый день количество вынесенных корзин удваивается, и в одной корзине помещается 5 кг. Если нужно, буду выполнять задачи по частям.
Подтвержденное решение:
Sub ВремяВыносаУрожая()
Dim N As Double
Dim КоличествоКорзин As Double
Dim Дни As Integer
Dim N As Double
Dim КоличествоКорзин As Double
Dim Дни As Integer
‘ Введите общее количество килограммов яблок
N = InputBox(«Введите общее количество килограммов яблок:»)
‘ Инициализация переменных
КоличествоКорзин = N / 5
Дни = 0
‘ Пока есть яблоки, выносим корзины
Do While КоличествоКорзин >= 1
КоличествоКорзин = КоличествоКорзин / 2
Дни = Дни + 1
Loop
‘ Вывод результата
MsgBox «Весь урожай будет вынесен через » & Дни & » дней.»
End Sub
Ну ладно, давайте разбираться с этими задачами по VBA. Пошагово.