2) У объектов Label1- Label3 свойства одинаковые. Поэтому объединяем их в группу: нажать Shift и не отпуская его щелкнуть мышкой по объектам Label1, Label2, Label3. Выделится группа. Shift отпустить. Изменяем свойства: BorderStyle (рамка) - fmBoderStyleSingle, Caption(надпись) - удалить надписи.
3) Выделяем этикетку Label4 и изменяем свойства. Caption(надпись) - убрать, Font (шрифт) - жирный, 20 пунктов, Fore Color (цвет) - опция Palette - вишневый.
Составление программного кода. Необходимо создать программы управления кнопками Пуск и Конец.
1)Два раза щелкнуть по кнопке Конец- появится окно Code с процедурой данного события: PrivateSubCommand2_Click() - начало процедуры
- код процедуры
EndSub - конец процедуры
Command2_Click() - имя данной процедуры, где Click() - событие, в данном случае щелчок мышью по кнопке Конец (VisualBasic автоматически определил это событие). Устанавливаем курсор в коде процедуры и набираем ключевое слово End, которое означает конец работы программы и удаление ее с экрана.
У каждого объекта может быть несколько процедур. Список процедур находится в окне Code. Процедуры разделяются между собой чертой. Переключение между показом списка процедур и отдельной процедуры осуществляется двумя кнопками в левом нижнем углу окна. 2) Щелкнем по кнопке Command1. В окне Code появится процедура, связанная с кнопкой Пуск. Тело данной процедуры должно решать три задачи: - скрыть приз,
- создать три случайных числа,
- показать приз при появлении числа 7.
Пишем код процедуры:
Label4.Caption=”” ‘скрыть приз Label1.Caption=Int(Rnd*10) ‘показать числа Label2.Caption=Int(Rnd*10) Label3.Caption=Int(Rnd*10) ‘Если любое число равно 7, показать приз If (Label1.Caption=7)Or(Label2.Caption=7)Or (Label3.Caption=7)Then
Label4.Caption= « ПРИЗ »
End If
3) Правила написания программ на языке VisualBasic будут рассмотрены в других работах. Сейчас остановимся на основных моментах данной программы.
‘ - комментарий (после апострофа) отличается цветом от кода и в код программы не входит.
Объект.Свойство=Значение - Присвоение значения данному свойству, например, Label4.Caption= « ПРИЗ »
Функция Rnd создает случайное число в интервале от 0 до 1.
Функция Intумножает число на 10 и округляет до ближайшего целого, т.е. образуются числа от 0 до 9.
Условная конструкция If…Then…EndIf проверяет равенство случайных чисел 7 и, если число=7, то свойство Caption меняется и появляется надпись.
Запустить программу кнопкой Run, проверить ее работу.
Задание 3. Создать событийную процедуру («щелчок» по кнопке) и функцию пользователя с объявлением переменных и выводом результатов в ячейки таблицы.
Вычислить годовую процентную ставку контракта по кредиту, взятого на определенный срок при известных сумме долга и сумме, подлежащей возврату. Формула годовой процентной ставки:
, где P – сумма кредита; S-сумма, подлежащая возврату; T-срок кредита.
Исходные данные: T=4месяца, P=100 тысяч, S=110 тысяч. Для них годовая процентная ставка составит i=30%.
1. Назначение VBA.
2. Что такое Объект, Метод, Свойство, Событие?
3. Как присвоить значение свойству объекта?
4. Основные окна VBA.
5. Типы процедур и функций.
6. Основные объекты Excel.
7. Состав проекта.
8. Доступ к ячейкам рабочего листа из модуля.
9. Что такое переменная и ее назначение в программе?
10.Объявление переменных. Типы переменных.
11.Приоритет выполнения арифметических операций.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.