ficha de trabalho numero 3 exercicio 4

Const PI As Single = 3.14
Private Sub cmdarea_Click()
Label1.Caption = PI * (Val(Text1.Text) ^ 2)
End Sub

Private Sub cmdsair_Click()
End
End Sub