Dim A(3,4) As String

 

Цей масив містить дванадцять індексованих змінних: A(1, 1), A(1, 2), A(1, 3), A(1, 4) - перший рядок змінних масиву; A(2, 1), A(2, 2)........A(2, 4) – другий рядок; A(3, 1), A(3, 2),.....A(3, 4) – третій рядок масиву.

 

Оголошення області видимості масиву. Для створення відкритого масиву (Public array) треба використати оператор Public у секції процедури Declaration.

Для створення масиву рівня модуля (module level array) треба використати оператор Private у секції процедури Declaration модуля.

Для створення локального масиву (local array) треба використати оператор Private у секції процедури об’єкта.

8.6.2. Масиви елементів керування

 

Це набір елементів керування одного типу з одним і тим самим ім’ям. Створюється цей масив копіюванням елементів керування через буфер пам’яті.

Розглянемо задачу на використання індексованих змінних масиву.

Постановка задачі. На m складах підприємства знаходиться n видів продукції. Відомо кількість продукції a_ij на кожному складі та вартість b_j одиниці продукції. Потрібно визначити:

 

Скільки продукції кожного виду знаходиться на всіх складах.

Скільки продукції всіх видів знаходиться на кожному зі складів.

На якому складі знаходиться максимальна кількість продукції та якого виду.

Яка сумарна вартість продукції, що зберігається на кожному зі складів.

Яка сумарна вартість продукції, що зберігається на всіх складах підприємства.

Покласти m = 3, n = 4.

Етапи розв’язання задачі. Продукцію, що є на складах, подамо у вигляді матриці А з елементами a_ij, де перший індекс означає номер складу, а другий - вид продукції, тобто матриця має вигляд:

 

В i - му рядку цієї матриці записано кількість продукції n – го виду на i – му складі, а в j – му стовпці – кількість продукції j – го виду на різних складах.

Вартість продукції кожного виду запишемо у вигляді вектора-стовпця

 

де b_j – вартість j -го виду продукції.

Для визначення кількості продукції j -го, що зберігається на всіх складах, необхідно визначити суму елементів кожного стовпця матриці А:

де j = 1.

Для визначення сумарної кількості продукції всіх видів, що зберігається на i – му складі, тобто суму елементів кожного рядка матриці А:

де i =1.

Для розрахунку сумарної вартості продукції, що зберігається на кожному зі складів, треба помножити матрицю А на матрицю В:

C = A*B

*

де C_i - сумарна вартість продукції всіх видів, що зберігається на i – му складі й розраховується за формулою

Для розрахунку сумарної вартості продукції, що зберігається на всіх складах підприємства, потрібно визначити суму елементів вектора С:

Спроектована форма для діалогу користувача при рішенні задачі показана на рис. 8.6.

Рисунок 8.6. Екранна форма рішення задачі

 

Кількість продукції та вартість кожного виду продукції вводиться при запуску програми в роботу.

Елементи керування які використанні при створенні інтерфейсу та властивості Caption (заголовок) подані в таблиці 8.6.

 

Таблиця 8.6. Властивості Caption

 

№	Елемент керування	Значення властивості
	Label1	Номер складу
	Label2	Вид продукції за номером
	Label3	Вектор-стовпець вартості кожного виду продукції
	CommandButton1	Обчислити, скільки продукції всіх видів знаходиться на вибраному складі
	CommandButton2	Обчислити, скільки продукції заданого виду знаходиться на всіх складах
	CommandButton3	Пошук максимальної кількості продукції
	CommandButton4	Обчислити сумарну вартість продукції, що зберігається на кожному зі складів.
	CommandButton5	Обчислити сумарну вартість продукції, що зберігається на всіх складах підприємства

 

Текст програми має такий вигляд: