Function 计算N(n As Long) As Double
'这里得注意一下,返回类型一定要是Double双精度型,要不然返回是整数了。
Dim 临时 As Long
Dim i, l As Long
For i = 1 To n
临时 = 0
For l = 1 To i
临时 = 临时 + l
Next
计算N = 计算N + 1 / 临时
Next
End Function
Private Sub Form_Click()
Dim i, sum, n
n = 10 '自己修改
For i = 1 To n
sum = sum + 1 / fc(i)
Next
Print sum
End Sub
Function fc(n)
Dim i
For i = 1 To n
fc = fc + i
Next
End Function