Высокоуровневые методы информатики и программирования. Степанов А.Г. - 46 стр.

UptoLike

Составители: 

46
ачало To Конец [Step Шаг]
ры]
Next [Счетчик]
For Счетчик=Н
[Операто
[Exit For]
[Операторы]
For Счетчик = Начало To Конец Step Шаг Операторы1 Next Следующий оператор программы
Условие
продолжения
= True
Условие
продолжения
= False
Операторы1
Следующий
оператор
программы
Счетчик <=
Конец
Счетчик =
Счетчик + Шаг
FalseTrue
Счетчик =
Начало
Рис. 8. Схема и алгоритм выполнения оператора For To Next
Пример 15. Программа с оператором For To Next, реализующая задачу при-
мера
1 To 4) As Currency, _
o 4) As Currency, i As Integer
сывается
2 'Рассчитывается значение налога и запоминается
итывается значение к выдаче
+ 1, 4) = К_Выдаче(i) 'Значение к выдаче возвращается в таблицу Excel
E
объектами предусмотрена еще одна
разн ла For Each Next:
нт In Группа
ры]
10.
Sub Расчет_заработной_платы4()
Dim Начислено(1 To 4) As Currency, Налог(
К_Выдаче(1 T
For i = 1 To 4
Начислено(i) = Cells(i + 1, 2) 'В первую ячейкe массива Начислено запи
'содержимое второй строки и второй колонки исходной таблицы Excel
Налог(i) = Начислено(i) * 0.1
'в соответствующей ячейке
Cells(i + 1, 3) = Налог(i) 'Значение налога возвращается в таблицу Excel
К_Выдаче(i) = Начислено(i) - Налог(i) 'Рассч
'и запоминается в соответствующей ячейке
Cells(i
Next i
nd Sub
Наконец, для автоматизации работы с
овидность оператора цик
For Each Элеме
[Операто