Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice la programación VB para encontrar el valor de n. , n y n! Hay texto para ingresar en este cuadro de texto.

Utilice la programación VB para encontrar el valor de n. , n y n! Hay texto para ingresar en este cuadro de texto.

Private Sub Command1_Click()

Dim n como entero, m como doble

m = 1

n = Val(Text1.Text)

Si n gt; 170 Entonces

MsgBox "No se puede calcular, ingrese un número menor o igual a 170".

Text1.SetFocus

Salir Sub

Finalizar si

For i = 1 To n

m = m * i

MsgBox m

Fin Sub