我想算四个数的运算结果，然后和一个小数比较，合适的话就输出。。
我用的是下面的方法
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

你这个好像没有满足的条件耶

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
        Me.Caption = a
        DoEvents
    Next a