6. Приклади розробки додатка.

Приклад 1. Розв’язок квадратного рівняння.

Private Sub Prog2 ’Квадратне рівняння

Dim a, b, c, D, x1, x2 As Double

a = Val(InputBox("Введіть значення а", a))

b = Val(InputBox("Введіть значення b", b))

c = Val(InputBox("Введіть значення c", c))

D = b * b - 4 * a * c

If D < 0 Then print ("Розв'язків не існує")

If D >= 0 Then

MsgBox "Існує два розв."

x1 = (-b - Sqr(D)) / (2 * a)

x2 = (-b + Sqr(D)) / (2 * a)

Print "x1=", x1,, "x2=", x2

End If

End Sub

Private Sub Command1_Click()

Dim a, b, c, D, x1, x2 As Double

a = Val(InputBox("Введіть значення а", a))

b = Val(InputBox("Введіть значення b", b))

c = Val(InputBox("Введіть значення c", c))

D = b * b - 4 * a * c

If D < 0 Then Print ("Розв'язків не існує")

If D >= 0 Then

MsgBox "Існує два розв."

x1 = (-b - Sqr(D)) / (2 * a)

x2 = (-b + Sqr(D)) / (2 * a)

MsgBox ("х1=" + Str(x1) + "х2=" + Str(x2))

End If

End Sub

Приклад 2.

Програма розгалуженої структури з використанням вказівки Select Case:

Private SubProg3 ’Значення функції

Dim Y As Variant, X As Double

X = Val(Text1.Text)

Select Case X

Case 0 To 1

Y = 5 * X

Case 1 To 10

Y = X + 10

Case Is > 10

Y = Sin(3 * X)

Case Else

Y = "Не визначена"

End Select

Print "X="; X; " Y="; Y

End Sub

Приклад 3.

Розробка засобами Visual Basic додатоку Windows для обчислення суми виплат по вкладу у банку.

Економіко-математична модель задачі.

При заданому розмірі початкового вкладу V, заданому терміні вкладу T і річній процентній ставці p, сума виплат S обчислюється за формулою:

Інформаційна модель задачі.

Для розробки додатка потрібно задавати значення початкового розміру вкладу V, начення терміну вкладу V, значення відсоткової ставки p і обчислювати значення суми виплат S у відповідності з заданою формулою. Значення цих величин можна описати типом – дійсні числа. Обчислювальний процес є лінійним.

Розробка додатку засобами Visual Basic.

Етапи розробки:

• розробка інтерфейсу користувача;

• введення тексту програмного коду процедури одій;

• виконання проекту;

• збереження проекту як незалежного додатку.

Екранна сторінка в режимі Visual Basic

Результат виконання програми