vb ¡Pregunte por n! código

Private Sub Form_Click()

Atenuar n como cadena

Atenuar i como entero

Atenuar a como entero

n = InputBox("Ingrese el factorial del número entero que desea encontrar:")

Si IsNumeric(n) = True Entonces

Si Val(n) = Int (n) Entonces

i = 1

a = 1

Hacer mientras i = n

a = a * i;

i = i 1

Bucle

Imprimir "n!=" amp;

Else

Imprimir "¡Entrada incorrecta! ¡El carácter de entrada debe ser un número entero mayor o igual a 0! "

End If

Else

Imprimir "El carácter de entrada debe ser mayor o igual a Entero de 0 "

End If

End Sub