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