VB的简单阶乘函数

这是VB（用VB6编写）非常简单的函数，用于计算数字的阶乘（！）。 请注意，它受可以存储在Long数据类型中的值的大小限制。 （实际上，我相信它会在13点溢出！）

Public Function Factorial(ByVal bNum As Byte) As Long
  Dim I As Long
  If bNum <= 0 Then Exit Function
  Factorial = 1
  For I = 1 To bNum
    Factorial = Factorial * I
  Next
End Function

From: https://bytes.com/topic/visual-basic/insights/653578-simple-factorial-function-vb