Private Sub CommandButton1_Click(). Dim Місяць As Integer 'Поточний місяць

Dim Місяць As Integer 'Поточний місяць

Dim МCум As Currency 'Місячна сума планових витрат на ремонт

Dim Залишок As Currency 'Макс_Річна_Сума-Річна_Сума

Dim Річна_Сумма As Currency 'Сума декількох місяців (до 12) планових витрат на ремонт

Dim Макс_Річна_Сумма As Currency

Dim Перевищення As Currency 'Річна_Сума-Макс_Річна_Сума

Річна_Сумма = 0

Макс_Річна_Сумма = Val(InputBox(" Введіть максимальну річну суму", " Значення максимальної суми витрат"))

TextBox1.Text = Format(Макс_Річна_Сумма, " #, ###.###")

Місяць = 0

Do While Річна_Сумма < Макс_Річна_Сумма

Місяць = Місяць + 1

МCум = Val(InputBox(" Введіть передбачувані витрати", Str(Місяць) + " -й Місяць"))

Річна_Сумма = Річна_Сумма + МCум

If Місяць = 12 Then

Залишок = Макс_Річна_Сумма - Річна_Сумма

MsgBox " Планування витрат на фінансовий рік завершено" & " За 12 міс ви плануєте витратити" + Str(Річна_Сумма) + " Грн." + " Залишок становить" + Str(Залишок) + " Грн.", 0, " Річні витрати"

End

End If

Loop

Перевищення = Річна_Сумма - Макс_Річна_Сумма

MsgBox " Ви маєте намір витратити" & Str(Річна_Сумма) + " Грн." + " за" + Str(Місяць) + " Міс., " + " що перевищує максимально допустиму суму на" + Str(Перевищення) + " Грн.", 0, " Річні витрати”

8.6. Алгоритми обробки даних складних типів

 

В обчислювальних процесах використовуються такі складні дані:

 

Масиви змінних.

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

Типи даних що визначаються користувачем.

Файли послідовного та довільного доступу.

 

8.6.1. Масиви змінних

 

Масив – упорядкований набір однотипних елементів з одним ім’ям. Масиви змінних- упорядкований набір однотипних змінних які мають певні номера. Наприклад, рядок тексту може бути поданий у вигляді масиву символів, вектор – у вигляді масиву дійсних чисел, а матриця – у вигляді масиву векторів. За визначенням усі елементи масиву мають однаковий тип. Однак бувають винятки: коли тип даних масиву є типом Variant, окремі елементи можуть містити дані різних типів (об’єкти, рядки, числа).

Кожний елемент масиву має свій порядковий номер (індекс). Кількість індексів визначає вимірність масиву.

Масиви можуть бути одновимірними (вектори), двовимірними (матриці), тривимірними і т.д. Межі індексів (індексу) вказують на кількість елементів в масиву. Номера елементів масиву можуть відраховуватись від нуля або одиниці, Наприклад, масив A(4) містить чотири елемента а двовимірний масив A(3, 4) має 12 елементів.

Для опису масиву виділяється неперервна область оперативної пам’яті, в якій розташовані всі його елементи. Ємність пам’яті залежить від кількості елементів масиву та їх типу. У мові Visual Basic розрізняють статичні й динамічні масиви. Межі статичного масиву встановлюються на етапі розроблення і можуть змінюватися тільки в новій версії програми. Динамічний масивів дозволяє змінювати межі в ході виконання програми. При роботі з масивами використовують індексовані змінні. На відмінну від звичайної змінної, індексована змінна має не тільки ім’я але й індекс який вказує місце знаходження цієї змінної в масиві тобто її номер, індекс це ціле невід’ємне число, індекс беруть в круглі дужки. Для двовимірних масивів використовують два індекси, для трьохвимірних три (третій номер вказує на номер двовимірного масиву, так як двовимірних масивів у трьохвимірному може бути декілька) і т.д., індекси в багатовимірних масивах теж беруть в дужки.

Щоб індексовані змінні можна було використовувати в програмі, потрібно спочатку об’явити масив.

Наприклад: