411 REFERENCE · Wikibooks
Algorithms/Find maximum/visual basic method 3
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
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