您所在位置：主题：[讨论]怎样保证循环能够正确运行
jingwen
[专家分：0] 发布于 2011-05-20 22:53:00
Private Sub Command1_Click()
Dim y, r, lh, q, s, d As Double
y = 0.1
r = 234.52
lh = 384
s = 0
d = 0
q = 0
Do While ((Abs(s - d)) < 10 ^ -7)
s = r * Cos(q / 57.3)
d = -(lh * y + (y ^ 2 - 1) * r / (1 + y ^ 2)) * Exp(y * q / 57.3) + r * (y ^ 2 * Cos(q / 57.3) - Cos(q / 57.3) - 2 * y * Cos(q / 57.3)) / (1 + y ^ 2)
q = q + 1
Loop
Text1.Text = q
End Sub
Dim y, r, lh, q, s, d As Double
y = 0.1
r = 234.52
lh = 384
s = 0
d = 0
q = 0
Do While ((Abs(s - d)) < 10 ^ -7)
s = r * Cos(q / 57.3)
d = -(lh * y + (y ^ 2 - 1) * r / (1 + y ^ 2)) * Exp(y * q / 57.3) + r * (y ^ 2 * Cos(q / 57.3) - Cos(q / 57.3) - 2 * y * Cos(q / 57.3)) / (1 + y ^ 2)
q = q + 1
Loop
Text1.Text = q
End Sub