Dim n as integer

N = Int (10*Rnd())

If N=7 Then

MsgBox “Вы выиграли. Ваше число - ” & N

Else

MsgBox “Вы проиграли. Ваше число - ” & N

End If

FOR – NEXT – позволяет организовать выполнение некоторых действий определенное число раз. Например, программа высчитывает 5!

Res = 1

For I=1 To 5 Step 1

Res =ResI*I

Next

WHILE – WEND – позволяет выполнять некоторые действия, пока заданное условие имеет значение True.

Res = 10

While Res > 0

Res = Res-1

Wend

SELECT CASE – переключает выполнение программы на один из нескольких возможных участков кода в зависимости от значения переменной.

Select Case Res

Case 4 To 5

MsgBox “Вы показали замечательный результата”

Case 3

MsgBox “Вам нужно позаниматься”

Case 1 To 2

MsgBox “Придется прослушать курс повторно!”

Case Else

MsgBox “Других оценок не бывает”

End Select

FOR – EACH – NEXT – позволяет перебирать все объекты семейства или элементы массива и выполнить одни и те же действия над каждым объектом или элементом.

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

Dim Country(10) as String

Dim C as Variant

For Each C In Country

MsgBox C

Next

WITH – позволяет применять более короткие ссылки на объекты.

Процедуры и функции.

Использование процедур и функций позволяет разделить программу на логические сегменты.

Если процедура без параметров, то для ее описания: Sub Proc1().

Если процедура с параметрами, то для ее описания: Sub Proc2(par1,par2).

Чтобы описать функцию:

Function Fun1(ByVal Var1 As Integer, ByVal Var2 As Integer) As Integer

При написании программ можно использовать следующие процедуры функции:

• Abs(x) - модуль числа х;

• Exit Sub, Exit Function - выход из процедуры или функции;

• Exit Do, Exit For - выходы из циклов;

• Int(x) - возвращает целую часть числа х;

• Len(s) - возвращает длину строки s;

• Now - возвращает текущую дату и время;

• Sqr(x) - возвращает квадратный корень из числа х;

• StrComp - сравнение строк;

• Rnd() - возвращает случайное число на промежутке от 0 до 1;

Редактор Visual Basic for Application.

Чтобы загрузить редактор VBA из среды Excel выбираем СЕРВИСМАКРОСРЕДАКТОР VISUAL BASIC. На экране появятся следующие окна:

1. Окно проекта – содержит иерархический список элементов пользовательского проекта VBA. Это рабочая книга, в которой находится проект, рабочие листы, диаграммы, модули, классы модулей и пользовательские диалоговые окна.

2. Окно свойств – позволяет просматривать и устанавливать свойства различных объектов проекта, изображенных в окне проекта. Свойства выводятся либо в алфавитном порядке, либо по логическим категориям.

3. Окно редактора кода – место ввода и редактирования программ. Два раскрывающихся списка, расположенных в верхней части окна, помогают ориентироваться в программе. Слева выбирается объект, а справа – событие данного объекта. Заголовок соответствующей процедуры автоматически включается в проект.

Окно редактора форм – позволяет создавать диалоговые окна, размещать на них элементы управления и тестировать их.

Чтобы добавить в проект модуль, выбираем ВСТАВКАМОДУЛЬ. В окне редактора кода появится новый модуль, а имя его отобразится в окне проекта. Для написания процедур для обработки элементов пользовательского проекта, делаем двойной щелчок по названию элемента в окне проекта и в окне редактора кода выбираем нужную процедуру.

Для осуществления диалога с пользователем, в программах можно использовать две функции:

• Окно текстового сообщения

MsgBox ( Prompt, Buttons, Title )

Где Prompt - сообщение для пользователя,

Buttons - кнопки, которые должны появится в данном окне,

Title - заголовок окна.

Результатом функции является нажатая кнопка на появившемся окне.

Например, следующее сообщение позволяет узнать у пользователя: следует ли продолжить работу далее или стоит выйти из программы?

• Окно для ввода текстовой информации