下面程序完成的功能是计算S=1-1/2+1/3-一1/4+…+1/99—1/100的值,并在窗体上输出结果。要求将程序横线上的内容补充完整。 窗体事件如下: Private Sub Form_C1ick() Dim i As Integer,s

admin2017-05-05  29

问题 下面程序完成的功能是计算S=1-1/2+1/3-一1/4+…+1/99—1/100的值,并在窗体上输出结果。要求将程序横线上的内容补充完整。
  窗体事件如下:
  Private Sub Form_C1ick()
  Dim i As Integer,s As Single
  s=0
  Do While(i<=50)
  S=_________
    i=i+1
   _________
    Print"s="s
    End Sub

选项

答案i=1;s=s+1/(2*i—1)一1/(2*i);Loop。

解析
转载请注明原文地址:https://jikaoti.com/ti/AOF9FFFM
0

最新回复(0)