我的这个程序在vb中运行时为什么总是显示实时错误“11”：除数为零

If a >b And b >0 And a Mod b = 0 Then

这个错误就有是：

如果:

a=11

b=0

a/b 就会出现错误 ，不允许。

a = 15

b = 0

b/a 如猜橘果此亩这样就有可以了，就是除数不能为0。同样如果a=0，b15。b/a也会出穗扒团现错误！！！

问题在这句上：

Dim a%, b%, c%, d%

%是Integer（整型）的类型字符，代码中把0.008赋银州液给整型变量b，被舍为0然后在

d = (Log(c - a)) / (Log(1 + b))

中，Log1=0，就出现除数为0错误了。锋物

建议把a,b,c,d声明为浮点迹桥数Single或Double，问题就解决了。

---