编程计算公式中s的值，其中n由用户输入正整数。 S=1+1*2+1*2*3+…+1*2*3*…*n
编程计算公式中s的值，其中n由用户输入正整数。 S=1+1*2+1*2*3+…+1*2*3*…*n
日期：2016-05-14 13:35:57 人气：1
Private Function abc(n As Integer) As String
abc = 0
o = 1
For i = 1 To n
For j = 1 To i
o = o * j
Next j
abc = abc + o
o = 1
Next i
End Function
Private Sub Command1_Click()
Text2.Text = abc(Text1.Text)
End Sub