Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Define and use Function

Imports System Public Class MainClass          Shared Sub Main(ByVal args As String())         Dim area As Double         area = CalculateAreaFromRadius(100)              Console.WriteLine("Area: " & area)     End Sub          Shared Function CalculateAreaFromRadius(ByVal radius As Double) As Double         ' square the radius...         Dim radiusSquared As Double         radiusSquared = radius * radius         ' multiply it by pi...         Dim result As Double         result = radiusSquared * Math.PI         ' return the result...         Return result     End Function End Class