HEWLET PACKARD

Objetivo:

Realizar un proyecto que calcule un numero n en factorial, como se muestra en el siguiente ejemplo: 5i= 1.2.3.4.5 = 120.

Utilizando las estructuras de repetición de Visual Basic para resolver el problema planteado (Do While y For). Colocar dos botones para cuando sea While y otro cuando sea For.

Desarrollo:

Primero coloqué un cuadro de textos para poder colocar las cantidades

A continuación inserte 2 etiquetas para que en ese apartado aparezcan los resultados

De igual manera coloqué dos botones los cuales servirán para calcular con while y con for especificados cada uno

En la pantalla siguiente se muestra como se resolvió el ejercicio

Esta es la codificación:

Public Class Form1

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim fact, n, x As Decimal

fact = 1

n = Val(TextBox1.Text)

x = 1

Do While x <= n

fact = fact * x

Label1.Text = "El resultado es =" & fact

x = x + 1

Loop

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim fact, n, x As Decimal

fact = 1

x = 1

n = Val(TextBox1.Text)

For x = 1 To n

fact = fact * x

Label2.Text = "El resultado es =" & fact

Next

End Sub

End Class

Conclusión:

Al

...