module1.bas

来自「基于VB语言编写的热力学性质计算的应用软件（数据库操作）」· BAS 代码 · 共 20 行

Attribute VB_Name = "Module1"
Public Tc1!, Pc1!, Vc1!, Zc1!, w1!, anA!, anB!, anC!, denglu%
Public Tc2!, Pc2!, Vc2!, Zc2!, w2!
Public Z, P, V, T As Double
Public STR3, STR4, STR6, sss As String
Public k As Double  '定义混合物的二元相互作用参数
Public y1, y2  As Double   '混合物含量
Public Han, Yidu, Yidu1, Yidu2, San As Double '焓\熵\逸度系数
Public oo As Integer    '判定是选纯流体或混合流体的返回值
Public Yang, Bei As String
Public HH!(10), cha!(10), P00!, T00!, V00!


Public myWork As DAO.Workspace
Public myData As DAO.Database
Public myRecord As DAO.Recordset
'Public wuidx As Index
'Public wuidxfld As Field
'Public autb As TableDef