Question

如何用vb编阶乘函数：用VB编写一个程序：编一求阶乘的函数f

Answer 1

Private Sub Command1_Click()

Dim n As Integer

n = Val(InputBox("n="))

Print n & "!="; f(n)

End Sub

Function f(n As Integer) As Long

y = 1

For i = 2 To n

y = y * i

Next i

f = y

End Function