Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Pass Double to a function

public class Test    public Shared Sub Main         Dim area As Double         area = CalculateAreaFromRadius(100)         Console.WriteLine(area)    End Sub    Shared Function CalculateAreaFromRadius(ByVal radius As Double) As Double         Dim radiusSquared As Double         radiusSquared = radius * radius         Dim result As Double         result = radiusSquared * Math.PI         Return result     End Function End class 31415.9265358979