• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о проекте и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Циклы VBA

Бурундук93

Ученик
Регистрация
12 Июн 2011
Сообщения
2
Реакции
0
Баллы
0
Циклы VBA

Задача: Начав тренировки, лыжник в первый день пробежал 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
Вопрос: Обосновать цель цикла и переменную цикла и откуда она взялась. Не совсем понимаю чего от меня хотят. Прошу помочь разобраться.
 
Назад
Сверху