8. Повторяющиеся команды (циклы). Циклы, управляемые счетчиком. Циклы, выполняющиеся или завершающиеся по условию

Лабораторная работа 8.1 Работа с циклами

Циклы в макросах VBA в Excel, конструкции For ... Next и Do ... While

Задание 1:

Напишите макрос ForNextSub(), который бы выводил 10 стандартных окон сообщений с цифрами от 1 до 10. Используйте для этого задания конструкцию For...Next.

Задание 2:

Напишите макрос DoWhileSub(), который бы также выводил 10 стандартных окон сообщений с цифрами от 1 до 10. Используйте для этого задания конструкцию Do...While.

Решение к заданию 1:

Итоговый код макроса ForNextSub() может быть таким:

Public Sub ForNextSub()

    Dim i As Integer

    For i = 1 To 10

        MsgBox i

    Next

End Sub

Решение к заданию 2:

Итоговый код макроса DoWhileSub() может быть таким:

Public Sub ForNextSub2()

    Dim i As Integer

    i = 1

    Do While i <= 10

        MsgBox i

        i = i + 1

    Loop

End Sub

Получить учебные материалы по этому курсу