Экономическая информатика I Visual Basic for Applications

Константы
арифметические (числовые) – 5; -12; 2,4E15
текстовые (символьные) – "пример процедуры"
Логические (булевы) – true, false
Даты - #08/30/20012#
* ? 31.08.2012

Переменные
Переменные – это область памяти, где программы сохраняют значения.
Переменные не должны содержать пробелов, но могут содержать знак подчеркивания (_).
Примеры: x, y1, mon, Проц_ставка.

Встроенные функции

Арифметические выражения

Символы операций сравнения

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

Символы логических операций

Логические выражения

Приоритеты операций

Приоритеты операций

Приоритеты операций

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

Ввод данных в диалоговом режиме
Sub Приветствие()
Dim user
user = InputBox(«Ваше имя? ")
MsgBox "Привет", user
End Sub

Ввод данных в диалоговом режиме

Однострочный оператор IF/Then
If L Then P,
где L - логическое выражение, P - оператор.
Function Частн(x,y)
If y <> 0 Then Частн = x/y
End Function

Многострочный If / Then / End If
If L Then
P1
P2
...
Pn
End If
Здесь L - логическое выражение
Function Корень4(x)
Dim Кор2
If x >= 0 Then
Кор2 = sqr(x) ' Кор2 - промежуточная переменная
Корень4 = sqr(Кор2)
End If
End Function

Оператор If / Then / Else / End If
If L Then
P1
...
Pn
Else
Q1
...
Qm
End If
Здесь L - логическое выражение, P1,..., Pn, Q1,..., Qm - операторы.

Оператор Select Case / Case / Case Else / End Select
Select Case A
Case A1
P1
17
....
Case An
Pn
Case Else
Ps
End Sel
Здесь A – выражение, A1,A2,...,An – подмножества множества значений А.

Function FunInt(X)
Select Case X
Case Is <= -1 ' Is заменяет текущее значение переменной X.
FunInt = 0
Case -1 To 3
FunInt = 0,2
Case 3 To 5
FunInt = 0,7
Case Else ' эквивалентная запись Case Is > 5
FunInt = 1
End Select
End Function

Оператор цикла For / Next
For I = start To end
P1
...
Pn
Next I
Здесь I – переменная (счетчик), start – начальное значение счетчика, end – конечное
значение счетчика, P1, ..., Pn – операторы.

Пример
Function Сумм1(N1,N2)
Dim k
Сумм1 = 0
For k =N1 To N2
Сумм1 = Сумм1 + k
Next k
End Function

Оператор цикла DO While / Loop
Do While L
P1
...
Pn
Loop
Здесь L - логическое выражение, P1, ..., Pn - операторы.

Пример
Function Сумм100(Nstart)
Dim n
Сумм100 = 0 ' начальное значение суммы
n = Nstart
Do While n < =100
Сумм100 = Сумм100 + n
n = n + 1
Loop
End Function

Оператор цикла Do Until / Loop
Do Until L
P1
...
Pn
Loop
Здесь L – логическое выражение, P1, ..., Pn – операторы.

Пример
Sub PassWord()
Dim PW
PW = " " ' начальное значение пароля - пробел
Do Until PW = "Stud123"
PW = InputBox( "Пароль?" )
Loop
End Sub