Imports System
Public Module Module1
Public Sub Main()
Do
for m = 1 to 3
Dim Radius As Integer
Dim circumference As Double
Console.writeline("enter radius")
Radius= console.readline()
Circumference= 2*3.141*radius
Console.WriteLine("Circumference is "&circumference)
next
loop
End Sub
End Module