Imports System

Public Module Module1

    Public Sub Main()

        'Declaracion Variable

        Dim radio As Single

        Dim Area As Single

        Dim circunferencia As Single

        Const pi = 3.1415926 'Declaracion de Variable constante

​

        Console.Write("Ingrese el radio: ") 'muestra texto y datos calculados

        radio = Console.ReadLine 'captura o lee el dato que ingrese el usuario

​

        Area = pi * radio ^ 2

        circunferencia = 2 * pi * radio

        Console.WriteLine("el area es: {0}", Area) '{0} Valor qye se oasa a una funcion

        Console.WriteLine("La circunferencia es: {0}", circunferencia)

​

        Console.Read()

​

    End Sub

​

End Module

​