Приклад 2.

Date: 2015-10-07; view: 413.

End Sub

End If

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

Private Sub Command1_Click()

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))

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

Private Sub Prog3 'Значення функції

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