Page 96 - 4192

Приклад: Обчислити

а=1, в=3, х – задати самостійно
Програмний код:
Private Sub Command1_Click()
Dim x, y As Single
Dim a, b As Integer
x = Val(Text1)
a = Val(Text2)
b = Val(Text3)
Select Case x
Case Is < a
y = 1 - x
Case a To b
y = Exp(x)
Case Else
y = Log(x)
End Select
Text4 = y
End Sub
Private Sub Command2_Click()
End
End Sub

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

95