Задачи VBA: 1. Напишите код, который выводит сообщение в зависимости от возраста ребенка, указывая, период

Камень

56

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

1. Чтобы решить эту задачу, нам понадобится использовать оператор условия "If...Then". Вот код, который выводит сообщение в зависимости от возраста ребенка:

vba

Sub ОпределениеВозраста()

    Dim Возраст As Integer

    

    Возраст = InputBox("Введите возраст ребенка:")

    

    If Возраст <= 1 Then

        MsgBox "Период младенчества"

    ElseIf Возраст > 1 And Возраст <= 3 Then

        MsgBox "Посещение ясли и детский сад"

    ElseIf Возраст > 3 Then

        MsgBox "Поступление в школу"

    End If

End Sub

Вы можете использовать этот код в своем проекте VBA. Он попросит вас ввести возраст ребенка и затем выведет сообщение, соответствующее его возрасту.

Теперь перейдем ко второй задаче.

2. В этой задаче нам также понадобится использование оператора условия "If...Then". Мы будем удваивать количество вынесенных корзин каждый день до тех пор, пока весь урожай не будет вынесен. Вот код, который решает эту задачу:

vba

Sub ВыносУрожая()

    Dim Урожай As Double

    Dim КоличествоКорзин As Integer

    Dim КоличествоДней As Integer

    

    Урожай = InputBox("Введите количество килограммов урожая:")

    КоличествоКорзин = 0

    КоличествоДней = 0

    

    Do While Урожай > 0

        If Урожай >= 5 Then

            КоличествоКорзин = КоличествоКорзин + 1

            Урожай = Урожай - 5

        Else

            Exit Do

        End If

        

        If КоличествоКорзин >= 2 ^ КоличествоДней Then

            КоличествоДней = КоличествоДней + 1

        End If

    Loop

    

    MsgBox "Для выноса всего урожая понадобится " & КоличествоДней & " дней"

End Sub

Этот код также просит ввести количество килограммов урожая и затем рассчитывает, сколько дней понадобится для его выноса. Он удваивает количество корзин каждый день и уменьшает оставшийся урожай на 5 кг за каждую корзину.

Надеюсь, это поможет вам! Если у вас есть еще вопросы или нужна дополнительная помощь, пожалуйста, сообщите мне.