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


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


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


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


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


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


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


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


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


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



Контакти
 


Тлумачний словник
Авто
Автоматизація
Архітектура
Астрономія
Аудит
Біологія
Будівництво
Бухгалтерія
Винахідництво
Виробництво
Військова справа
Генетика
Географія
Геологія
Господарство
Держава
Дім
Екологія
Економетрика
Економіка
Електроніка
Журналістика та ЗМІ
Зв'язок
Іноземні мови
Інформатика
Історія
Комп'ютери
Креслення
Кулінарія
Культура
Лексикологія
Література
Логіка
Маркетинг
Математика
Машинобудування
Медицина
Менеджмент
Метали і Зварювання
Механіка
Мистецтво
Музика
Населення
Освіта
Охорона безпеки життя
Охорона Праці
Педагогіка
Політика
Право
Програмування
Промисловість
Психологія
Радіо
Регилия
Соціологія
Спорт
Стандартизація
Технології
Торгівля
Туризм
Фізика
Фізіологія
Філософія
Фінанси
Хімія
Юриспунденкция






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. Значення властивостей елементів керування

 

Елемент керування Назва властивості Значення властивості
TextBox1 Name Font Text План Times New Roman, ;жирний, 14
TextBox2 Name Font Text Факт Times New Roman, ;жирний, 14
Label 1 Caption Font Факт Times New Roman, ;жирний, 14
Label 2 Caption Font План Times New Roman, ;жирний, 14
Label 3 Name Caption Виконання
Label 4 Name Caption Відсоток
CommandButton1 Caption Обчислити
Form Caption Програма обчислення відсотка виконання плану

 

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

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

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




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

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

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

 

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


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