下面的程序是利用公式:π=4-4/3+4/5-4/7+4/9-4/11+…计算机π的近似值 Pvivate Sub Command1_Click()   Dim PI As Double, x As Double, k As Long, sign As I

admin2015-06-30  20

问题 下面的程序是利用公式:π=4-4/3+4/5-4/7+4/9-4/11+…计算机π的近似值
Pvivate Sub Command1_Click()
  Dim PI As Double, x As Double, k As Long, sign As Integer
  sign=1
  k=1
  PI=0
  Do
    x=sign*4/(2*k-1)
              PI=PI+x
              k=k+1
              sign=________________
  Loop Unti1 Abs(x)<0.000001
  Print PI
End Sub
在空的处应填写的是(  )。

选项 A、sign+1
B、-sign
C、x
D、k

答案B

解析 根据公式π=4-4/3+4/5-4/7+4/9-4/11+…可知sign是作为符号翻转的,即一次+下一次就为-,因此空缺处应该填-sign,这样就可使符号循环一次翻转一次。
要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中,如右图所示,放开鼠标左键后,停止同步显示。
转载请注明原文地址:https://kaotiyun.com/show/cAQp777K
0

最新回复(0)