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

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

Option Explicit

Sub Main()
Dim i As Integer
Dim x As Double
Dim y As Double
Dim rangeStart As Integer
Dim rangeEnd As Integer
Dim stepSize As Double

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

End Sub

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