Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология
Образование Политология Производство Психология Стандартизация Технологии


Порядок выполнения работы. first = Val(Text1.Text)



1. Изучить теоретический материал.

2. Загрузить Excel.

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

 

· Создать соответствующие элементы управления:

· четыре Метки – переменная 1, переменная 2, результат, окно результата (Label);

· два текстовых поля (TextBox);

· Рамку с четырьмя Переключателями (Frame, OptionButton);

· Три кнопки – Вычислить, Очистить, Выход (CommandButton)/

·

 

Задать заголовки элементам. Создать код программы, которая состоит из трех процедур обработки событий для трех кнопок.

· В процедуре, вызываемая кнопкой Вычислить, объявить переменные инструкцией Dim, присвоить им значения из соответствующих текстовых полей, предварительно преобразованные из текстовых значений в числовые (функция val). Предусмотреть вычисления при ненулевых значениях переменных с использованием инструкции IF … Then. Вывод результата организовать с помощью Свойства Caption Метки4 (label 4).

· Дополнить ниже приведенную программу для двух оставшихся действий (вычитания и умножения).

Private Sub CommandButton1_Click()


Dim first, second

Label5.Visible = False

first = Val(Text1.Text)

second = Val(Text2.Text)

If first <> 0 And second <> 0 Then

 If OptionButton1.Value = True Then

Label4.Caption = first + second

End If

‘ добавить инструкции для вычитания, умножения и деления

 If OptionButton4.Value = True Then

Label4.Caption = Format(first / second, "######.00")

End If

Else

Label5.Visible = True

End If

End Sub

· Ввести инструкции для процедуры, вызываемой кнопкой Очистить.

Private Sub CommandButton3_Click()

Text1.Text = ""

Text2.Text = ""

Label4.Caption = ""

End Sub

· Сохранить файл под именем Арифметические операции.

· Продемонстрировать результат преподавателю. Завершить сеанс с Excel.

Вопросы для самоподготовки

1. Перечислите основные элементы программирования VBA.

2. Какие ограничения накладываются на имена переменных, процедур, функций, используемых в программе?

3. Приведите основные типы данных, дайте их характеристики.

4. Для чего используются переменные в программе?

5. Как можно описать переменные в программе?

6. Какая инструкция используется для обязательного объявления переменных?

7. Приведите пример объявления переменных?

8. Что такое область видимости переменной?

9. Какие типы области видимости существуют в VBA?

10. Как задаются области видимости для переменных?

11. В чем отличие переменных от констант?

12.  Приведите синтаксис описания констант в VBA.

13. Какой стандартный набор операций над данными используется в VBA?

14.  Перечислите виды операторов.

15. Каковы приоритеты выполнения операций?

16. На какие категории можно разделить встроенные функции VBA?

17. Приведите основные стандартные математические функции VBA.



ЛАБОРАТОРНАЯ РАБОТА 6

Процедуры и функции

Цель работы:

1. Изучить основные операторы VBA .

2. Научиться использовать процедуры и функции VBA .

Операторы

Рекомендации при написании программы

Перенос строк.

Для переноса строки в программе используется <Пробел> +<Знак подчеркивания>. При этом надо помнить, что

· нельзя разбивать переносом строковые константы;

· допустимо не более семи продолжений одной и той же строки;

· сама строка не может состоять более чем из 1024 символов.

Комментарии

Текст, следующий в программе за символом (') вплоть до конца строки, игнорируется компилятором и представляет собой комментарий. Комментарии позволяют добавлять описания и пояснения к строкам программы. Они полезны и при отладке программ, т.к. позволяют временно отключать строки кода программы при ее отладки.

Несколько операторов на одной строке

Использование знака двоеточия позволяет разместить несколько операторов на одной строке.

Оператор присвоения

Оператор присвоения присваивает значение выражения переменной константе или свойству объекта. Оператор присвоения всегда включает знак равенства (=).

Синтаксис:

[Let]Переменная (или Постоянная или Свойство Объекта)= Выражение

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

х = 2

х = х + 2

переменной х будет присвоено 4.

Для присвоения переменной ссылки на объект применяется инструкция Set . В следующем примере инструкция Set присваивает объектной переменной Кнопка элемент управления Кнопка с именем CommandButton1.

Set Кнопка = CommandButton 1

В общем случае инструкция Set имеет следующий синтаксис.

Set объектнаяПеременная = {[ New ] объектноеВыражение | Nothing )

Где ключевое слово N ew используется при создании нового экземпляра класса, а ключевое слово Nothing позволяет освободить все системные ресурсы и ресурсы памяти, выделенные для объекта, на который имелась ссылка (удаляет объект из памяти).

Оператор With

Оператор With позволяет избежать использования большого количества повторений имени одного и того же объекта при работе со свойствами и методами. Кроме того, он структурирует код программы.

Пример.

With Range (“ A 1”)

.Value = 3

. Font . Italic = True

End With

Допустимо использование вложенных операторов With .

Пример.

With Range (“A1”)

.Value = 3

With .Font

     .Italic = True

     .Size = 12

     .Bold = True

     .Color = RGB(255,30,255)

End With

End With

Операторы управления

В VBA имеется несколько операторов управления ходом выполнения программы. Функционально они делятся на две группы операторов:

· Перехода и выбора (Goto, If – Then – Else, Select)

· Повтора (For – next, For Each, Do – Loop, While – Wend)


Поделиться:



Последнее изменение этой страницы: 2019-04-19; Просмотров: 249; Нарушение авторского права страницы


lektsia.com 2007 - 2024 год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! (0.018 с.)
Главная | Случайная страница | Обратная связь