Pages

jueves, 17 de enero de 2013

Calcular el área de un rectángulo Codigo Fuente en Visual Basic

Problema
Desarrollar un algoritmo que calcule el área de un rectángulo.

Solución
  • Entrada: 4  5
  • Salida: 20
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 a As Double
        Dim b As Double
        Dim area As Double
        a = TextBox1.Text
        b = TextBox2.Text
        area = a * b
        TextBox3.Text = Trim(area)
    End Sub
End Class

0 comentarios:

Publicar un comentario