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