Контрольна робота № 2. Процеси, що розгалужуються

Контрольна робота № 1. Лінійні процеси

ПРОГРАМУВАННЯ і МОДЕЛЮВАННЯ

КОНТРОЛЬНІ РОБОТИ ПО VISUAL BASIC

ПО ДИСЦИПЛІНІ

ОБЧИСЛЮВАЛЬНА ТЕХНІКА,

Контрольну роботу № 1 можна виконувати в Visual Basic 6.0 або в додатках MS Office в редакторі Visual Basic. Для запуску Visual Basic в додатку MS Office достатньо виконати команди Сервис/Макрос/Редактор Visual Basic.

Постановка задачі. Дано три аргументи: А1, А2, А3. Необхідно розрахувати за відповідною формулою результат, створивши програму на Visual Basic. Варіанти формул подані у таблиці, а ескіз екранної форми на рис. 1.

Таблиця 1

Варіанти формул

	Формула		Формула		Формула
	А1*А2+А3		(A1+A2)/A3		A2-A3*A1
	А1+А2*А3		A1+A2-A3^2		(A3-2A2)/A1
	(А1+А2)*А3		(A1+A2-A3)^3		4A1+2A2-A3
	А3-А1*А3		(5A1-7A2)*A3		9A2*A3-4A1
	А1-А2^A3		(3A3-2A2)*A1		10A1+A2^A3
	(A1+A2)^A3		10A1-(A2+3A3)		8A1-A2/3A3
	A1^2+A2-A3		6A3-(2A2+5A1)		2A1/A3+A2^2
	A1+A2-A3*5		2A2/(A1+3A3)		A1/3A2-A3
	125(A1+A2-3)		12A2*(A1+3A3)		A2/3A3+A1
	7A1-A2+5A3		20A3/(A1+2A2)		A1*A2^A3

Постановка задачі № 1. Дано три аргументи: А1, А2, А3 та змінна Х. Необхідно розрахувати за відповідною формулою результат, створивши програму на Visual Basic. Варіанти формул подані ниже, а ескіз екранної форми на рис. 9.2.

Розглянемо приклад створення аналогічної програми розрахунку формули:

Спочатку розробляємо ескіз розрахунку (рис. 2.) у такій послідовності:

1) вставляємо елементи керування Text1, Text2,…, Text4;

2) встановлюємо елемент керування кнопки Command1;

3) встановлюємо останні елементи керування Text5 та Label1,…, Label5.

Ця послідовність потрібна тоді, коли ми намагаємось спочатку в кожному об’єкті елементів керування автоматично встановити відповідні значення властивостей TabIndex. Коли цього спочатку не зробити, то значення властивостей TabIndex треба встановлювати потім вручну.

Програмний код має такий вигляд:

Private Sub Command1_Click()

Dim A1 As Single

Dim A2 As Single

Dim A3 As Single

Dim X As Single

A1 = Val(Text1.Text)

A2 = Val(Text2.Text)

A3 = Val(Text3.Text)

X = Val(Text4.Text)

If X < 7 Then

Text5.Text = A1 + 100

ElseIf X > 7 Then

Text5.Text = A2 + 200

ElseIf X = 7 Then

Text5.Text = A3 + 300

End If

MsgBox "Формула має такий вигляд: при Х = " + Str(X) + "Результат дорівнює " + Str(Text5.Text)

End Sub

Результат обчислення має такий вигляд (рис. 3):

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