运行时会提示results不匹配，这个是运用VB调用SURFER计算土方量的程序，谢谢各位高手帮帮忙！！

vb没有提示具体嫌昌在哪一行有错？

第一：

你注意一下，程序里面simpson38rule和simpsons38rule是两个不同类型的变量，两个名字过于相近（就一个s的区别），渗旁很容易弄混。芹喊扒

results是一个double类型的数组，所以我个人认为最后两句直接写成下面两句就好：

simpson38rule = results(srfGVSimp38Vol)

lablel.Caption = "土方量计算结果为：" + simpson38rule

所以object类型的simpsons38rule根本没有用上。

第二：

presults是关键字，用不着定义，所以

Dim presults As Double

这句话是多余的。

在确定好的设计场地标高时画好繁荣方格网上进行计算：

首先把场地上方格网角点的自然标高与睁岁设计标高誉拿分别标注在方格角庆早搭点上（这一步应在设计场地设计标高后完成）。那么场地上设计标高与自然标的差值，即为各角点的施工高度（挖或填），并习惯以“+”表示填方，以“-”表示挖方。施工高度有了以后，一般也填在各角点上，然后就可以计算每一个方格的挖、填土量，并计算场地边坡的土方量。最后将填方区域和挖方区域内的所有土方量以及边坡的土方量进行汇总，就得到了场地上总的场地平整土方量。

你的图是毫米图还是米答闭银图？如果是米图，肯定不会没有响应的。。

所以，我怀疑你的图是平面是毫米单位。

如果是毫米图，找到“设置和出图”菜单下，找到【图形参数设置】清宴去设置，设置作图单位为“毫米”，标注单位态老为“米”，再布置方格网，应该就很快了。如下图：

---