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

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

Вариант 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) Написать программу, которая отбирает на новый рабочий Лист данные о путевках, проданных указанной фирмой, и подсчитывает их стоимость.

Вариант 4

В фирме работают 20 сотрудников. Оплата работы начисляется соответственно количеству рабочих дней. Все работники распреде­лены на три категории: 1 – рабочие, 2 – служащие, 3 – администрация. Налог с работников удерживается в размере: для 1 категории – 15% от начисленной суммы, для 2 категории – 10%, для 3 категории – 20%. Со всех категорий высчитывается 1% налога в пенсионный фонд.

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

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

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

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

Вариант 5

Три студенческих группы сдавали экзамены. По результатам сессии студентам начислялась стипендия:

студенты со средним баллом меньше 3,5 стипендии не по­лучают;

студенты со средним баллом от 3,5 до 4 будут получать 50 гривен;

студентам, которые имеют средний балл от 4 до 5, стипендия повышается на 15%;

отличники будут получать стипендию в 75 гривен.

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

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

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

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

Вариант 6

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

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

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

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

Вариант 7

Торговая фирма имеет три отдела. Их обслуживают специа­ли­сты трех категорий: продавцы, консультанты и менеджеры. В конце каждого месяца фирма выплачивает работникам премию в размере 5%, если товар продан на сумму меньшую 1000 грн. и 6%, если выручка составляет 1000 грн. или больше. Работники, которые рабо­тают в фирме свыше 5 лет, получают премию на 2% больше. Соста­вить таблицу, которая содержит такую информацию: отдел, фамилия, должность, стаж работы, сумма выручки и премия.

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

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

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

Вариант 8

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

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

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

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