那你整个传 DataBase 类型的数组进去吧。
在使用时，引用其对象就是了。有可能这个 结构的定义要放到模块里，并且定义为 公用 结构。

Public Sub interpolation(Data() As DataBase, ByVal T As Single, ByRef Y As Single)
................
   For i = 1 To 9
       gmm = (Data(i + 1).MOE - Data(i).MOE) / h(i) - (Data(i).MOE - Data(i - 1)).MOE / h(i - 1)
       g(i) = 6 * gmm / (h(i) + h(i - 1))
   Next i
   
   g(0) = 6 * ((Data(1).MOE - Data(0).MOE) / h(0) - yy0) / h(0)
   g(10) = 6 * (yy10 - (Data(10).MOE - Data(9).MOE) / h(9)) / h(9)
.................

1、Call interpolation(Param(10).MOE, TAverage, E)——这个传进去的是 Param 数组中 下标=10 的元素的MOE 属性值，只是一个Single类型的值
2、Public Sub interpolation(Data() As Single, ByVal T As Single, ByRef Y As Single)——这个是要求传递一个 Single类型的数组
Param 跟Data的关系：Param(1).MOE = Data(1) ,作为形参 ，2者不能关联上(在我看来)
所以 如果你的Interpolation 需要保留的话 ，就再声明一个 Single类型的数组temp() as Single,然后 将Param(i).MOE赋给 temp(i)