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坐标