下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值,请完善程序。 Function SumF(n As Integer)As Single s = 0 For i=1 To n s=

admin2009-02-13  25

问题 下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值,请完善程序。
   Function  SumF(n As Integer)As Single
      s = 0
      For i=1 To n
         s=【  】
      Next i
      SumF=s
   End Function
   Private Sub Form_Click()
      Sum1=SumF(100)
      Print
      Print"sum1="; sum1
   End Sub

选项

答案s+1/i

解析 从公式可以看出,第一项为 1/1,第二项为1/2,第三项为1/3,…,第n项为1/n。也就是说,分母每次增加1,而分子始终为1。 为求前n项之和,在For-Next循环中每次循环都增加1/i。
转载请注明原文地址:https://jikaoti.com/ti/bTq0FFFM
0

最新回复(0)