写一个函数要求输入一个正整数n计算1+1/3+1/5+……的前n项和

如题所述

第1个回答  2009-06-23
用VB写的话:

Private Sub Form_Click()
Dim i As Integer, n As Integer, s As Single
n = Val(InputBox("请输入一个正整数:", , 10))
For i = 1 To n
s = s + 1! / (2 * i - 1)
Next
MsgBox "前" & n & "项之和为" & s
End Sub本回答被提问者采纳
第2个回答  2009-07-03
请问,s = s + 1! / (2 * i - 1)中的!是什么意思,求阶乘吗
相似回答