《Lagrange and newton插值法VB实现.pdf》由会员分享，可在线阅读，更多相关《Lagrange and newton插值法VB实现.pdf（5页珍藏版）》请在金锄头文库上搜索。
1、Lagrange and newton 插值 法 程序结构如下 窗体设计如下（一个空白窗体，大小下图中有） 程序代码如下 注意！ ！ ！ ！ ！ ！ ！ ！ ！ ！下面程序代码中深红色部 分为 VB6.0 中自带的部分。 而紫红色部分为 在 VB6.0 中应写在一行中， 但在本文中由于 纸张限制出现分行的部分，此部分在写入 VB6.0 时应该写在一行中，否则会出现错误 Function SS#(aaa#(), bbb#() Dim ii “Lagrange 插值法“; Tab(37); “Newton 插值法“ Print For o = 0 To 10 v = 0.2 + 0.02 * o
2、(此处为初值和步长，根据自己情况自己定) z = Lagrange(v, a(), b() z1 = S(a(), b(), v) Print “L“ Tab(30); “N“ & m & “(x“ & o & “=“ & v & “)=“ & z1 Next o Print Print Print Else MsgBox “请输入插值节点数目（必须大于 1）“, 5 + vbExclamation, “警告“ Call tt End If End Sub Private Sub Form_DblClick() Form1.Cls Call tt End Sub Private Sub Form_Load() FontSize = 12 FontName = “宋体“ End Sub
