Desarrollar un algoritmo que calcule el área de un rectángulo.
Solución
- Entrada: 4 5
- Salida: 20
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