Продолжение задания

5. В этой же модуле создайте еще одну новую процедуру Польза1.

Введите текст процедуры

Public Sub Польза1()

Dim Имя As String

Имя=InputBox(«Введите ваше имя:»)

MsgBox «Привет,» & Имя

End Sub

6. Запустите процедуру на выполнение. На экране появится окно ввода (рис.).

7. Введите свое имя и нажмите клавишу ОК. Окно ввода закроется и на экране появится окно сообщения, содержащее ваше имя (рис.).

8. Щелкните на кнопке ОК. Вы вернетесь в редактор Visual Basic. Сохраните работу в том же файле «Процедура».

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

• Экономия ресурсов памяти. Ни один тип не требует 16 или 22 байта для сохранения значений переменных.

• VBA по разному обрабатывает данные разных типов. Поэтому, не объявляя тип данных, вы можете получить результат, отличающийся от ожидаемого.

• Время выполнения процедур VBA зависит от типов данных.

Пример объявления переменных

DIM A as Integer, В as Byte, Сas String

Переменная А определена как целое число, которое должно быть не больше 32767 и не меньше -32768; переменная В определена как целое положительное число, которое должно быть не больше 255, а в переменной С может храниться текстовая информация.

Использование констант

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

Const ИМЯ КОНСТАНТЫ As тип_данных = значение

При объявлении констант используются те же типы данных, что и при объявлении переменных. Обычно имена констант записываются прописными буквами, что позволяет легко отличать имена переменных от имен констант. Пример объявления константы: Const ГОДЫ УЧЕБЫ As Byte = 11


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



double arrow
Сейчас читают про: