Помогите выполнить табулирование функции одной переменной средствами VBA.
Формула в экселе выглядит так, нужно её переделать в код VBA:
=ЕСЛИ(X<=0;КОРЕНЬ(1+X^2);2*X+2*(COS(X)^2)/(3+X)).
Макрос
Sub Макрос()
'Создание в оперативной памяти компьютера поименованной области "a".
'В программировании поименованная область в оперативной памяти компьютера
'называется "переменная".
'Переменную можно сравнить с файлом на компьютере - файл находится
'на жёстком диске компьютера, а переменная - в оперативной памяти компьютера.
'Double - означает, что в переменной могут быть только числа.
'Числа могут быть целые и дробные.
Dim a As Double, b As Double, n As Double
Dim h As Double
Dim x As Double, y As Double
'Помещение в переменную "a" числа.
a = -10
b = 2
n = 20
'Расчёт шага функции.
h = (b - a) / n
'Помещение в переменную "x" числа из переменной "a".
x = a
'Do ... Loop - это цикл. Цикл используется,
'чтобы делать одну и ту же команду несколько раз.
Do
'Расчёт "y".
'If ... Then ... ElseIf ... End If - используется для выбора действия.
If x <= 0 Then
'Расчёт "y".
y = Math.Sqr(1 + x ^ 2)
ElseIf x > 0 Then
y = 2 * x + Math.Cos(x) ^ 2 / (3 + x)
End If
'Вывод "x" и "y" на монитор, чтобы посмотреть.
'Символ "&" используется, чтобы соединять фрагменты текста в одну строку.
'vbCr - используется, чтобы переносить текст на следующую строку.
MsgBox "x = " & x & vbCr & "y = " & y
'Изменение переменной "x" на шаг.
x = x + h
'"While x <= b" - означает: делать то тех пор, пока "x" меньше или равно "b".
Loop While x <= b
End Sub