Question

Algoritmo para calcular el factorial de un numero en visual basic

Answer 1

Respuesta:

Explicación:

CODIGO FUENTE

Private Sub cmd_calcular_Click()

'   VARIABLES

Dim i, numero, factorial As Double

'   ENTRADA

factorial = 1

numero = Val(txt_numero.Text)

'   PROCESO

For i = 1 To numero

   factorial = factorial * i

Next i

'   SALIDA

txt_factorial.Text = factorial

End Sub

Private Sub cmd_limpiar_Click()

   txt_numero.Text = ""

   txt_factorial.Text = ""

   txt_numero.SetFocus

End Sub