Информатика / пример на VBA

Линейный алгоритм.

Выведете панель инструментов VBA. Активируйте режим Конструктор. Нарисуйте кнопку. В контекстном меню выберете Исходный текст и напишите программу.

Private Sub CommandButton1_Click()

Dim x As Single, y As Single

x = Val(InputBox("Введите у"))

y = 5 * x - x ^ 2 + Exp(x)

MsgBox y

End Sub

Выйдете из режима конструктора и нажмите на кнопку. Введите значение х и нажмите ОК.

Разветвляющийся алгоритм

Private Sub CommandButton1_Click()

Dim x As Single, y As Single

x = Val(InputBox("Введите х"))

If x >= 1 Then

y = x

MsgBox y

Else

If x <= 0 Then

y = 1 - x ^ 2

MsgBox y

Else

y = Cos(x)

MsgBox y

End If

End If

End Sub

Циклический алгоритм

Private Sub CommandButton1_Click()

Dim a As Single, b As Single, h As Single, y As Single

a = Val(InputBox("Введите a"))

b = Val(InputBox("Введите b"))

h = Val(InputBox("Введите h"))

x = a

Do While x <= b

y = 5 * x - x ^ 2 + Exp(x)

MsgBox y

x = x + h

Loop

End Sub