[填空題] 下列過程的功能是：用來計算并輸出S=1+1/2+1/3+…+1/100的值。請完善程序。 Function SumF(n As Integer)A
2021-07-20
[填空題] 下列過程的功能是：用來計算并輸出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
SuraF=s
End Function
Private Sub Form_Click( )
Sum1=SumF(100)
Print "sum1=" :sum1
End Sub
正確答案：s+1/i
參考解析：從公式可以看出，第一項為1/1，第二項為1/2，第三項為1/3，…，第n項為1/n。也就是說，分母每次增加1，而分子始終為1。為求前n項之和，在ForNext循環(huán)中每次循環(huán)都增加1/n。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。