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