VBA. Основные конструкции

Типы

Integer
Double
String
Boolean
Date
Variant
Type Point
x as Double
y as Double
End Type

Переменные

Dim x
Dim y as Integer
Dim z as New Collection
Dim a(1 to

Объекты

Пример 1
Dim r As Range
Set r = Range("A1")
r.Value = 5
r.AddComment ("Test")
Set

Процедуры

Sub ( [Parameters] )
…
End Sub
Процедура не возвращает значений
Пример
Sub PrintLog

Функции

Function ( [Parameters] ) as
…
=
End Function
Пример
Function

Операторы

Условный оператор

If Then
…
[
Else | ElseIf Then
…
]
End If
Пример
If a

Цикл For

For = To [ Step ]
…
Next []
Пример
For

Цикл For Each

For Each [ As ] In

Цикл Do

Do [ While ]
…
[ Exit Do ]

Пример1 : поиск корней ax2+bx+c=0

Чтение программ

Function ToString(value)
If IsArray(value) Then
For Each x In value

Сортировка выбором

Массив A(1..N)

Массив A(1..N)

Для i=1 до N-1

Элементы A(1)..A(i) отсортированы

Найти минимальный элемент
Поменять

Чтение программ: сортировка выбором

Function ToString(value)
…
End Function
Sub SelectionSort(A)
For I =

Поиск корней: F(x)=0

L,R

DO

x=(L+R)/2

F(x)=0?

x

Sign(F(x)) = Sign(F(L))

L=x

R=x

да

да

нет

нет

Пример2 : поиск корней ax2+bx+c=0