用vb实现利用三次样条插值函数进行编程

用vb实现利用三次样条插值函数进行编程 问题内容：要求输入节点数，节点值与端点二阶导数，能获得屏幕输出插值函数表达式网友 cz5360 于 提问最佳回答：vb三次样条插值函数绘图Dim X(1000)

用vb实现利用三次样条插值函数进行编程 问题内容： 要求输入节点数，节点值与端点二阶导数，能获得屏幕输出插值函数表达 式 网友cz5360于提问 最佳回答： vb三次样条插值函数绘图 DimX(1000)AsSingle,Y(1000)AsSingle Dimu1(0To80000)AsSingle,v1(0To80000)AsSingle DimnumAsLong DimtAsInteger PrivateDeclareSubSleepLib"kernel32"(ByValdwMilliseconds AsLong) DimdeAsInteger DimToInitAsBoolean DimDownXAsSingle,DownYAsSingle SubDrawposi(IndexAsInteger) Me.Picture1.ForeColor=0 Me.Picture1.Line(0,Y(Index))-(1024,Y(Index)) Me.Picture1.Line(X(Index),0)-(X(Index),770) EndSub Functionhypot(ByValXAsSingle,ByValYAsSingle) hypot=Sqr(X^2+Y^2) EndFunction SubMovePic(IndexAsInteger) DimiAsInteger X(Index)=Picture2(Index).Left+4 Y(Index)=Picture2(Index).Top+4 lblX.Caption="X:"+CStr(CInt(X(Index))) lblY.Caption="Y:"+CStr(CInt(Y(Index))) lblX.Refresh lblY.Refresh