用VB写的等值线绘制方法,可能有点用要就下吧