VB_VBA

Те, що говорилося про час життя й області визначення змінних, стосується здебільшого і масивів. Однак статичні масиви не можна визначити локально усередині процедури, а тільки глобально чи на рівні контейнера. Оператор Option Base дає змогу задати індексацію масиву з одиниці: Option Base 1

Необхідно щоб, цей оператор перебував у секції GeneralDeclarations контейнера (форми, модуля, класу). Припустимими значеннями для Option Base є тільки 0 і 1. З метою встановлення інших меж масиву необхідно використати такий синтаксис:

{Static | Public | Dim} назва_масиву _ ([нижня_межа Тo] верхня_межа)[As тип]

З визначенням верхньої і нижньої межі можна задати будь-який діапазон індексу. Це зручно, якщо індекс несе певне навантаження (дата, номер, вік тощо).

Увага! Часто, для зручності, елемент одновимірного масиву з нульовим індексом ігнорують (див. приклад 4.2). У таких випадках програма не залежатиме від Option Base.

Visual Basic дає змогу також створювати багатовимірні масиви. При оголошенні багатовимірного масиву описи кожної розмірності розділяються комами.

Приклад 4.2. Оголошення багатовимірного статичного масиву:

Dim aName(10, 25) As String '11*26=286 різних значень

Приклад 4.3. Оголошення багатовимірного статичного масиву типу Variant з зазначенням діапазонів індексів:

Dim aAr(80 Тo 120, 40 Тo 45, 1 Тo 256, 3, 1997 Тo 2050)

Кількість діапазонів в описі масиву (кількість індексів) визначає розмірність масиву. Одновимірні масиви, за аналогією з термінами лінійної алгебри, називають векторами, а двовимірні – матрицями (перший індекс задає номер рядка, а другий – номер стовпця). Розмірність при визначенні масивів може становити 60 (на практиці – не більше трьох).

Приклад 4.4. Ввести послідовність дійсних чисел (від 4-х до 20-ти чисел) і замінити перші три члени послідовності середнім арифметичним чисел цієї послідовності. У програмі послідовність дійсних чисел зберігати у статичному одновимірному масиві.

Public Sub main()

Dim mas(20) As Single, sa As Single Dim n As Byte, i As Byte

Do

n =InputBox("Введіть n > 3 і n < 21", "Введення")

Loop Until n > 3 And n < 21 sa = 0

For i = 1 To n

mas(i)=InputBox("Введіть число!", "Введення") sa = sa + mas(i)

Next i

Debug.Print "Початковий масив:";

For i = 1 To n

Debug.Print mas(i);" "; ' виводимо масив в один рядок

Next i

Debug.Print " " ' перехід на новий рядок sa = sa / (n + 1) ' середнє арифметичне For i = 1 To 3 ' заміна елементів mas(i) = sa

Next i

Debug.Print "Кінцевий масив:"; For i = 1 To n

Debug.Print mas(i);" ";

Next i Debug.Print " "

End Sub

4.1.2. Динамічні масиви. Іноді при оголошенні масиву його розмір і/або розмірність наперед невідомі (наприклад, визначаються користувачем у діалозі). У цьому випадку варто створити динамічний масив, що дає змогу змінювати його розмір чи розмірність під час виконання програми. Динамічний масив визначається за два кроки. Спочатку масив описують у секції General-Declarations контейнера (форми, модуля, класу) без зазначення розмірності й верхніх меж, наприклад:

Dim aDynArray() As Single

Потім за допомогою оператора ReDim у деякій процедурі установлюють його фактичний розмір і/або розмірність.

Visual Basic 6.0 дає змогу присвоїти значення одного масиву іншому так само, як це має місце для змінних. Наприклад:

Sub ByteCopy(oldCopy() As Byte, newCopy() As Byte) newCopy = oldCopy

End Sub

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

4.2. Одновимірні масиви (вектори)

Над одновимірним масивом (вектором) виконують дві базові операції: отримання деякого елемента з масиву і розміщення елемента у масиві (порівняння і присвоювання). Visual Basic не має засобів введення/виведення усіх елементів масиву відразу, тому введення і виведення значень здійснюють поелементно. Ініціалізують масиви через введення даних і присвоювання.

Іноді в тексті навчальної програми уведення масиву займає більше місця, ніж запис алгоритму рішення, що утруднює сприйняття програми. Тому в прикладах цього параграфа ми здебільшого опускатимемо ініціалізацію масиву, а користуватимемося тільки математичним формулюванням задачі типу: “Дано натуральне число n і дійсні числа а1, а2,..., аn. Знайти …”.

Зупинимося докладніше на введенні та використанні у програмі числа n і чисел а1, а2,..., аn. У Visual Basic кількість елементів масиву, їхню розмірність і тип необхідно явно задати до моменту використання масиву в програмі. Якщо кількість чисел (n) визначається у діалозі з користувачем, то для зберігання чисел а1, а2,..., аn використовують динамічний одновимірний масив з верхньою межею n, ігноруючи при цьому елемент масиву з нульовим індексом.

Існує чимало розмаїтих задач на одновимірні масиви. Як і всі задачі загалом, умовно їх можна розділити на три види:

1)прості задачі, які розв’язують в “одне розуміння”;

2)стандартні задачі;

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

Очевидно, що без уміння вирішувати задачі перших двох видів неможливо вирішувати нестандартні задачі. Розглянемо кілька прикладів задач першого виду.

Приклад 4.7. У масиві а кожен елемент дорівнює 0 чи 1. Замінити усі нулі одиницями, і навпаки.

Досить одного оператора присвоювання у тілі циклу:

For i= 1 To n a(і)=1-a(і)

Next i

Приклад 4.8. У масиві кожен елемент дорівнює 0, 1 чи 2. Переставити елементи масиву так, щоб послідовно розташувати усі нулі, потім усі одиниці та усі двійки. Додаткового масиву не заводити.

Можна не переставляти елементи масиву, а обчислити кількості 0, 1 і заповнити масив заново необхідним способом:

k0=0 : k1=0

For i= 1 To n

If a(і) = 0 Then ' кількість 0 k0=k0+1

ElseIf a(і) = 1 Then ' кількість 1 k1=k1+1

End If Next i

For i= 1 To n ' заповнення всього масиву 2 a(і)=2

Next i

For i= 1 To k0 ' початкове заповнення 0 a(і)=0

Next i

For i= k0+1 To k0+k1 ' заповнення 1 a(і)=1

Next i

Перелічимо деякі стандартні задачі на одновимірні масиви:

1)визначення найбільшого/найменшого елемента;

2)визначення суми/добутку елементів (безумовне та умовне);

3)підрахунок/заміна елементів, що відповідають заданій умові;

4)визначення заданого порядку розміщення елементів;

5)видалення елемента, введення елемента в задану позицію;

6)перерозташування (інвертування, циклічне зсування) елементів;

7)випадкова вибірка елементів (з повтореннями і без повторень);

8)злиття двох упорядкованих масивів в один;

9)пошук заданого елемента:

а) у неупорядкованому масиві; б) в упорядкованому масиві;

10)сортуваня масиву (прості методи).

Задачі 1 – 8 розглянемо в прикладах цього параграфа. Задачам 9 і 10 присвятимо окремо наступні два параграфа. До складних задач можна зачислити поліпшені методи сортування масивів, пошук моди і медіани масиву; алгоритми генерування комбінаторних об’єктів, алгоритми на графах і т. д.

До стандартних задач зачислимо і задачу обчислення значення многочлена у деякій точці х, оскільки коефіцієнти многочлена зазвичай зберігають в одновимірному масиві.

Приклад 4.9. Обчислення значення многочлена степеня n у точці х, коефіцієнти якого перебувають в масиві А, за схемою Горнера:

Pn(х) = А0 хn + А1 хn–1 +... + Аn–1 х + Аn =

= (...(((0 х+А0) х + А1) х + А2) х +... + Аn–1) х + Аn.

…

p = 0

For i = 0 To n

p = p * x + a(i)

Next i

…

Приклад 4.10. Дано натуральне число n і послідовність дійсних чисел а1, а2,..., аn. Знайти перше від початку послідовності найменше число аі (і=1..n) і останнє за порядком у послідовності найбільше число аj (j=1..n) і поміняти їх місцями.

Для розв’язання задачі достатньо визначити порядкові номери першого від початку найменшого числа і останнього за порядком найбільшого числа послідовності.

68 Програмування мовою Visual Basic/VBA

Option Explicit Dim a() As Single Public Sub main() Dim x As Single

Dim n As Byte, i As Byte, kmin As Byte, kmax As Byte

Do

n = InputBox("Введіть n <= 20", "Введення")

Loop Until n <= 20 ReDim a(n)

For i = 1 To n

a(i) = InputBox("Введіть " & i & " число!")

Next i

Debug.Print "Початковий масив: ";

For i = 1 To n

Debug.Print a(i); " ";

Next i Debug.Print " "

kmin = 1 : kmax = 1

For i = 2 To n

If a(kmin) > a(i) Then kmin = i If a(kmax) <= a(i) Then kmax = i