发信人: zjliu (秋天的萝卜), 信区: Chemistry
标 题: [转载]化学程序——各种溶液浓度的互换
发信站: BBS 哈工大紫丁香站 (Fri Sep 17 09:21:27 2004)
发信站: 日月光华
有兴趣的同学可以用 FrontPage 来看VB源代码。
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Solution Calculator</title>
</head>
<body>
<h1 align="center"><script language="VBScript"><!--
WM=0
WS=0
VPM=0
VPM=0
VPS=0
DA=0
DB=0
DC=0
PA=0
PB=0
PC=0
CA=0
CB=0
CC=0
MA=0
MB=0
MC=0
XA=0
XB=0
XC=0
VPA=0
VPB=0
VPC=0
VL=0
VR=0
WL=0
WL=0
WR=0
VA=0
VB=0
VC=0
WA=0
WB=0
WC=0
sub Molecule_M_onChange
WM=Solution.Molecule_M.Value*Solution.Molecule_Unit.Value
Calc_A
Calc_B
Calc_C
Calc
end sub
sub Molecule_S_onChange
WS=Solution.Molecule_S.Value*Solution.Molecule_Unit.Value
Calc_A
Calc_B
Calc_C
Calc
Calc
end sub
sub Molecule_Unit_onChange
Solution.Molecule_S.Value=WS/Solution.Molecule_Unit.Value
Solution.Molecule_M.Value=WM/Solution.Molecule_Unit.Value
end sub
sub Pressure_M_onChange
VPM=Solution.Pressure_M.Value*Solution.Pressure_Unit_1.Value
Calc_A
Calc_B
Calc_C
end sub
sub Pressure_S_onChange
VPS=Solution.Pressure_S.Value*Solution.Pressure_Unit_1.Value
Calc_A
Calc_B
Calc_C
end sub
sub Pressure_Unit_1_onChange
sub Pressure_Unit_1_onChange
Solution.Pressure_M.Value=VPM/Solution.Pressure_Unit_1.Value
Solution.Pressure_S.Value=VPS/Solution.Pressure_Unit_1.Value
end sub
sub Density_A_onChange
if Solution.Density_A.Value>0 then
DA=Solution.Density_A.Value*Solution.Density_Unit.Value
Calc_A
Calc
else
MsgBox "Density must be above zero!"
Solution.Density_A.Value=DA/Solution.Density_Unit.Value
end if
end sub
sub Density_B_onChange
if Solution.Density_B.Value>0 then
DB=Solution.Density_B.Value*Solution.Density_Unit.Value
Calc_B
Calc
Weight_B_onChange
else
else
MsgBox "Density must be above zero!"
Solution.Density_B.Value=DB/Solution.Density_Unit.Value
end if
end sub
sub Density_C_onChange
if Solution.Density_C.Value>0 then
DC=Solution.Density_C.Value*Solution.Density_Unit.Value
Calc_C
Calc
else
MsgBox "Density must be above zero!"
Solution.Density_C.Value=DC/Solution.Density_Unit.Value
end if
end sub
sub Density_Unit_onChange
Solution.Density_A.Value=DA/Solution.Density_Unit.Value
Solution.Density_B.Value=DB/Solution.Density_Unit.Value
Solution.Density_C.Value=DC/Solution.Density_Unit.Value
end sub
sub Percentage_A_onChange
if Solution.Percentage_A.Value>=0 and
Solution.Percentage_A.Value*Solution.Percentage_Unit.Value<=1 then
PA=Solution.Percentage_A.Value*Solution.Percentage_Unit.Value
XA=PA*WS/(PA*WS+(1-PA)*WM)
Calc_A
Calc
else
MsgBox "Percentage cannot be above 100% or below zero!"
Solution.Percentage_A.Value=PA/Solution.Percentage_Unit.Value
end if
Calc_A
Calc
end sub
sub Percentage_B_onChange
if Solution.Percentage_B.Value>=0 and
Solution.Percentage_B.Value*Solution.Percentage_Unit.Value<=1 then
PB=Solution.Percentage_B.Value*Solution.Percentage_Unit.Value
XB=PB*WS/(PB*WS+(1-PB)*WM)
Calc_B
Calc
Calc
else
MsgBox "Percentage cannot be above 100% or below zero!"
Solution.Percentage_B.Value=PB/Solution.Percentage_Unit.Value
end if
Calc_B
Calc
end sub
sub Percentage_C_onChange
if Solution.Percentage_C.Value>=0 and
Solution.Percentage_C.Value*Solution.Percentage_Unit.Value<=1 then
PC=Solution.Percentage_C.Value*Solution.Percentage_Unit.Value
XC=PC*WS/(PC*WS+(1-PC)*WM)
Calc_C
Calc
else
MsgBox "Percentage cannot be above 100% or below zero!"
Solution.Percentage_C.Value=PC/Solution.Percentage_Unit.Value
end if
Calc_C
Calc
end sub
end sub
sub Percentage_Unit_onChange
Solution.Percentage_A.Value=PA/Solution.Percentage_Unit.Value
Solution.Percentage_B.Value=PB/Solution.Percentage_Unit.Value
Solution.Percentage_C.Value=PC/Solution.Percentage_Unit.Value
end sub
sub Consistence_A_onChange
CA=Solution.Consistence_A.Value*Solution.Consistence_Unit.Value
XA=CA*WS/(DA+(WS-WM)*CA)
Calc_A
Calc
end sub
sub Consistence_B_onChange
CB=Solution.Consistence_B.Value*Solution.Consistence_Unit.Value
XB=CB*WS/(DB+(WS-WM)*CB)
Calc_B
Calc
end sub
sub Consistence_C_onChange
sub Consistence_C_onChange
CC=Solution.Consistence_C.Value*Solution.Consistence_Unit.Value
XC=CC*WS/(DC+(WS-WM)*CC)
Calc_C
Calc
end sub
sub Consistence_Unit_onChange
Solution.Consistence_A.Value=CA/Solution.Consistence_Unit.Value
Solution.Consistence_B.Value=CB/Solution.Consistence_Unit.Value
Solution.Consistence_C.Value=CC/Solution.Consistence_Unit.Value
end sub
sub Mass_A_onChange
MA=Solution.Mass_A.Value*Solution.Mass_Unit.Value
XA=MA*WS/(1+MA*WS)
Calc_A
Calc
end sub
sub Mass_B_onChange
MB=Solution.Mass_B.Value*Solution.Mass_Unit.Value
XB=MB*WS/(1+MB*WS)
XB=MB*WS/(1+MB*WS)
Calc_B
Calc
end sub
sub Mass_C_onChange
MC=Solution.Masse_C.Value*Solution.Mass_Unit.Value
XC=MC*WS/(1+MC*WS)
Calc_C
Calc
end sub
sub Mass_Unit_onChange
Solution.Mass_A.Value=MA/Solution.Mass_Unit.Value
Solution.Mass_B.Value=MB/Solution.Mass_Unit.Value
Solution.Mass_C.Value=MC/Solution.Mass_Unit.Value
end sub
sub Mole_A_onChange
if Solution.Mole_A.Value>=0 and
Solution.Mole_A.Value*Solution.Mole_Unit.Value<=1 then
XA=Solution.Mole_A.Value*Solution.Mole_Unit.Value
Calc_A
Calc_A
Calc
else
MsgBox "Percentage cannot be above 100% or below zero!"
Solution.Mole_A.Value=XA/Solution.Mole_Unit.Value
end if
end sub
sub Mole_B_onChange
if Solution.Mole_B.Value>=0 and
Solution.Mole_B.Value*Solution.Mole_Unit.Value<=1 then
XB=Solution.Mole_B.Value*Solution.Mole_Unit.Value
Calc_B
Calc
else
MsgBox "Percentage cannot be above 100% or below zero!"
Solution.Mole_B.Value=XB/Solution.Mole_Unit.Value
end if
end sub
sub Mole_C_onChange
if Solution.Mole_C.Value>=0 and
Solution.Mole_C.Value*Solution.Mole_Unit.Value<=1 then
Solution.Mole_C.Value*Solution.Mole_Unit.Value<=1 then
XC=Solution.Mole_C.Value*Solution.Mole_Unit.Value
Calc_C
Calc
else
MsgBox "Percentage cannot be above 100% or below zero!"
Solution.Mole_C.Value=XC/Solution.Mole_Unit.Value
end if
end sub
sub Mole_Unit_onChange
Solution.Mole_A.Value=XA/Solution.Mole_Unit.Value
Solution.Mole_B.Value=XB/Solution.Mole_Unit.Value
Solution.Mole_C.Value=XC/Solution.Mole_Unit.Value
end sub
sub Pressure_A_onChange
if VPM=VPS then
MsgBox "Cannot change Vapor Pressure!"
Solution.Pressure_A.Value=VPA/Solution.Pressure_Unit_2.Value
else
Temp=Solution.Pressure_A.Value*Solution.Pressure_Unit_2.Value
if (Temp-VPM)*(Temp-VPS)>0 then
if (Temp-VPM)*(Temp-VPS)>0 then
MsgBox "Cannot change Vapor Pressure!"
Solution.Pressure_A.Value=VPA/Solution.Pressure_Unit_2.Value
else
VPA=Temp
XA=(VPS-VPA)/(VPS-VPM)
Calc_A
Calc
end if
end if
end sub
sub Pressure_B_onChange
if VPM=VPS then
MsgBox "Cannot change Vapor Pressure!"
Solution.Pressure_B.Value=VPB/Solution.Pressure_Unit_2.Value
else
Temp=Solution.Pressure_B.Value*Solution.Pressure_Unit_2.Value
if (Temp-VPM)*(Temp-VPS)>0 then
MsgBox "Cannot change Vapor Pressure!"
Solution.Pressure_B.Value=VPB/Solution.Pressure_Unit_2.Value
else
VPB=Temp
VPB=Temp
XB=(VPS-VPB)/(VPS-VPM)
Calc_B
Calc
end if
end if
end sub
sub Pressure_C_onChange
if VPM=VPS then
MsgBox "Cannot change Vapor Pressure!"
Solution.Pressure_C.Value=VPC/Solution.Pressure_Unit_2.Value
else
Temp=Solution.Pressure_C.Value*Solution.Pressure_Unit_2.Value
if (Temp-VPM)*(Temp-VPS)>0 then
MsgBox "Cannot change Vapor Pressure!"
Solution.Pressure_C.Value=VPC/Solution.Pressure_Unit_2.Value
else
VPC=Temp
XC=(VPS-VPC)/(VPS-VPM)
Calc_C
Calc
end if
end if
end if
end sub
sub Pressure_Unit_2_onChange
Solution.Pressure_A.Value=VPA/Solution.Pressure_Unit_2.Value
Solution.Pressure_B.Value=VPB/Solution.Pressure_Unit_2.Value
Solution.Pressure_C.Value=VPC/Solution.Pressure_Unit_2.Value
end sub
sub Weight_Left_onChange
if Solution.Weight_Left.Value>0 then
WL=Solution.Weight_Left.Value
WR=Solution.Weight_Right.Value
VL=WL/DA
VR=WR/DC
Solution.Volume_Left.Value=VL
Solution.Volume_Right.Value=VR
Calc_Ratio
else
MsgBox "Ratio must be above zero!"
Solution.Weight_Left.Value=WL
end if
end if
end sub
sub Weight_Right_onChange
if Solution.Weight_Right.Value>0 then
WL=Solution.Weight_Left.Value
WR=Solution.Weight_Right.Value
VL=WL/DA
VR=WR/DC
Solution.Volume_Left.Value=VL
Solution.Volume_Right.Value=VR
Calc_Ratio
else
MsgBox "Ratio must be above zero!"
Solution.Weight_Right.Value=WR
end if
end sub
sub Volume_Left_onChange
if Solution.Volume_Left.Value>0 then
VL=Solution.Volume_Left.Value
VR=Solution.Volume_Right.Value
WL=VL*DA
WL=VL*DA
WR=VR*DC
Solution.Weight_Left.Value=WL
Solution.Weight_Right.Value=WR
Calc_Ratio
else
MsgBox "Ratio must be above zero!"
Solution.Volume_Left.Value=VL
end if
end sub
sub Volume_Right_onChange
if Solution.Volume_Right.Value>0 then
VL=Solution.Volume_Left.Value
VR=Solution.Volume_Right.Value
WL=VL*DA
WR=VR*DC
Solution.Weight_Left.Value=WL
Solution.Weight_Right.Value=WR
Calc_Ratio
else
MsgBox "Ratio must be above zero!"
Solution.Volume_Right.Value=VR
Solution.Volume_Right.Value=VR
end if
end sub
sub Volume_A_onChange
MsgBox "Cannot change Volume!"
Solution.Volume_A.Value=VA/Solution.Volume_Unit.Value
end sub
sub Volume_C_onChange
MsgBox "Cannot change Volume!"
Solution.Volume_C.Value=VC/Solution.Volume_Unit.Value
end sub
sub Weight_A_onChange
MsgBox "Cannot change Weight!"
Solution.Weight_A.Value=WA/Solution.Weight_Unit.Value
end sub
sub Weight_C_onChange
MsgBox "Cannot change Weight!"
end sub
sub Volume_B_onChange
VB=Solution.Volume_B.Value*Solution.Volume_Unit.Value
WB=VB*DB
Make
end sub
sub Volume_Unit_onChange
Solution.Volume_A.Value=VA/Solution.Volume_Unit.Value
Solution.Volume_B.Value=VB/Solution.Volume_Unit.Value
Solution.Volume_C.Value=VC/Solution.Volume_Unit.Value
end sub
sub Weight_B_onChange
WB=Solution.Weight_B.Value*Solution.Weight_Unit.Value
VB=WB/DB
Make
end sub
sub Weight_Unit_onChange
Solution.Weight_A.Value=WA/Solution.Weight_Unit.Value
Solution.Weight_B.Value=WB/Solution.Weight_Unit.Value
Solution.Weight_C.Value=WC/Solution.Weight_Unit.Value
Solution.Weight_C.Value=WC/Solution.Weight_Unit.Value
end sub
sub Make
WA=WB*WL/(WL+WR)
WC=WB*WR/(WL+WR)
VA=WA/DA
VC=WC/DC
Volume_Unit_onChange
Weight_Unit_onChange
end sub
sub Calc_A
Solution.Mole_A.Value=XA/Solution.Mole_Unit.Value
PA=XA*WM/(XA*WM+(1-XA)*WS)
Solution.Percentage_A.Value=PA/Solution.Percentage_Unit.Value
CA=XA*DA/(XA*WM+(1-XA)*WS)
Solution.Consistence_A.Value=CA/Solution.Consistence_Unit.Value
if XA=1 then
Solution.Mass_A.Value="NaN"
else
MA=XA/(1-XA)/WS
Solution.Mass_A.Value=MA/Solution.Mass_Unit.Value
Solution.Mass_A.Value=MA/Solution.Mass_Unit.Value
end if
VPA=VPM*XA+VPS*(1-XA)
Solution.Pressure_A.Value=VPA/Solution.Pressure_Unit_2.Value
end sub
sub Calc_B
Solution.Mole_B.Value=XB/Solution.Mole_Unit.Value
PB=XB*WM/(XB*WM+(1-XB)*WS)
Solution.Percentage_B.Value=PB/Solution.Percentage_Unit.Value
CB=XB*DB/(XB*WM+(1-XB)*WS)
Solution.Consistence_B.Value=CB/Solution.Consistence_Unit.Value
if XB=1 then
Solution.Mass_B.Value="NaN"
else
MB=XB/(1-XB)/WS
Solution.Mass_B.Value=MB/Solution.Mass_Unit.Value
end if
VPB=VPM*XB+VPS*(1-XB)
Solution.Pressure_B.Value=VPB/Solution.Pressure_Unit_2.Value
end sub
sub Calc_C
sub Calc_C
Solution.Mole_C.Value=XC/Solution.Mole_Unit.Value
PC=XC*WM/(XC*WM+(1-XC)*WS)
Solution.Percentage_C.Value=PC/Solution.Percentage_Unit.Value
CC=XC*DC/(XC*WM+(1-XC)*WS)
Solution.Consistence_C.Value=CC/Solution.Consistence_Unit.Value
if XC=1 then
Solution.Mass_C.Value="NaN"
else
MC=XC/(1-XC)/WS
Solution.Mass_C.Value=MC/Solution.Mass_Unit.Value
end if
VPC=VPM*XC+VPS*(1-XC)
Solution.Pressure_C.Value=VPC/Solution.Pressure_Unit_2.Value
end sub
sub Calc
WL=abs(PB-PC)
WR=abs(PA-PB)
if WL=0 and WR=0 then
Solution.Weight_Left.Value=1
Solution.Weight_Right.Value=1
elseif WL=0 and WR<>0 then
elseif WL=0 and WR<>0 then
Solution.Weight_Left.Value=0
Solution.Weight_Right.Value=1
elseif WL<>0 and WR=0 then
Solution.Weight_Left.Value=1
Solution.Weight_Right.Value=0
else
if WL>WR then
Solution.Weight_Left.Value=WL/WR
Solution.Weight_Right.Value=1
else
Solution.Weight_Left.Value=1
Solution.Weight_Right.Value=WR/WL
end if
end if
VL=WL/DA
VR=WR/DC
if VL=0 and VR=0 then
Solution.Volume_Left.Value=1
Solution.Volume_Right.Value=1
elseif VL=0 and VR<>0 then
Solution.Volume_Left.Value=0
Solution.Volume_Right.Value=1
Solution.Volume_Right.Value=1
elseif VL<>0 and VR=0 then
Solution.Volume_Left.Value=1
Solution.Volume_Right.Value=0
else
if VL>VR then
Solution.Volume_Left.Value=VL/VR
Solution.Volume_Right.Value=1
else
Solution.Volume_Left.Value=1
Solution.Volume_Right.Value=VR/VL
end if
end if
Make
end sub
sub Calc_Ratio
PB=(PA*WL+PC*WR)/(WL*1.0+WR*1.0)
XB=PB*WS/(PB*WS+(1-PB)*WM)
Solution.Mole_B.Value=XB/Solution.Mole_Unit.Value
Mole_B_onChange
end sub
--></script><font
--></script><font
size="6"><em><strong>Solution Calculator</strong></em></font></h1>
<form method="POST" name="Solution">
<table border="1" width="100%">
<tr>
<td align="center"><strong>1. Pure Matter
Attributes</strong><table
border="1">
<tr>
<td> </td>
<td><strong>Matter</strong></td>
<td><strong>Solvent</strong></td>
<td><strong>Unit</strong></td>
</tr>
<tr>
<td><strong>Molar Weight</strong></td>
<td><strong><input type="text" size="10"
name="Molecule_M" value="98.147"></strong></td>
<td><strong><input type="text" size="10"
name="Molecule_S" value="18.0153"></strong></td>
<td><strong><select name="Molecule_Unit"
size="1">
size="1">
<option value="1">kg/mol</option>
<option selected value="0.001">g/mol</option>
</select></strong></td>
</tr>
<tr>
<td><strong>Vapor Pressure</strong></td>
<td><strong><input type="text" size="10"
name="Pressure_M" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Pressure_S" value="100"></strong></td>
<td><strong><select name="Pressure_Unit_1"
size="1">
<option value="101325">atm</option>
<option value="133.322">mmHg</option>
<option selected value="1">Pa</option>
</select></strong></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center"><strong>2. Solution Consistence
<td align="center"><strong>2. Solution Consistence
Convert</strong><table border="1">
<tr>
<td> </td>
<td><strong>Solution A</strong></td>
<td><strong>Solution B</strong></td>
<td><strong>Solution C</strong></td>
<td><strong>Unit</strong></td>
</tr>
<tr>
<td><strong>Density</strong></td>
<td><strong><input type="text" size="10"
name="Density_A" value="1.84"></strong></td>
<td><strong><input type="text" size="10"
name="Density_B" value="1"></strong></td>
<td><strong><input type="text" size="10"
name="Density_C" value="1"></strong></td>
<td><strong><select name="Density_Unit"
size="1">
<option value="1000">kg/L</option>
<option value="1000">g/mL</option>
<option selected value="1000">g/cm^3</option>
<option value="1">kg/m^3</option>
<option value="1">kg/m^3</option>
</select></strong></td>
</tr>
<tr>
<td><strong>Weight Percentage</strong></td>
<td><strong><input type="text" size="10"
name="Percentage_A" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Percentage_B" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Percentage_C" value="0"></strong></td>
<td><strong><select name="Percentage_Unit"
size="1">
<option value="1">-</option>
<option selected value="0.01">%</option>
<option value="0.000001">ppm</option>
</select></strong></td>
</tr>
<tr>
<td><strong>Volume Consistence</strong></td>
<td><strong><input type="text" size="10"
name="Consistence_A" value="18.4"></strong></td>
<td><strong><input type="text" size="10"
<td><strong><input type="text" size="10"
name="Consistence_B" value=".1"></strong></td>
<td><strong><input type="text" size="10"
name="Consistence_C" value="0"></strong></td>
<td><strong><select name="Consistence_Unit"
size="1">
<option value="1000000">mol/cm^3</option>
<option selected value="1000">mol/L</option>
<option value="1">mol/m^3</option>
</select></strong></td>
</tr>
<tr>
<td><strong>Mass Consistence</strong></td>
<td><strong><input type="text" size="10"
name="Mass_A" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Mass_B" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Mass_C" value="0"></strong></td>
<td><strong><select name="Mass_Unit" size="1">
<option value="1000">mol/g</option>
<option selected value="1">mol/kg</option>
</select></strong></td>
</select></strong></td>
</tr>
<tr>
<td><strong>Amount Percentage</strong></td>
<td><strong><input type="text" size="10"
name="Mole_A" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Mole_B" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Mole_C" value="0"></strong></td>
<td><strong><select name="Mole_Unit" size="1">
<option selected value="1">-</option>
<option value="0.01">%</option>
<option value="0.000001">ppm</option>
</select></strong></td>
</tr>
<tr>
<td><strong>Vapor Pressure</strong></td>
<td><strong><input type="text" size="10"
name="Pressure_A" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Pressure_B" value="0"></strong></td>
<td><strong><input type="text" size="10"
<td><strong><input type="text" size="10"
name="Pressure_C" value="0"></strong></td>
<td><strong><select name="Pressure_Unit_2"
size="1">
<option value="101325">atm</option>
<option value="133.322">mmHg</option>
<option selected value="1">Pa</option>
</select></strong></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center"><strong>3. Make Solution B by A
and C</strong><table border="1">
<tr>
<td> </td>
<td><strong>Ratio</strong></td>
<td><strong>Solution A</strong></td>
<td><strong>Solution B</strong></td>
<td><strong>Solution C</strong></td>
<td><strong>Unit</strong></td>
</tr>
</tr>
<tr>
<td><strong>in Volume</strong></td>
<td><strong><input type="text" size="10"
name="Volume_Left" value="0">:<input
type="text" size="10" name="Volume_Right"
value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Volume_A" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Volume_B" value="1"></strong></td>
<td><strong><input type="text" size="10"
name="Volume_C" value="0"></strong></td>
<td><strong><select name="Volume_Unit"
size="1">
<option value="1">m^3</option>
<option selected value="0.001">L</option>
<option value="0.000001">mL</option>
</select></strong></td>
</tr>
<tr>
<td><strong>in Weight</strong></td>
<td><strong><input type="text" size="10"
<td><strong><input type="text" size="10"
name="Weight_Left" value="0">:<input
type="text" size="10" name="Weight_Right"
value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Weight_A" value="0"></strong></td>
<td><strong><input type="text" size="10"
name="Weight_B" value="1"></strong></td>
<td><strong><input type="text" size="10"
name="Weight_C" value="0"></strong></td>
<td><strong><select name="Weight_Unit"
size="1">
<option value="1000">ton</option>
<option selected value="1">kg</option>
<option value="0.001">g</option>
</select></strong></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<p><script language="VBScript"><!--
VB=Solution.Volume_B.Value*Solution.Volume_Unit.Value
WB=Solution.Weight_B.Value*Solution.Weight_Unit.Value
WM=Solution.Molecule_M.Value*Solution.Molecule_Unit.Value
WS=Solution.Molecule_S.Value*Solution.Molecule_Unit.Value
VPM=Solution.Pressure_M.Value*Solution.Pressure_Unit_1.Value
VPS=Solution.Pressure_S.Value*Solution.Pressure_Unit_1.Value
DA=Solution.Density_A.Value*Solution.Density_Unit.Value
DB=Solution.Density_B.Value*Solution.Density_Unit.Value
DC=Solution.Density_C.Value*Solution.Density_Unit.Value
Consistence_A_onChange
Consistence_B_onChange
Consistence_C_onChange
--></script></p>
</body>
</html>
--
╔═══════════════════╗
║★★★★★友谊第一 比赛第二★★★★★║
╚═══════════════════╝
※ 来源:·哈工大紫丁香 http://bbs.hit.edu.cn·[FROM: 219.147.183.*]