求教各位大神

4*10^16个循环？

这是我的那个方程组 除了MF1 MF2 其他量都已知 我就不太懂它的循环该怎么做才能找到MF1 MF2 的近似值 求帮助 谢谢各位了

我试了 还是不行 这就是我那个循环的式子@miku_con

把问题写清楚一点

Private Sub Command5_Click()
zzzz1 = Val(Textzzzz1)
zzzz2 = Val(Textzzzz2)
F2x = Val(TextF2x)
ga = Val(Textga) * PI / 180
E = Val(TextE)
L = Val(Textl)
PI = 3.14159265358979
qP = Val(TextqP)
p = Val(Textp)
ga = Val(Textga) * PI / 180
L = Val(Textl)
DD = Val(TextDD)
di = Val(Textdi)
F1x = -(F2x + Sin(ga) * q * L)
I = PI / 64 * ((DD * 100) ^ 4 - (di * 100) ^ 4) * 10
SA = (DD ^ 2 - di ^ 2) * PI / 4
q = qP - SA * p * 1000 * 9.8
D = -q * Cos(ga) / E / I / 2
C = L * q * Cos(ga) / E / I / 2 + (M2 - M1) / E / I / L
sqrt = Sqr(Abs(F1x) / E / I)
A = (-F1x / E / I)
Dim MF1 As Long, MF2 As Long
For MF1 = -10000 To 10000 Step 1
For MF2 = -10000 To 10000 Step 1
C1 = (2 * D + A * MF1 / E / I + A * C * L + A * D * L ^ 2) - (2 * D + A * MF1 / E / I) * Exp(-Sqr(A) * L)
C1 = C1 / A ^ 2 / (Exp(Sqr(A) * L) - Exp(-Sqr(A) * L))
C2 = (2 * D + A * MF1 / E / I) / A ^ 2 - C1
Zzzz0 = C1 * sqrt - C2 * sqrt + (L * q * Cos(ga) / 2 + (MF2 - MF1) / L) / F1x
ZzzzL = C1 * sqrt * Exp(sqrt * L) - C2 * sqrt * Exp(-sqrt * L) + (L * q * Cos(ga) / 2 + (MF2 - MF1) / L - q * Cos(ga) * L) / F1x
If (Zzzz0 - zzzz1) < 1 And (ZzzzL - zzzz2) < 1 Then
Exit For
End If
Next MF2
Next MF1
TextMF1 = MF1
TextMF2 = MF2
End Sub

'求sqr(2),先高速接近目标值，然后采用10分法求值,总跨距23个数量级，用时10ms以内
Option Explicit
Private Sub Command1_Click()
　　Dim i, t, a, b, stp, d
　　t = Timer: d = 10 ^ -13 '设置精度
　　a = -5 * 10 ^ 9: b = 5 * 10 ^ 9 '跨距100亿
　　stp = (b - a) / 10 ^ 3 '第一个step值，先高速接近（经验值)
　　Do
　　　　For i = a To b Step stp
　　　　　　If i ^ 2 < 2 And (i + stp) ^ 2 > 2 Then '目标值在这个区间内
　　　　　　　　a = i: b = i + stp: stp = (b - a) / 10
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　　　If Abs(i ^ 2 - 2) < d Then Exit Do
　　Loop
　　Debug.Print i
　　Debug.Print Timer - t
End Sub

以前好像老看谁处理过类似的问题，先把步长0.001设置大点，得到一个小一点的近似值范围，再把步长慢慢减小，得到更小的范围，直到步长为0.001。
这样应该会比直接用0.001做步长需要的循环次数少一点。
当然，可能还有其他算法