利用圆周率的近似值计算公式pi/4=1-1/3+1/5-1/7+1/9… 要求最后一项的绝对值小于0.000001时停止计算!

问题描述:

利用圆周率的近似值计算公式pi/4=1-1/3+1/5-1/7+1/9… 要求最后一项的绝对值小于0.000001时停止计算!

'VB:Private Sub Form_Click()    Dim pi As Double,i As Double,n As Double    pi = 0    i = 0    Do While 1 = 1        i = i + 1  &nb...