我想算四个数的运算结果，然后和一个小数比较，合适的话就输出。。
我用的是下面的方法
dim   a   as   integer,b   as   integer,c   as   integer,d   as   integer
dim   x   as   double
  for   a=20   to   150
      for   b=20   to   150   
          for   c=20   to   150
              for   d=20   to   150
              if   abs((a*b)/(c*d) -x)<=0.0000015   then   
               print a,b,c,d
            end   if
      next   d
      next   c
      next   b
      next   a   
但是运算太慢了，几乎死机了。。
各位大哥看看，小弟怎么才能求出a,b,c,d   啊！
要求出所有满足要求的a,b,c,d