Pages

miércoles, 30 de enero de 2013

Calcular el factorial de un numero solucion iterativa Codigo Fuente en Visual Basic

Problema
Diseñar un algoritmo que permita calcular el factorial de un número. Utilice las estructuras repetitivas (Repetir Hasta).

Solución
  • Entrada: 5
  • Salida: 120
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim fact As Integer = 1
        Dim num As Integer
        num = TextBox1.Text
        For y As Integer = 1 To num
            fact = fact * y
        Next y
        TextBox2.Text = Trim(fact)
    End Sub
End Class

0 comentarios:

Publicar un comentario