泡点压力及气相组成.txt

vb泡点压力及气相组成rivate Sub Form_Load() Rem calculating the bubble points for ideal systems '程序说明 Dim N As Integer, i As Integer, j As Integer, T As Single,x(10) As Single Dim A(10) As Single, B(10) As Single, C(10) As Single, ps(10) As Double, pc, yy As Double, y(10) As Double, Tl As String Const R# = 8.314 '定义R为常数8.314 Open "D:\VB\3in.dat" For Input As #6 '打开带路径的输入数据文件 Input #6, Tl '读入标题 Input #6, N, T '读入组分数N,温度T/K Open "D:\VB\OutTb.dat" For Output As #8 '打开带路径的输出数据文