'Visual Basic 2010 Inleiding in Functies Procedures en Functies
Module Example4
    Sub Main()
        For value As Integer = -1 To 1
            Console.WriteLine("Value " & value & " : ")
            Console.WriteLine(GetInfo1(value))
            Console.WriteLine(GetInfo2(value))
            Console.WriteLine(GetInfo3(value))
            Console.WriteLine()
        Next
        '
        Console.ReadLine()
    End Sub
    Function GetInfo1(ByVal value As Integer) As String
        Select Case value
            Case Is = 0
                Return "Value is zero."
            Case Is > 0
                Return "Value is positive."
            Case Is < 0
                Return "Value is negative."
        End Select
    End Function
    Function GetInfo2(ByVal value As Integer) As String
        Dim info2 As String
        Select Case value
            Case Is = 0
                info2 = "Value is zero."
            Case Is > 0
                info2 = "Value is positive."
            Case Is < 0
                info2 = "Value is negative."
        End Select
        Return info2
    End Function
    Function GetInfo3(ByVal value As Integer) As String
        Select Case value
            Case Is = 0
                GetInfo3 = "Value is zero."
            Case Is > 0
                GetInfo3 = "Value is positive."
            Case Is < 0
                GetInfo3 = "Value is negative."
        End Select
        'Return GetInfo3                                                   ' (1)
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.