编写一个vb程序计算1/1!+1/2!+…+1/n!，要求定义一个函数来计算n！。

VB编写函数，实现计算1!+2!+…+N！~

private function a(n as integer) as long
Dim sum as long,nn as integer,i,j
Sum=0
for j=1 to n
Nn=1
For i=1 to j
Nn=nn*i
Next i
sum=sum+nn
next j
A=sum
End function

3、计算1！+2！+…+10!的和，并使用msgbox输出。
Dim sum as long,n as long
Sum=0
For i=1 to 10
N=1
For j=1 to i
N=n*j
Next j
Sum=sum+n
Next i
Msgbox “1！+2！+…+10!的和是" & sum

4．编写函数，实现计算N的阶乘
private function a(n as integer) as long
Dim nn as long
Nn=1
For i=1 to n
Nn=nn*i
Next i
A=nn
End function

5、计算1！+2！+…+99!的和，并使用msgbox输出。
Dim sum as long,n as long
Sum=0
For i=1 to 99
N=1
For j=1 to i
N=n*j
Next j
Sum=sum+n
Next i
Msgbox “1！+2！+…+99!的和是" & sum

6、计算1-500之间所有的素数和。
Dim i, j, b As Integer
For i = 3 To 500
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next i
If j > i - 1 Then b = b + i
Next i
Print b

7、计算1-100之间所有的素数和。
Dim i, j, b As Integer
For i = 3 To 100
For j = 2 To i-1
If i Mod j = 0 Then Exit For
Next i
If j > i - 1 Then b = b + i
Next i
Print b

Private Sub Form_Click()
Dim i As Long, P As Double, S As Double, T As Integer
T = 1
P = 1
Dim N As Integer
N = InputBox("请输入 一个整数:")
For i = 1 To N
P = P * i
S = S + T / P
T = -T
Next
Print Format(S, "0.0000000")
End Sub

function jiecheng(s)
m=1
n=1
if s=1 then
jiecheng=1
else
for i=2 to s
n=(i-1)*i
m=m+1/n
end for
jiecheng=m
end if
end function

大概是这样的，很久没用过VB了，所以具体的一些细节记不清楚了

Function F(N As Integer) As Double
Dim s As Long
s = 1
For i = 1 To N
s = s * i
Next
F = 1 / s
End Function

---

编写一个vb程序计算1/1!+1/2!+…+1/n!，要求定义一个函数来计算n！。视频