Public Sub s()
Function f(ByVal x As Double) As Double
Return
Math.Sin (x) - x ^ 2 * y
End Function
Cells(1, 2) = x
Cells(1, 3) = f
End Sub
//otvet.imgsmail.ru/download/47227762_1d4a2e64c1ea0101d861e8e6442ec316_800.jpg
Function f(ByVal x As Double) As Double
Return
Math.Sin (x) - x ^ 2 * y
End Function
Cells(1, 2) = x
Cells(1, 3) = f
End Sub
//otvet.imgsmail.ru/download/47227762_1d4a2e64c1ea0101d861e8e6442ec316_800.jpg