Поняття умовного оператора.

Прогамування обчислювальних процесів ,що розгалужуються

Прогамування лінійних обчислювальних процесів

Функція MessageBox.

Ця функція використовується для одержання від користувача відповідей “так” або “ні” і відображення коротких повідомлень , наприклад про помилки або попередження. Прочитавши повідомлення , користувач клацанням на кнопці “ОК” закриває вікно діалогу.

Синтаксис функції:

MsgBox "Рядок повідомлення",0 , " Заголовок вікна "

Приклад:

1.завантажити MS Exсel

2.ввімкнути панель Visual Basic

3.редактор Visual Basic

4.вікно проекту

Sub My()

Dim A As String

A = InputBox("Введіть призвище , ім'я , по батькові студента", "Вікно ідентифікації")

MsgBox A, 0, "Перевірка ідентифікації"

End Sub

5.запустити програму на виконання

Локальні змінні .

визначаються в середині процедури або функції. Значення локальних змінних ,оголошених в операторі Static ,зберігаються протягом усього часу використання програми , а значення змінних оголошених в операторі Dim ,існують тільки протягом часу виконання процедури; значення цих змінних при черговому виклику процедури не будуть визначені.

Val(Text1.Text) –перетворення рядка на числовий вираз.

Улінійному обчислювальному процесі всі операції виконуються послідовно у порядку їх запису. Тому всі оператори рпрограми ,що реалізують цей процес ,також виконоються у порядку їх запису , а саме: зліва направо й зверху в низ.

Приклад. Програма обчислення вартості товару за формулою:

Сума=Ціна*Кількість

Постановка задачі:

Спроектувати додаток для розрахунку вартості купівлі (С) ,якщо відомо ціну одиниці товару (Ц) і кількість куплених одиниць (N).

Етапи розв‘язання задачі:

1.Розробка алгоритму;

2.Розробка призначеного для користувача інтерфейсу ,що включає проектування ескізу екранної форми і сценарію діалогу;

3.Введення тексту програми;

Private Sub Command_Click()

Dim Ціна As Currency

Dim Кількість As Integer

Dim Вартість As Single

Ціна=Val(Text1.Text)

Кількість= Val(Text2.Text)

Вартість = Ціна*Кількість

Text3.Text= Вартість

End Sub

4.Виконання програми на ПК;

5.Збереження спроектованого додатка;

Private Sub Command1_Click()

Dim Q1, Q2, Q3, Q4, Q5, rq, rq1, rq2, rq3, rq4, rq5 As Integer

Text6.Text = ""

Text9.Text = ""

Q1 = Val(Text1.Text)

Q2 = Val(Text2.Text)

Q3 = Val(Text3.Text)

Q4 = Val(Text4.Text)

Q5 = Val(Text5.Text)

If Q1 = 12 Or Q1 = 21 Then rq1 = 1 Else rq1 = 0

If Q2 = 1 Then rq2 = 1 Else rq2 = 0

If Q3 = 2 Then rq3 = 1 Else rq3 = 0

If Q4 = 23 Or Q4 = 32 Then rq4 = 1 Else rq4 = 0

If Q5 = 1 Then rq5 = 1 Else rq5 = 0

rq = rq1 + rq2 + rq3 + rq4 + rq5

Text9.Text = InputBox("Введіть прізвище , iм'я ,групу (зразок-Петренко Іван ,ФБП-17)", "Вікно ідентифікації", , 1000, 3000)

If rq = 5 Then Text6.Text = "5 відмінно"

If rq = 4 Then Text6.Text = "4 добре"

If rq = 3 Then Text6.Text = "3 задовільно"

If rq < 3 Then Text6.Text = "2 незадовільно"

If rq < 3 Then Text10.Text = "Перездача за окремим графіком PANDA чекає на Вас "

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub