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

End Sub

End If

End If

Else

Else

End If

End

End if

End if

End if

Else

End if

Else

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

Синтаксис вкладеного умовного оператора

If умова1 Then

if умова2 Then

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

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

Оператор If... Then.... Elseif

If головний умовний вираз Then

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

Else if умовний вираз 1Then

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

Else if умовний вираз 2Then

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

............................................

Else if умовний вираз NThen

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

[Elseпослідовність операторів B]

Наприклад. Розрахувати відсоток виконання (ВВ) плану випуску продукції підприємством за місяць, користуючись формулою

ВВ = ФВП/ПВП*100 , де ФВП – фактичний випуск продукції, ПВП –плановий випуск продукції. Для розрахунку спочатку створюємо інтерфейс (рис.13).

Рисунок 13. Вікно інтерфейсу по розрахунку відсотка виконання (ВВ) плану

При створенні інтерфейсу враховувалось, що можуть бути такі випадки:

план перевиконано на ... відсотків;

план недовиконано на .. відсотків;

план виконано на 100%.

Якщо введені нульове значення плану тоді потрібно вивести: «Не задано план. Помилка».

Значення властивостей елементів керування, встановлених на формі приведені в таб.5.

Таблиця 5. Значення властивостей елементів керування

Текст програмного коду:

Private Sub CommandButton1_Click()

If Val(ПЛАН) = 0 Then

MsgBox ("Не задано план" & " Помилка")

Відсоток_виконання = Val(ФАКТ) / Val(ПЛАН) * 100

If Відсоток_виконання > 100 Then

Виконання = "План перевиконано на"

Відсоток = Str(Відсоток_виконання - 100) + "%"

If Відсоток_виконання < 100 Then

Виконання = "План недовиконано на"

Відсоток = Str(100 - Відсоток_виконання) + "%"

Виконання = "План виконано на"

Відсоток = "100 %"

Конструкція оператора Select Case

Оператор Select Case використовується для розв’язання задач вибору одного варіанта із безлічі.

Синтаксис оператора Select Case

Select CaseВираз

Case Діапазон значень1

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

CaseДіапазон значень2

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

...............................................

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