VISUAL BASIC Вычислить значение заданной функции. Осуществить вывод значений аргумента и результатов вычислений значений функции в заданном диапазоне с заданным шагом:

Предыдущий
вопрос Следующий
вопрос

Option Explicit

Sub Main(
Dim i As Intege
Dim x As Doubl
Dim y As Doubl
Dim rangeStart As Intege
Dim rangeEnd As Intege
Dim stepSize As Double

rangeStart =
rangeEnd = 1
stepSize =
For i = rangeStart To rangeEnd Step stepSiz
x =
y = CalculateFunction(x
MsgBox "Значение аргумента: " & x & vbCrLf & "Результат: " &
Next i

End Sub

Function CalculateFunction(ByVal x As Double) As Doubl
CalculateFunction = x ^ 2 + 2 * x + 3 'Укажите нужную вам функцию здес
End Function