Образец выполнения задания

Найти значение функции в зависимости от заданного условия. Значения переменных выбрать самостоятельно.

1. Входными данными являются переменные a, b и x.

2. Выходными данными – значение Y.

3. На форме спроэктированы следующие элементы управления:

Label (Введите a, Введите b, Введите x, Ответ Y=),

TextBox (для ввода и вывода данных),

CommandButton (Вычислить, Выход).

При проектировании данной формы использованы свойства элементов управления:

Alignment - для выравнивания текста,

Caption (для элементов управления Label, CommandButton),

Text (для элемента TextBox)– для подписи,

Font – для изменения размера и начертания шрифта.

4. Программный код:

Dim a As Single, b As Single, x As Single, Y As Single

Private Sub Command1_Click()

If IsNumeric(Text1)=True And IsNumeric(Text2)=True And IsNumeric(Text3)=True Then

a = Text1.Text

b = Text2.Text

x = Text3.Text

' Вычисление

If x > 0 And x < 3 And a > 0 And b > 0 Then

Y = (a * x + b * x) ^ (1 / 3) * Exp(Log(x) / Log(10))

ElseIf x > -5 And x <= 0 And a < 0 And b > 0 Then

Y = a ^ b * x ^ 2 + b * x

Else

Y = a ^ 2 * b ^ 2 * x

End If

Text4.Text = Y

Else

MsgBox " Ошибка! Повторите ввод"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Exit Sub

End Sub

Private Sub Command2_Click()

End

End Sub

5. Результат выполнения программы:

2-й вариант решения задачи – с использованием диалоговых окон

Dim a As Single, b As Single, x As Single, Y As Single

Private Sub Form_Load()

a = InputBox("Введите значение à")

b = InputBox("Введите значение b")

x = InputBox("Введите значение x")

' Вычисление

If x > 0 And x < 3 And a > 0 And b > 0 Then

Y = (a * x + b * x) ^ (1 / 3) * Exp(Log(x) / Log(10))

ElseIf x > -5 And x <= 0 And a < 0 And b > 0 Then

Y = a ^ b * x ^ 2 + b * x

Else

Y = a ^ 2 * b ^ 2 * x

End If

MsgBox "Ответ Y= " & Y

End Sub