Цель работы: изучение синтаксиса и порядка применения оператора цикла For.

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

Цель работы: изучение синтаксиса и порядка применения оператора цикла For.

ЗАДАНИЯ для выполнения

Ввести последовательность (массив) из 15 чисел и:

1. Найти количество положительных чисел.

2.

3. Найти сумму положительных чисел.

Найти количество положительных чисел.

Sub Polozh()

Dim Mass(0 To 15) 'Объявление массива

Dim Count As Integer 'Определение типа переменной

Count = 0 'Инициализация переменной

For i = 2 To 16 'Цикл

If Worksheets(1).Cells(i, 1).Value > 0 Then Count = Count + 1 'Проверка условия

Next i

Worksheets(1).Range("A18").Value = "Положительных:"

Worksheets(1).Range("B18").Value = Count 'Вывод результата в ячейку

End Sub

Найти сумму положительных чисел.

Sub Sum()

Dim Mass(0 To 15) 'Объявление массива

Dim Sum As Double 'Определение типа переменной

Sum = 0 'Инициализация переменной

For i = 2 To 16

If Worksheets(2).Cells(i, 1).Value > 0 Then Sum = Sum + Worksheets(2).Cells(i, 1).Value 'Проверка условия

Next i

Worksheets(2).Range("A18").Value = "Сумма полож::"

Worksheets(2).Range("B18").Value = Sum 'Вывод результата в ячейку

End Sub

Вывод:

В данной работе использовался оператор цикла for. Цикл for позволяет организовать многократное повторение операций. С его помощью в лабораторной работе считывалось значение из ячейки в массив и проверялось условие.

Познавательные статьи:



Техника прыжка в длину с разбега

Тактические действия в защите

История Олимпийских игр

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