程序功能:
有4个变量,每个变量都是在同一给定集合中取,这四个变量的运算a/b*c/d的结果与一固定值的差<=0.0001.变量不能取相同值.
我编的程序,好象进入死循环了,程序到这就动弹不了了.
请高人指点指点!!!

Dim x As Variant
x = Array(20, 23, 24, 25, 26, 30, 32, 33, 34, 35, 37, 40, 41, 43, 45, 46, 47, 48, 50, 52, 53, 55, 57, 58, 59, 60, 61, 62, 65, 67, 70, 71, 73, 75, 79, 80, 83, 85, 89, 90, 92, 95, 97, 98, 100)
For i = 0 To 44
For j = 0 To 44
For k = 0 To 44
For l = 0 To 44
If x(i) / x(j) * x(k) / x(l) - 9 * Sin(Dialog.Text5) / Dialog.Combo6.Text >= -0.0001 And x(i) / x(j) * x(k) / x(l) - 9 * Sin(Dialog.Text5) / Dialog.Combo6.Text <= 0.0001 And x(i) <> Text9 And x(i) <> Text10 And x(i) <> Text11 And x(i) <> Text12 And x(j) <> Text9 And x(j) <> Text10 And x(j) <> Text11 And x(j) <> Text12 And x(k) <> Text9 And x(k) <> Text10 And x(k) <> Text11 And x(k) <> Text12 And x(l) <> Text9 And x(l) <> Text10 And x(l) <> Text11 And x(l) <> Text12 And x(i) <> x(j) And x(i) <> x(k) And x(i) <> x(l) And x(j) <> x(k) And x(j) <> x(l) And x(k) <> x(l) Then
Exit For
Text19 = x(i)
Text20 = x(j)
Text21 = x(k)
Text22 = x(l)
End If
Next l, k, j, i