VB 阶层倒数和

Private Sub Command1_Click()
Dim n As Double
Dim sum As Double
Dim temp_number As Double
n = 100
temp_number = 1
For i = 1 To n Step 1
temp_number = temp_number * i
sum = sum + 1 / temp_number
Next i
Print sum
End Sub

n 太大会发生溢出错误

dim sum1 as long
dim sum2 as long
dim i%,j%,k%
private function getjc(byval n as integer) as long
for i=1 to n
getjc=getjc*i
next i
end function
private function getsum(byval m as integer) as double
for j=1 to m
getsum=getsum+1/getjc(j)
next j
end function