用VB怎样求n的阶乘和

Public Function jiecheng(ByVal n As Integer) As Integer Dim jc As Integer = 1 For i = 1 To n jc = jc * i Next Return jc End Function