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

用vb编程...

2026年09月26日 18:31

有2个网友回答

网友（1）：

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

网友（2）：

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