VB计算n个整数的阶乘和

Private Sub Command1_Click() Dim n As Integer n = InputBox("n=") For i = 1 To n s = s + fac(i) Next i Print "1!+2!+...+"; Str(n); "!="; s End Sub Function fac(n) f = 1 For i = 2 To n f = f * i Next i fac = f End Function