actualizando

Actividad 5

Calcular el área de un triangulo (Utilizando Variables)

código: muestra el resultado en el control picResultado(picbox) y en una caja de mensaje 

'Esto es un comentario y se inicia con comilla simple Alt 39

Dim Base As Single
Dim Altura As Single
Dim Area As Single

Private Sub Command1_Click()
     Base = Text1.Text
     Altura = Text2.Text
     Area = Base * Altura / 2

     Picture1.Print Area
End Sub

Private Sub Command2_Click()
              End
End Sub