Теоретичний матеріал. Приклад: створимо програму, використавши масив з фіксованими границями для збереження температури за тиждень

Приклад: створимо програму, використавши масив з фіксованими границями для збереження температури за тиждень. Форма повинна виглядати так, як показано на рисунку. У меню Project вибрати Add Module (додати модуль) і відкрити його для створення стандартного модуля й оголошення в ньому масиву. Увести наступні оператори:

Option Base 1

Public Temperatures(7) As Variant

Оператор Option Base 1 встановлює значення 1 для початкового індексу масиву.

Для першої кнопки ввести:

Private Sub Command1_Click()

Cls

Prompt$ = " ввести найбільшу температуру"

For і% = 1 To 7

Title$ = "День" & і%

Temperatures(i%) = InputBox(Prompt$, Title$)

Next i%

End Sub

Для другої кнопки:

Private Sub Command2_Click()

Print "Найбільше значення температури за тиждень"

For і% = 1 To 7

Print "день"; і%, Temperatures(і%)

total! = total! + Temperatures(i%)

Next i%

Print

Print "середнє значення температури"; total! / 7

End Sub

Запустити програму. Клацнути на кнопці Введення. Введіть у вікно InputBox сім значень температур. Клацнути на кнопці “Вихід”. Для третьої кнопки в процедурі ввести END.

Приклад: Скласти програму сортування масиву

Модуль:

Option Base 1

Public d(5) As Integer

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

Private Sub Command1_Click()

Print " Заданий масив"

For i = 1 To 5

d(i) = 6 - i

Print d(i)

Next i

For j = 1 To 5

For i = 1 To 4

If d(i) > d(i + 1) Then c = d(i): d(i) = d(i + 1): d(i + 1) = c

Next i

Next j

Print " Масив після сортування"

For i = 1 To 5

Print d(i)

Next i

End Sub

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

1. Що таке масив?

2. Як оголосити масив?

Завдання для самостійного розв’язку.

1. Створити програму для обчислення середнього бала групи за результатами сесії.

2. Знайти найкращого студента в групі.

3. Знайти найгіршого студента групи.

4. Вивести список студентів середній бал яких >4.

5. Вивести список студентів середній бал яких <4.5.

6. Вивести список студентів, у яких середній бал=5.

7. Вивести список студентів, які мають бал менше середнього.

8. За даними задачі 8 визначити суму максимального прибутку.

9. За даними задачі 8 визначити суму мінімального прибутку.