vb计算1!+(1!+3!)

Private Function JC(n As Long) As Long
Dim k As Long
k = 1
For i = 1 To n
k = k * i
Next
JC = k
End Function

Private Sub Command1_Click()
s = JC(1) + JC(1) + JC(3)
Print "1!+(1!+3!)=" & s
End Sub

Dim b as long
Dim a as Sting
For 1 to a
Do
Dim aj as Pcite
Dim n as long
b = (a - aj) * n
Text1 = 1b + 1b + 3b