terça-feira, 6 de setembro de 2011

on


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim area, raio As Double

        raio = Me.TextBox1.Text
        area = Math.PI * Math.Pow(raio, 2)
        MsgBox("A area do círculo de raio " & raio & " é igual a " & area)

    End Sub

Espero ter ajudado e att.

0 comentários:

Postar um comentário