VB.Net/Language Basics/Function

Материал из VB Эксперт
Перейти к: навигация, поиск

Define and Call Function

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Console.WriteLine("In Main! Calling SomeMethod( )...")
      SomeMethod( )
      Console.WriteLine("Back in Main( ).")
   End Sub
   Shared Sub SomeMethod( )
      Console.WriteLine("Hi")
   End Sub "SomeMethod

End Class

      </source>


Define and use Function

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
     PrintPay(40, 10.5)
     PrintPay(38, 21.75)
     PrintPay(20, 13)
     PrintPay(50, 14)
   End Sub
  Shared Sub PrintPay(ByVal hours As Double, ByVal wage As Decimal)
     Console.WriteLine("The payment is {0:C}", hours * wage)
  End Sub 

End Class

      </source>


Define and Use Function: Shared Function

<source lang="vbnet"> 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

      </source>