Технический форум

Задача: Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить, в какой день он пробежит больше 20 км.
Решил так:

Код:

Sub zadacha1()

Dim probeg, day

day = 1 'задаем начальное значение дня

probeg = 10 'задаем начальное значение пробега

Do 'начало цикла

day = day + 1 'увеличиваем день на 1

probeg = probeg * 1.1 'и увеличиваем пробег на 10%

Loop While probeg <= 20 'проверка условия повторения цикла

MsgBox ("probeg = " & probeg & " day = " & day) 'выводим пробег и день

End Sub

Вопрос: Обосновать цель цикла и переменную цикла и откуда она взялась. Не совсем понимаю чего от меня хотят. Прошу помочь разобраться.