2. Контрольні питання

8. Оператор циклу FOR – NEXT і його робота.

9. Що таке параметр циклу?

10. Оператори циклу з передумовою і з післяумовою.

11. Логічні операції для запису умов.

12. Що таке вкладені цикли, яка їхня структура?

13. Як здійснюється достроковий вихід з циклу7

14. Які види операторів циклу Ви ще знаєте?

15. Об’єкт Cells, звертання до нього і його властивості.

16. Алгоритм обчислення суми і кількості.

Приклад виконання

1 Напишіть програму, що для чисел, отриманих у попередній задачі, знаходить середнє значення, записує його на Лист Excel і виділяє кольором числа, які більш на 5% ніж обчислене середнє значення.

2 Серед значень Z із діапазону знайдіть найбільше значення Z

6.3 Приклад виконання лабораторної роботи.

Задача 6.3.1 В клітинці D2 знаходиться число Х. Підрахувати всі степені числа X, які менш ніж 1000. Записати їх на Лист Excel в два стовпчика: в одному стовпці - показник степені, в другому - її значення.

Текст програми

Sub степінь()

Dim x As Single, st As Single

' st – змінна для накопичення значень х в степені

Dim i As Integer, k As Integer ' i - номер строки, k - степінь

Range("A1").Value = "k"

Range("B1").Value = "x^k"

Range("D1").Value = "x"

Range("A1:D1").HorizontalAlignment = xlCenter

‘ Вирівнювання по центру ‘

x = Range("D2").Value

st = x : i = 2 : k = 1

Do

Cells(i, 1).Value = k

Cells(i, 2).Value = st

Cells(i, 2).NumberFormat = "0.0000"

i = i + 1 : st = st * x : k = k + 1

Loop While st < 1000

End Sub

Рис 6.1 Результати роботи програми

Задача 6.3.2 В діапазоні А1:С19 знаходяться числа. Перевірити чи є серед них числа, що дорівнюють 3. Вивести повідомлення.

Текст програми

Sub задача2()

Dim r As Range

For Each r In Range("A1:С19")

If r.Value = 3 Then

r.Select

MsgBox "Є числo =3"

Exit Sub

' Як тільки зустрічається потрібне число, виділяється клітина,

' що його містить, і відбувається достроковий вихід з процедури

End If

Next

MsgBox "Немає чисел=3"

' Ця частини програми працює тільки, якщо таких значень немає.

End Sub

Р ис. 6.2 Результати роботи програми

Приклад блок схеми до Задачі 6.3.

Лабораторна робота № 10

Тема: багатовимірні масиви

Мета роботи: навчитися створювати та обробляти двовимірні масиви.

Масив – це скупість однотипних елементів даних (чисел, логічних даних, символів), яким при обробці присвоєно певне ім’я. Масиви бувають одновимірними та багатовимірними.

Елементи двовимірного масиву (дані можуть бути подані у вигляді таблиці) визначаються іменем масиву та двома індексами: перший індекс означає номер рядка, а другий – номер стовпця, на перетині яких стоїть елемент, наприклад А(2,3).

Правила опису двовимірного масиву:

Dim <ім’я масиву> ( <початкове значення індексу по рядкам> To < кінцеве значення індексу по рядкам >, < початкове значення індексу по стовпцям > To < кінцеве значення індексу по стовпцям >) [As <тип елементів масиву>]

Приклад:

Dim А(1 To 4, 1 To 5 ) As Integer (масив розмірністю 4*5 цілих чисел.

Звернення до елементу двохвимірного масиву здійснюється наступним чином: вказується ім’я масиву а потім вказується спочатку номер рядка, а потім номер стовпця.

Наприклад. Визначити суму додатніх елементів масиву A_5×8.

Public Sub prog() Dim a(1 To 5, 1 To 8) As Integer Dim s As Integer s = 0 For i = 1 To 5 For j = 1 To 8 a(i,j)=Worksheets(1).Cells(i,j) If a(i, j) > 0 Then s = s + a(i, j) End If Next j Next I Worksheets(1).Range("A12")= s End Sub

Опис цілочисельного масиву з 5 рядків і 8 стовпців Занулення змінної s Цикл по рядкам (номер рядка від 1 до 5) Цикл по стовпцям (номер стовпця від 1 до 8) Ввід елементів масиву з листа Excel (номера рядків змінюються від 1 до 5, стовпців – від 1 до 8) Порівняння елементів масиву з нулем. Додавання додатних елементів до поточної суми позитивних елементів. Додавання кроку до лічильника j Додавання кроку до лічильника i Вивід результатів в комірку А12

Б лок-схема програми