Студопедия — Private Sub CommandButton1_Click(). Dim Місяць As Integer 'Поточний місяць
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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 розрізняють статичні й динамічні масиви. Межі статичного масиву встановлюються на етапі розроблення і можуть змінюватися тільки в новій версії програми. Динамічний масивів дозволяє змінювати межі в ході виконання програми. При роботі з масивами використовують індексовані змінні. На відмінну від звичайної змінної, індексована змінна має не тільки ім’я але й індекс який вказує місце знаходження цієї змінної в масиві тобто її номер, індекс це ціле невід’ємне число, індекс беруть в круглі дужки. Для двовимірних масивів використовують два індекси, для трьохвимірних три (третій номер вказує на номер двовимірного масиву, так як двовимірних масивів у трьохвимірному може бути декілька) і т.д., індекси в багатовимірних масивах теж беруть в дужки.

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

Наприклад:







Дата добавления: 2014-11-10; просмотров: 533. Нарушение авторских прав; Мы поможем в написании вашей работы!



Шрифт зодчего Шрифт зодчего состоит из прописных (заглавных), строчных букв и цифр...

Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...

Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Ведение учета результатов боевой подготовки в роте и во взводе Содержание журнала учета боевой подготовки во взводе. Учет результатов боевой подготовки - есть отражение количественных и качественных показателей выполнения планов подготовки соединений...

Сравнительно-исторический метод в языкознании сравнительно-исторический метод в языкознании является одним из основных и представляет собой совокупность приёмов...

Концептуальные модели труда учителя В отечественной литературе существует несколько подходов к пониманию профессиональной деятельности учителя, которые, дополняя друг друга, расширяют психологическое представление об эффективности профессионального труда учителя...

Алгоритм выполнения манипуляции Приемы наружного акушерского исследования. Приемы Леопольда – Левицкого. Цель...

ИГРЫ НА ТАКТИЛЬНОЕ ВЗАИМОДЕЙСТВИЕ Методические рекомендации по проведению игр на тактильное взаимодействие...

Реформы П.А.Столыпина Сегодня уже никто не сомневается в том, что экономическая политика П...

Studopedia.info - Студопедия - 2014-2024 год . (0.01 сек.) русская версия | украинская версия