Именование встроенных констант

• Word - wd…

• Excel — ex…

• PowerPoint — pp…

• Access — ac…

• VBA — vb

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

       Переменная объявляется с помощью ключевых слов Dim, Public, Private или Static. Для явного задания типа переменной используется ключевое слово As.

       Private I
Dim Amt
Static YourName As String
Public BillsPaid As Currency
Private YourName As String, BillsPaid As Currency
Private Test. Amount, J As Integer

Специальные символы определения типа

Объявление массива

{Dim | Private | Public | Static} имяМассива (<размер1>

[, <размер2>] . . . ) [As типДанных][, имяМассива (<размер1>

[, <размер2>] ...) [Аs типДанных]} ...

• Объявление только верхней границы, при этом нижняя граница по умолчанию принимает значение, равное 0.

• Объявляется нижняя и верхняя граница изменения индекса:

• (нижняяГраница То верхняяГраница)

• Размер массива вообще не объявляется, размерность массива неизвестна:()

Sub examples()

       Dim authorList() As String

       ReDim authorList(1 To 100, 1 To 2)

       authorList(7, 2) = "Усаров"

       ReDim Preserve authorList(1 To 100, 1 To 10)

       MsgBox(authorList(7, 2))

End Sub

Перечисляемый тип

Private | Public] Enum имяТипа имяЗначения [ = Константа] имяЗначения [ = Константа]

….

End Enum

Private Enum Week

                   Monday

                   Tuesday

                   Wednesday

                   Thursday

                   Friday

                   Saturday

                   Sunday

       End Enum

Пользовательский тип

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

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

Lf...Then

       Позволяет выполнять один или несколько операторов, если условие истинно. Можно использовать однострочный или блочный синтаксис.

• If thisVal < 0 Then thisVal = 0

• If thisVal > 5 Then
thatVal = thisVal + 25
thisVal = 0
End If

If. ..Then. ..Else

       Позволяет определить 2 блока операторов. Первый блок выполняется, когда условие истинно, а второй - когда оно ложно.

If age < 16 Then
MsgBox "You are not old enough for a license. "
Else
MsgBox "You can be tested for a license. "
End If

Lf...Then...Elself

       Позволяет определить несколько условий и несколько блоков операторов.

Function Bonus(jobClass, salary, rating)
If jobClass = 1 Then
Bonus = salary * 0.1 * rating / 10
ElseIf jobClass = 2 Then
Bonus = salary * 0.09 * rating / 10
ElseIf jobClass = 3 Then
Bonus = salary * 0.07 * rating / 10
Else
Bonus = 0
End If
End Function

Select Case

       Оператор Select Case заменяет серию операторов ElseIf в том случае, когда одно выражение сравнивается с несколькими значениями

Function Bonus(jobClass, salary, rating)
Select Case jobClass
Case 1
Bonus = salary * 0.1 * rating / 10
Case 2
Bonus = salary * 0.09 * rating / 10
Case 3
Bonus= salary * 0.07 * rating / 10
Case 4, 5 ' можно включать несколько значений...
Bonus = salary * 0.05 * rating / 5
Case 6 To 8 ' ...или задавать диапазон
Bonus = 150
Case Else
Bonus = 0
End Select
End Function

Операторы циклов