Cómo ingresar factorial en vb

'Te da una función personalizada

Función cjhs(a As Long) As Long

cjhs = 1

Para i = 1 A

cjhs = cjhs * i

Siguiente

Función final

Subcomando privado1_Click()

'Método de cotización

't es igual al factorial de 3

t = cjhs(3)

End Sub