Programación Souby

Subcomando privado 1_Click()

Dim a tiene la misma longitud, b tiene la misma longitud, c tiene la misma longitud

A = Val( InputBox("Ingrese un número entero mayor que 0 ")

B = Val(InputBox("Ingrese un número entero B mayor que 0 ")

C = Val(InputBox( "Por favor ingrese un número entero mayor que 0 Entero c de 0: "))

Si a gt0 y b gt0 y c gt entonces 0

n1 a

n1 b

n1 grados Celsius

MsgBox "A! B! C!= " ampa b c

Terminará si...

Conector final

Sub n1 (n es la misma longitud)

Dim i As Long, s As Long

s = 1

Para i = 2 a n

s = s * i

Entonces

n = s

Conector final

Implementación de la función:

Subcomando privado 1_Click()

Dim a tiene la misma longitud, b tiene la misma longitud, c tiene la misma longitud

A = Val(InputBox("Ingrese un número entero mayor que 0 ")

B = Val(InputBox("Ingrese un número entero B mayor que 0 ")

C = Val(InputBox("Ingrese un número entero c mayor que 0:"))

Si a gt0 y b gt0 y c gt entonces 0

MsgBox "A! B! C != " ampn2(A) n2(B) n2(C)

Terminará si...

Finalizar conector

Función n2 (n veces más largo) veces más largo

Dim es tan largo como yo

n2 = 1

Para i = 2 a n

n2 = n2 * i

Entonces

Finalizar función

Tenga en cuenta: el número ingresado no puede ser demasiado grande, porque está limitado por el valor máximo de Long. , para calcular números más grandes, puede utilizar el tipo de número Doble.