Студопедия
Новини освіти і науки:
МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах


РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання


ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ"


ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ


Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків


Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні


Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах


Гендерна антидискримінаційна експертиза може зробити нас моральними рабами


ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ


ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів



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 - крок на який змінюється значення змінної]

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




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

<== попередня сторінка | наступна сторінка ==>
End Sub | End Sub

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

  

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.


Генерація сторінки за: 0.029 сек.