第5题: [填空题]下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值,请完善程序。
Function SumF(n As Integer)As Single
s = 0
For i=1 To n
s= 【12】
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