Ejemplo de uso de Do loop

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