按照IAPWS-IF97采用VB编制的一个小软件