Necesito ayuda. ¡Tengo un examen mañana y uso el algoritmo VB para escribir el factorial de N!

Dim n, i, sum As Integer

n = 5 'El valor inicial de n

sum = 1 'La base de factorial es 1, porque multiplicar cualquier número es primitivo

Para i = 1 To n 'Multiplicar de 1 a n, este es el principio del factorial.

suma = suma * i

Siguiente i

Imprimir suma 'Resultado de salida

Fin Sub

Privado Sub Command1_Click()

Dim x, y As Single

x = 1 'Dale a x cualquier valor inicial

x = 1 'Dale a x cualquier valor inicial.

Si x < 0 Entonces 'El caso donde x es menor que 0

y = 0

Si no:

Si x > = 0 y x < 1 Entonces 'El caso donde 0<=x<1

y = 1

Si no:

Si x >= 1 y x < 2 Entonces '1<=x<2 caso

y = 2

Si no: y = 3 '3 x>=2 caso

Finalizar si

Fin si

Fin si

Fin si

Imprimir y

Imprimir y

Imprimir y.p>Fin Sub.