二氧化碳物性计算-VBA模板-源代码

二氧化碳物性计算-VBA模板-源代码 Dim rou, T As Double rou = 407.828 T = 800 Debug.Print "CO2_rouT_P="; CO2_rouT_P(rou, T) Debug.Print "CO2_rouT_S="; CO2_rouT_S(rou, T) Debug.Print "CO2_rouT_U="; CO2_rouT_U(rou, T) Debug.Print "CO2_rouT_Cv="; CO2_rouT_Cv(rou, T) Debug.Print "CO2_rouT_H="; CO2_rouT_H(rou, T) 'Debug.Print "CO2_rouT_Cp="; CO2_rouT_Cp(rou, T) Debug.Print "CO2_rouT_Yita="; CO2_rouT_Yita(rou, T)