Suma inversa en capas de VB

Dim n como doble

Dim sum como doble

Dim temp_number como doble

n = 100

número_temp = 1

Para i = 1 Para n Paso 1

número_temp = número_temp * i

suma = suma 1 / número_temp

Siguiente i

Imprimir suma

End Sub

n es demasiado grande. Si es demasiado grande, se producirá un error de desbordamiento