用vb编写的等值线代码