Занятие 11. MS Excel. Расчет температуры окружающей среды по пению сверчка. Циклы в VBA

VBA предоставляет возможность пользователю создавать собственные функции, работать с которыми на рабочем листе можно при помощи мастера функций точно так же, как и с любой встроенной функцией. Рассмотрим один пример построения функции пользователя.

Среди животных, прекрасно играющих роль живых термометров, сверчки очень чутко реагируют на изменение температуры окружающего воздуха. Немецкий энтомолог С. Шкаф установил, что, если к количеству стрекотаний сверчка в течение 14 секунд прибавить цифру 40, то в десяти случаях из десяти будет совершенно точно угадана температура воздуха по Фаренгейту. Закономерность эта оказалась на столько точной, что в последствии были даже выведены формулы для определения температуры воздуха по пению сверчка - трубачика и домового сверчка.

Для сверчка - трубачика	Для домового сверчка

где: Т - температура воздуха по Фаренгейту; Н - количество стрекотаний поющего насекомого в одну минуту.

Создайте функцию пользователя с именем Сверчок для расчета температуры окружающей среды в зависимости от вида сверчка. Аргументы этой функции назовемСтрекот и Вид. Для аргумента Вид предусмотрены только два допустимых значения: 1 для сверчка - трубачика и 0 для домового сверчка.