计算方法VB源代码.docVIP

计算方法VB源代码.txt9母爱是一滴甘露，亲吻干涸的泥土，它用细雨的温情，用钻石的坚毅，期待着闪着碎光的泥土的肥沃；母爱不是人生中的一个凝固点，而是一条流动的河，这条河造就了我们生命中美丽的情感之景。Rem 拉格朗日插值多项式 Private Sub Command1_Click() Dim n As Integer Dim yi() As Single, xi() As Single, li() As Single Dim y0 As Single, x0 As Single n=10 x0=Val(InputBox(输入要求点的x值)) y0=0.0 ReDim yi(n) ReDim xi(n) ReDim li(n) For i=1 To n Yi(i)=Val(InputBox(输入第i个插值点的y值)) xi(i)=Val(InputBox(输入第i个插值点的x值)) Next i For i=1 To n li(i)=1 Next i For i=1 To n For j=1 To n If ij Then li(i)=li(i)*(x0-xi(j))/(xi(i)-xi(j)) Next j Next i For i=1 To n y0=y0+li(i)*yi(i) Next i Print y0=;y0 End Sub Rem 二分法 Private