很短的一个程序,帮忙看下(vb)

来源:百度知道 编辑:UC知道 时间:2024/06/03 22:45:29
Do While Abs(K) > 0.0001
If Abs(K) > 1# Then
W = 1
F = F + W * K
Call EXECUT(F, K)
ElseIf Abs(K) > 0.001 Then
W = 1
F = F + W * K
Call EXECUT(F, K)
End If
Loop
Print F
Call EXECUT(F, K)
Loop
Print K

EXECUT(F, K)是自定义的过程。
为何运行后都是死循环呢?请帮忙,谢谢

这里看不出来,你检查一下每循环一个周期后,K的变化,是不是越变越小,如果不是,那就是死循环的根源,如果是,那就不是死循环,你只需在DO的下一行一句doevents就行。

为什么有一个DO,却有两个loop??