VB.Net/Language Basics/Function Parameter

Calculates the power of a value, defaults to square

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

   Shared Sub Main(ByVal args As String())
     Dim value As Integer
     " call version of Power depending on power input
     value = Power(Convert.ToInt32(3), _
          Convert.ToInt32(10))
     Console.WriteLine( Convert.ToString(value) )
   End Sub
  " use iteration to calculate power
  Shared Function Power(ByVal base As Integer, _
     Optional ByVal exponent As Integer = 2) As Integer
     Dim total As Integer = 1
     Dim i As Integer
     For i = 1 To exponent
        total *= base
     Next
     Return total
  End Function " Power

End Class

      </source>

Pass Array as Parameters

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

   Shared Sub Main(ByVal args As String())
       Dim friends() As String = {"A", "B", "C","D", "E"}

       AddFriendsToList(friends)
   End Sub
   
   Shared Sub AddFriendsToList(ByVal friends() As String)
       Dim friendName As String
       
       For Each friendName In friends
           Console.WriteLine("[" & friendName & "]")
       Next
   End Sub

End Class

      </source>

Two Dimension Array: Pass into a Function

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

   Shared Sub Main(ByVal args As String())
       " define an array to hold friends in...
       Dim friends(2, 2) As String
       " set the data...
       friends(0, PersonDataIndex.Name) = "Name 1"
       friends(0, PersonDataIndex.Email) = "Email 1"
       friends(0, PersonDataIndex.Sex) = "Sex 1"
       friends(1, PersonDataIndex.Name) = "Name 2"
       friends(1, PersonDataIndex.Email) = "Email 2"
       friends(1, PersonDataIndex.Sex) = "Ses 2"
       friends(2, PersonDataIndex.Name) = "Name 3"
       friends(2, PersonDataIndex.Email) = "Email 3"
       friends(2, PersonDataIndex.Sex) = "Sex 3"
       AddFriendsToList(friends)
   End Sub
   
   Shared Sub AddFriendsToList(ByVal friends(,) As String)
       Dim row As Integer
       For row = 0 To UBound(friends, 1)
           Dim buf As String = ""
           Dim column As Integer
           For column = 0 To UBound(friends, 2)
               buf &= friends(row, column) & ", "
           Next
           
           Console.WriteLine(buf)
       Next

   End Sub

End Class

   Public Enum PersonDataIndex As Integer
       Name = 0
       Email = 1
       Sex = 2
   End Enum
          
      </source>

Use Array as Function Parameter

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

   Shared Sub Main(ByVal args As String())
        Dim a As Integer = 5
        Dim b As Integer = 6
        Dim c As Integer = 7
        Console.WriteLine("Calling with three Integers")
        DisplayVals(a, b, c)
        Console.WriteLine("Calling with four Integers")
        DisplayVals(5, 6, 7, 8)
        Console.WriteLine("calling with an array of four Integers")
        Dim explicitArray( ) As Integer = {5, 6, 7, 8}
        DisplayVals(explicitArray)
   End Sub
   Shared Public Sub DisplayVals(ByVal ParamArray intVals( ) As Integer)
       Dim i As Integer
       For Each i In intVals
          Console.WriteLine("DisplayVals {0}", i)
       Next i
   End Sub "DisplayVals

End Class

      </source>