Pages

jueves, 14 de febrero de 2013

calcular el perimetro de un rectangulo Codigo en Visual Basic - VB

Pregunta
Realizar un diagrama de flujo en el programa FreeDFD que permita al usuario calcular el perímetro de un rectángulo  El usuario debe ingresar el largo y el ancho del rectángulo.

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 ancho, largo, perimetro As Double
        largo = TextBox1.Text
        ancho = TextBox2.Text
        perimetro = 2 * (ancho + largo)
        TextBox3.Text = Trim(perimetro)
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada