请教关于调用模块的问题,求大神指点
'''窗体代码Private Sub CmdSat1_Click()
Dim SatP1 As Double
Dim SatT1 As Double
SatP1 = Val(Txt_SatP1.Text)
If SatP1 = 0 Then
MsgBox ("请先输入饱和压力!")
Exit Sub
Else
SatP = SatP1
End If
SaturateT
SatT1 = SatT(SatP) - 273.15
Txt_SatT1.Text = SatT1
End Sub
'''模块代码
Global SatP As Double '饱和压力
Global SatT As Double '饱和温度
Global SatWH As Double '饱和水的焓
Global SatStH As Double '饱和蒸汽的焓
Global NormP As Double '常规水压力
Global NormT As Double '常规水温度
Global NormWH As Double '常规水的焓
Global SupP As Double '过热蒸汽压力
Global SupT As Double '过热蒸汽温度
Global SupStH As Double '过热蒸汽的焓
Global Const R = 0.461526 '水物质的质量气体常数,kJ/(kg.K)
Public Sub SaturateT() '注饱和压力对应的饱和温度
Dim Ni(10) As Double '''''4区(饱和区)指数
Dim β As Double
Dim A2 As Double
Dim B2 As Double
Dim C2 As Double
Dim D2 As Double
'''''''''''''''''''4区(饱和区)表3.34(水和蒸汽的性质IAPWS-IF97)''''''''''''''''''''''''''''''''''
Ni(1) = 0.11670521452767 * 10 ^ 4
Ni(2) = -0.72421316703206 * 10 ^ 6
Ni(3) = -0.17073846940092 * 10 ^ 2
Ni(4) = 0.1202082470247 * 10 ^ 5
Ni(5) = -0.32325550322333 * 10 ^ 7
Ni(6) = 0.1491510861353 * 10 ^ 2
Ni(7) = -0.48232657361591 * 10 ^ 4
Ni(8) = 0.40511340542057 * 10 ^ 6
Ni(9) = -0.23855557567849
Ni(10) = 0.65017534844798 * 10 ^ 3
β = SatP ^ 0.25
A2 = β ^ 2 + β * Ni(3) + Ni(6)
B2 = Ni(1) * β ^ 2 + β * Ni(4) + Ni(7)
C2 = Ni(2) * β ^ 2 + β * Ni(5) + Ni(8)
D2 = 2 * C2 / (-B2 - (B2 ^ 2 - 4 * A1 * C2) ^ 0.5)
SatT = (Ni(10) + D2 - ((Ni(10) + D2) ^ 2 - 4 * (Ni(9) + Ni(10) * D2)) ^ 0.5) / 2 '饱和温度,单位 K
End Sub
运行后报错“属性的使用无效”
窗体和模块如下,调用的是ModuHan中的