Visual Basic for Applications. Практика. Нагина Е.К - 9 стр.

 Задания для самостоятельной работы по созданию функций
                      пользователя

      Задание 1. Создайте функцию пользователя для генерации случай-
ных чисел в диапазоне от 1 до 9 c именем GetRndN. Проверьте, что вновь
созданная функция появилась в общем списке функций, вызвав, например,
Мастер функций в MS Excel. Используйте эту функцию при написании
процедуры для сообщения о выигрыше или проигрыше.
      Задание 2. Создайте функцию пользователя с именем GetPassword
для ввода пароля. При написании функции используйте окно ввода Input-
Box - для ввода пароля и функцию Lcase, которая преобразует все буквы
переданной в нее строки в строчные. Обратитесь к этой функции в процес-
се написания процедуры, проверяющей значение введенного пароля, для
принятия решения о дальнейшем выполнении приложения.
      Задание 3. Создайте функцию пользователя Nadbavka для начисле-
ния надбавок к окладам медицинских работников поликлиники № 10 по
следующему алгоритму:
• Если стаж работы медицинского работника превышает 20 лет в данной
организации, то надбавка к окладу должна составлять 20 % от оклада.
• Если стаж работы медицинского работника превышает 25 лет в данной
организации, то надбавка к окладу должна составлять 25 % от оклада.
• Если стаж работы медицинского работника превышает 30 лет в данной
организации, то надбавка к окладу должна составлять 30 % от оклада.
      Замечание. В качестве параметров функции использовать перемен-
ные:
• Stazh – для стажа работы;
• Salary – для оклада сотрудника.
      Записать обращение к функции из ячейки рабочего листа Excel.
      Задание 4. Создайте функцию пользователя Bonus для начисления
комиссионных менеджерам по продажам магазина «Эльдорадо» по сле-
дующему алгоритму:
• Если объем продаж не менее 500 000 рублей, то комиссионные равны
P1 процентов от объема продаж.
• Если объем продаж от 100 000 до 500 000 рублей, то комиссионные рав-
ны P2 процентов от объема продаж.
• Если объем продаж от 50 000 до 100 000 рублей, то комиссионные рав-
ны P3 процентов от объема продаж.
• Если объем продаж менее 50 000 рублей, то с помощью функции
MsgBox выдать сообщении о невозможности выплаты комиссионных.
      Замечание. В качестве параметров функции использовать переменные:
• Volume – объем продаж;
• P1, P2, P3 – проценты для начисления комиссионных.
                                  9