'Visual Basic 2010 Inleiding in Functies Procedures en Functies
Module Example5
    Sub Main()
        Dim dividend As Integer = 24
        Dim divisor As Integer = 6
        Dim quotient As Single
        '
        If Not IsZero(divisor) Then quotient = GetQuotient(dividend, divisor)
        '
        Console.WriteLine(quotient)
        '
        Console.ReadLine()
    End Sub
    Function IsZero(ByVal value As Integer) As Boolean
        If value = 0 Then IsZero = True
    End Function
    Function GetQuotient(ByVal dividend As Integer, _
                         ByVal divisor As Integer) As Double
        GetQuotient = dividend / divisor
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.