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