4. Оператор цикла While … Wend

Синтаксис оператора:

While условие

операторы

Wend

Этот оператор цикла работает до тех пор, пока выполняется условие, записанное радом со словом While.

Пример 9. На Листе Excel находятся данные. Найти первую свободную строку и сделать активной ячейку, расположенную в первом столбце этой строки.

Sub поиск()

Dim i As Integer

' i - номер строки

Range("A1") . Select

i = 1

While Cells(i , 1) .Value > ""

i = i + 1

Wend

Cells(i , 1) . Select

End Sub

2 Варианты заданий Вариант 1

Компания по снабжению электроэнергией получает плату с клиентов по тарифу:

• 16 коп. за 1кВт/ч за первые 100 кВт;

• 20 коп. за 1 кВт/ч, если потребление большее, чем 100 кВт, но не превышает 300кВт;

• 30 коп. за 1 кВт/ч, если потребление большее 300 кВт.

Услугами компании пользуются 20 клиентов, которые живут в трех домах. Составить таблицу, которая содержит такую информацию: номер счета, фамилия пользователя, номер дома, в котором он живет, количество израсходованной электроэнергии, стоимость израсходо­ванной электроэнергии.

1. Создать функцию пользователя, которая рассчитывает стои­мость израсходованной электроэнергии для каждого клиента.

2. Создать форму для корректирования и ввода новых данных о клиентах.

3. Написать программу, которая отбирает на новый рабочий Лист данные про тех клиентов, которые живут в доме с указанным номером, и подсчитывает количество израсходованной ими электроэнергии.

Вариант 2

Три магазина заказывают на складе книжки. Если магазин зака­зывает книг большее, чем есть на складе, то склад увеличивает цену на 50 коп. за каждый экземпляр. Если на складе есть заказанное коли­чество книжек, то возможны скидки. Если заказано большее 30 экзем­пляров, то склад уменьшает цену на них на 10%; а если заказано 50 экземпляров или больше – на 15%. Составить таблицу, которая содер­жит такую информацию: магазин, автор, название книги, цена за еди­ницу, имеющееся количество на складе, заказанное количество, скидка, общая стоимость.

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

2. Создать форму для корректирования и ввода данных для новых заказов.

3. Написать программу, которая отбирает на новый рабочий Лист данные о том магазине, который выберет пользователь, и подсчиты­вает количество заказанных книг.

Вариант 3

Три туристических фирмы организуют путешествия в пять стран. Если клиент заказал больше двух путевок, он получает скидку в размере 5% от стоимости путевок; больше трех – 7%; больше четырех – 10%. Составить таблицу, которая содержит такую информацию: фамилия покупателя, фирма, которая его обслуживает, страна, стои­мость одной путевки, количество заказанных путевок, скидка, общая стоимость.

1. Создать функцию пользователя, которая вычисляет общую стои­мость путевок для клиента.

2. Создать форму для корректирования и ввода новых данных.

3. Написать программу, которая отбирает на новый рабочий Лист данные о путевках, проданных указанной фирмой, и подсчитывает их стоимость.