Операторы языка VBA

Актуализация знаний:

запись макросов в пакете Microsoft Office, процедуры на языке Visual Basic for Application.

Объяснение нового материала:

1. условный оператор (схема, запись на VBA, пример);

2. цикл с предусловием (схема, запись на VBA, пример);

3. цикл с предусловием (схема, запись на VBA, пример);

4. цикл с постусловием (схема, запись на VBA, пример);

5. цикл с параметром (схема, запись на VBA, пример).

Закрепление материала:

примеры выполнения задач с помощью циклов. 

Презентация содержит 20 слайдов.

Операторы цикла Visual Basic for Application

Дисциплина

«Пакеты прикладных программ»

Преподаватель:

Завьялова Светлана Викторовна,

ГОУ СПО ТО «ТЭК»

Актуализация знаний

На какой вкладке находится инструментарий для работ с VBA?

ФОРМУЛЫ

РАЗРАБОТЧИК

ДАННЫЕ

Актуализация знаний

Установить последовательность действий при записи макроса в Excel?

1

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

2

На вкладке «Разработчик» выбрать «Остановить запись»

3

На вкладке «Разработчик» выбрать «Запись макроса»

4

Ввести имя макроса

Актуализация знаний

Что будет результатом выполнения процедуры task() при a = 1, 5, 10 ?

c = 1/5 = 0.2

a = 1

c = 5/5 = 1

a = 5

c = 10/5 = 2

a = 10

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

ПОЛНЫЙ

НЕПОЛНЫЙ

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

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

Оператор цикла.

Цикл с предусловием

Цикл While работает ПОКА условие выполняется

Оператор цикла.

Цикл с предусловием

Оператор цикла.

Цикл с постусловием

Цикл работает ДО ТОГО, как условие выполнится

Оператор цикла.

Цикл с постусловием

Оператор цикла.

Пример. Найти значения а = 7, 6, 5, …, 1

Цикл с предусловием

Цикл с постусловием

Оператор цикла.

Цикл с параметром

Оператор цикла.

Цикл с параметром

Оператор цикла.

Цикл с параметром

Вложенные циклы

Закрепление материала

Задание 1. Определит значения функции Y

Y (-5)=

-25

Y (5)=

25

Y (0)=

0

Y (10)=

1/5

Закрепление материала

Задание 2. Найти сумму чисел от 1 до 10

с помощью цикла с параметром

S = 0

For i = 1 To 10

S = S + i

Next i

Закрепление материала

Задание 2. Найти сумму чисел от 1 до 10

с помощью цикла с предусловием

S = 0

a = 1

While a

S = S + a

a = a+1

Wend

0 " width="640"