El siguiente procedimiento está destinado a determinar el factorial de un número, para ello se usa un bucle de estructura Do loop debido a que se sabe que el factorial de n = 1*2*3*....*n, asimismo se uso una estructura selectiva If... Then... Else... End if para el caso que el numero del que se desea calcular factorial sea cero ya que por concepto se sabe que el factorial de cero es uno.
Sub Factorial()
Dim factor As Integer
Dim n As Integer
Dim dato As Integer
n = 1
dato = Range("A2") 'Se toma el numero del que se quiere obtener su factorial
'Factorial de cero es igual a uno por concepto
If dato = 0 Then
Factorial = 1
Else
Factorial = dato
Do While (n <> dato)
Factorial = Factorial * n
n = n + 1
Loop
End If
Range("B2") = Factorial
End Sub
Elaborado por: Luis Pinto
2 comentarios
Escriba un comentario →