编程论坛 → VB6论坛

求两数差值小于给定精度的循环程序

hanyao0923 发布于 2016-04-28 19:15， 2231 次点击

我的问题是：如何写个循环程序来保证两个数的差值小于给定精度然后退出循环

5 回复

hanyao09232016-04-28 19:15

新手上路求大神们指导

hanyao09232016-04-28 19:23

可能问题描述的不清楚就是我预先指定一个数，然后执行其它语句后得到一个数，比较指定数和新计算出那个数的差值是否小于给定精度，若不小于则修改参数重新执行语句重新计算直到计算结果的数值与给定数的差值小于给定精度就结束循环这就是我的问题

chen35232016-04-28 20:05

do ...Loop循环语句

HVB62016-04-28 20:33

回复 3楼 hanyao0923

是这个意思？
Private Sub Command1_Click()
   Dim x As Single, y As Single, k As Single, i As Single, t As Single
   x = 1
   y = 2
   k = 0.01
   Do
     i = i + 1: t = y - k * i
   Loop Until Abs(t - x) < 0.1
   MsgBox " i=" & i & Chr(10) & "abs(x-y)=" & t
End Sub

xiangyue05102016-04-29 08:42

其实你自己问题就是答案，如何提高精度是数学方法，你自己根据要求的算法去修改。
假设是n1,n2，精度要求e
Do

' 迭代，提高n1,n2精度代码。
' ……

' 判断精度是满足
if abs(n1-n2)<e then exit do
Loop