Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Информатика_ЗФ / 2013_Информатика УМО_легпром.doc
Скачиваний:
359
Добавлен:
22.03.2016
Размер:
50.51 Mб
Скачать
  1. Основные операторы языка visual basic for applications

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

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

С помощью оператора присваивания можно задать новое или изменить существующее значение переменной. Несколько идущих друг за другом таких операторов реализуют алгоритмическую структуру «следование». Синтаксис оператора присваивания следующий:

[Let] переменная = выражение

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

С использованием нескольких операторов присваивания можно реализовать базовую структуру «следование». В таблице 21 приведены фрагменты программ с использованием операторов присваивания и указаны результаты их выполнения.

Таблица 21

Примеры использования оператора присваивания

Фрагмент текста программы

Результат

1

Sub q()

Const pi = 3.14

Dim a%, b!, c#, d As Boolean

Dim e As Date, f$

a = 1 / 3

b = 1 / 3

c = 1 / 3

d = 1 / 3

e = 1 / 3

f = a & vbCr & b & vbCr & c & _ vbCr & d & vbCr & e & vbCr & pi

MsgBox f

End Sub

2

a=1 : b=2 : a=b : b=a

a=2 b=2

3

a=1 : b=2 : a=a+b : b=a*b

a=3 b=6

4

a=1 : b=2 : a=a+b : b=a : a=a=a

a=-1(True) b=3

5

c=a : a=b : b=c

aиbменяются значениями

6 *

a=a+b : b=a-b : a=a-b

aиbменяются значениями

7 *

a=y*2 : y=y/x : x=x*x : x=x+y+a

x=x*x+y/x+y*2