• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

End Sub

End Select

Case Else

Select Case D

Dim O, P, C As String

End Select

Case Else

Послідовність операторів N

Виразом можуть бути значення однієї змінної або декількох чи формули. Вираз може приймати числове або текстове значення. Логіка роботи оператора така. У першу чергу обчислюється значення Виразу. Знайдене значення порівнюється із значенням, записаними в Діапазонах значень після ключового слова Case. Виконуватися буде та послідовність операторів, для яких значення Виразу збігається зі значеннями, записаними в Діапазоні Значень. Вираз можна записувати так:-1,1,2,5і так далі, або 600 To 9900це означає будь-яке число між 600 і 9900. Для того, щоб вказати значення (для діапазону значень) яке більше чи менше або дорівнює якійсь величіні виразу записують так Is >= 23,4. Для символьного виразу Is <> “Косенко Л.І.”, це означає будь-який рядок, який відрізняється від рядка “Косенко Л.І.”.

У виразі можуть бути числа, діапазон, умова, наприклад: -1,1.2,5, 600 To 9900, Is>23,4.

Розглянемо таку задачу. Визначити заробітну плату робочого (ЗП), якщо враховувати його розряд по спеціальності (P) та стаж роботи (C). Заробітна плата нараховується по формулі ЗП = О*К_р. Коефіцієнт К_р розраховується таким чином: К_р = 1, якщо P*C <=8. К_р = 1,3 якщо 8<P*C <=15. К_р = 1,5 якщо P*C >=15.

Процедура вирішення задачі при натисненні кнопки CommandButton1.

Private Sub CommandButton1_Click()

O = InputBox("Введіть значення окладу ", "Розрахунок заробітної плати")

A1 = Val(O)

P = InputBox("Введіть значення розряду працюючого", " Розрахунок заробітної плати ")

A2 = Val(P)

C = InputBox("Введіть значення стажу роботи", " Розрахунок заробітної плати ")

A3 = Val(P)

D = P * C

Case Is <= 8

z = O * 1

MsgBox "Заробітна плата (для PC<=8) становить" & z & "грн."

Case Is <= 15

z = O * 1.3

MsgBox ("Заробітна плата (для <8PC<=15) становить " & z & " грн.")

z = O * 1.5

MsgBox (" Заробітна плата (для PC>15) становить” & z & " грн.")

5. Циклічні алгоритми обробки економічної інформації

Циклічні алгоритми обробки економічної інформації представляють циклічні обчислювальні процеси.

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

Розрізняють два види циклів: з відомим і невідомим числом повторень. Для циклів з відомим числом повторень застосовується оператор For......Next.

Синтаксис такого оператора такий:

ForІм’я змінної = Початкове значення змінної To Кінцеве значення змінної [Step - крок на який змінюється значення змінної]

Оператори, що повторюються (тіло циклу)

Переглядів: 452