在一个循环中,每次只加0.001,为什么加到特定值时,值会变,急!!在线等.
在一个循环中,每次只加0.001,为什么加到特定值时,值会变,急!!在线等.
p = 0
n = 0.02 / (0.993 + 0.07 * p)
Q = ((a * b * p) / (1 + b * p)) * ((100 - Aad - Mad) / 100) * ((1 / (1 + 0.31 * Mad)) * (Exp(n * (t1 - t0)))) _
+ ((F * p) / (10 * ARD))
Do While Q0 - Q > 0.001
p = p + 0.0011
n = 0.02 / (0.993 + 0.07 * p)
Q = ((a * b * p) / (1 + b * p)) * ((100 - Aad - Mad) / 100) * ((1 / (1 + 0.31 * Mad)) * (Exp(n * (t1 - t0)))) _
+ ((F * p) / (10 * ARD))
Loop
End If
Text10.Text = p
当输入一个Q0时,Q0与Q进行对比。直到它们相近时，循环中止，这时输出P，但在输出的时候，P值可能会变成，如：8.80000009E-2的值，而输出的就是8.800（我让输出5位），这样的情况，而我需要的是，0.088。请问那里出的了问题！！
[解决办法]
Text10.Text =format( p, "0.000 ")
