Algorithms/Find maximum/visual basic method 1

Function FindMax(ByVal x() As Integer) As Integer
        If x.Length = 0 Then
            Return 0
        ElseIf x.Length = 1 Then
            Return x(0)
        Else
            Dim temp As Integer = x(0)
 
            For i As Integer = 0 To x.Length - 1
                If x(i) > temp Then
                    temp = x(i)
                End If
            Next
            Return temp
        End If
End Function
Last modified on 25 April 2009, at 03:54