Last modified on 25 November 2009, at 01:10

Algorithms/Find maximum/visual basic method 3

Public Function Pear(ByVal Nums() as Integer) as Integer
Dim AryStart as Integer = 0
Dim AryEnd as Integer = Nums.Length - 1

If AryEnd - AryStart = 1 Then
→If Nums(AryEnd) > Nums(AryStart)
→→Return Nums(AryEnd)
→Else
→→Return Nums(AryStart)
→End if