Exercício 4 ficha 3

Agora vamos ao codigo:

Textboxs:

                 texbox para inserir o raio:
                                                            Private Sub Oper1_Change()
                                                            End Sub


Labels:
            label onde está escrito "Resultado:":
                                                                           Private Sub Label1_Click()
                                                                           End Sub
         
            label onde aparece o resultado:
                                                                 Private Sub resultado_Click()
                                                                 End Sub

            label onde está escrito"Digite o raio do circulo:
                                                                                     Private Sub Label2_Click()
                                                                                     End Sub

Botões:

      

            botão da área:
                                            Private Sub cmdarea_Click()

                                            resultado.Caption = (Val(oper1.Text)^2) * pi

                                            End Sub

            
             botão sair:
                                Private Sub cmdsair_Click()
                                End
                                End Sub

Constantes:

                     const pi As double=3.141592655358979