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

新手上路 求大神们指导

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

do ...Loop循环语句

是这个意思？
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

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

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

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