曲线_插值m1.bas

这是一个有关线性插值的例子,用vb编写,具有良好的界面,而且是可是化的.仅供大家参考.

Attribute VB_Name = "modParameter"
'曲线_插值
Option Explicit
Public strFileName As String        '原始数据文件
Public strRes_Name As String        '结果数据文件
Public strLabelName As String       '标题
Public P() As Double, R() As Double '原始数组和结果数组
'数据的行数和列数
Public intRow As Integer, intCol As Integer
Public intRowAll As Integer         '总行数
Public blnTitle As Boolean, blnRowLabel As Boolean
Public blnColLabel As Boolean
Public X() As Double, Y() As Double
Public M As Integer                 '等距点数
Public A As Double                  '插值点X坐标