下列程序的功能是:当发生窗体的单击事件后,将在窗体上显示"1 ! +2! +3! +...+1 0 ! "
下列程序的功能是:当发生窗体的单击事件后,将在窗体上显示"1 ! +2! +3! +...+1 0 ! "的和。完善下列程序。
Private Sub Form_Click()
Dim s As Long,I As Integer
s=0
For i=1 To 1 0
s=s+()
Next i
Print s
End Sub
Private Function fact(ByVal n As Integer)As Long
Dim i As Integer,f As Long
f=1
For i=2 To n
f=f*i
Next i
()
End Function