Определить приближенное значение функций - VB

Формулировка задачи:

Определить приближенное значение функций f(x)=2Sin(x) в точке x=1.5, вычисленное с использованием интерполяционного многочлена Ньютона по узлам x0 = 1 и x1 = 2.

Решение задачи: «Определить приближенное значение функций»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim x As Double, x0 As Double, x1 As Double
    x0 = 1
    x1 = 2
    x = 1.5
    MsgBox "Значение х, вычисленное с помощью функции интерполяции : " & _
           LineInterpolation(x, x0, 2 * Sin(x0), x1, 2 * Sin(x1)) & vbCrLf & _
           "Проверка : " & (2 * Sin(x))
End Sub
 
Private Function LineInterpolation(ByVal x As Double, ByVal x1 As Double, ByVal fx1 As Double, ByVal x2 As Double, ByVal fx2 As Double) As Double
    If (x2 - x1) <> 0 Then LineInterpolation = fx1 + ((fx2 - fx1) / (x2 - x1)) * (x - x1)
End Function
                        