Private Sub Command1_Click()
Dim H00 As Double, H01 As Double, H0 As Double, H1 As Double
Dim Y0 As Double, Y1 As Double, Y00 As Double, Y11 As Double
Dim X0 As Double, X1 As Long, X As Double, Z As Double, M1 As Double, M2 As Double, M3 As Double
Dim A As String, B As String, C As String, D As String
Dim sum1 As Double, sum2 As Double, sum3 As Double, sum4 As Double
Show
X0 = Val(Text1.Text)
X1 = Val(Text2.Text)
Y0 = Val(Text3.Text)
Y1 = Val(Text4.Text)
Y00 = Val(Text6.Text)
Y11 = Val(Text7.Text)
Z = X1 - X0
M1 = Z - 4 * X1 - 2 * X0
M2 = 2 * X1 * X1 - 2 * Z * X1 - 4 * X0 * X1
M3 = 2 * X0 * X1 * X1
sum2 = (M1 / Z ^ 3) * Y0 + sum2
sum3 = (M2 / Z ^ 3) * Y0 + sum3
sum4 = sum4 + M3
Text8.Text = "2*X^3/" & Z & "^3+(" & M1 & "*X^2)/" & Z & "^3+(X*" & M2 & ")/" & Z & "^3-" & M3 & "/" & Z & "^3"
M1 = (Z - 4 * X0 - 2 * X1)
M2 = (2 * X0 * X0 - 2 * Z * X0 + 4 * X0 * X1)
M3 = Z * X0 * X0 - 2 * X0 * X0 * X1
sum2 = (M1 / Z ^ 3) * Y1 + sum2
sum3 = (M2 / Z ^ 3) * Y1 + sum3
sum4 = sum4 + M3
Text9.Text = "2*X^3/" & Z & "^3+(" & M1 & "*X^2)/" & Z & "^3+(" & M2 & "*X)/" & Z & "^3" & M3 & "/" & Z & "^3"
M1 = (-2 * X0 - X1) / Z ^ 2
M2 = (X1 * X1 - 2 * X0 * X1)
M3 = (X0 * X1 * X1)
sum2 = (M1 / Z ^ 2) * Y00 + sum2
sum3 = (M2 / Z ^ 2) * Y00 + sum3
sum4 = sum4 + M3
Text10.Text = " X^3/" & Z & "^2+(X^2*" & M1 & ")/" & Z & "^2+(X*" & M2 & ")/" & Z & "^2-" & M3 & "/" & Z & "^2"
M1 = -2 * X0 - X1
M2 = X0 * X0 + 2 * X0 * X1
M3 = -X1 * X0 * X0
sum2 = (M1 / Z ^ 2) * Y11 + sum2
sum3 = Y11 * (M2 / Z ^ 2) + sum3
sum4 = sum4 + M3
Text11.Text = "X^3/" & Z & "^2+(X^2*" & M2 & ")/" & Z & "^2+(X*" & M2 & ")/" & Z & "^2" & M3 & "/" & Z & "^2"
sum1 = (2 * Y0) / Z ^ 3 + (2 * Y1) / Z ^ 3 + Y00 / Z * Z + Y11 / Z * Z
A = "" & sum1 & "*x^3+"
B = "" & sum2 & "*x^2+"
C = "" & sum3 & "*x+"
D = "" & sum4 & ""
Label12.Caption = A & B & C & D
End Sub
