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

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

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

Функція 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.запустити програму на виконання

Вікно ідентифікації	ОК
Введіть призвище, ім'я, по батькові студента	Отмена
Петренко П.П. ФБП-27

Перевірка ідентифікації
Петренко П.П. ФБП-27
		ОК

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

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

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

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

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

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

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

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

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

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

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

ЦІНА	1.00
КІЛЬКІСТЬ
ВАРТІСТЬ	5,00
ОБЧИСЛИТИ

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.Збереження спроектованого додатка;

1.Однорядкова форма запису	2.Багаторядкова форма запису
If умова Then оператор 1 Else оператор 2	If умова Then Послідовність операторів 1 Else Послідовність операторів 2 End if.

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

Дата добавления: 2014-12-07