返回VB.NET中数组中的最大数

Module Module1
    Sub Main()
        Dim numbers() As Integer = {1, 5, 3, 9, 2, 8}
        Dim maxNumber As Integer = FindMax(numbers)
        Console.WriteLine("最大数是: " & maxNumber)
    End Sub

    Function FindMax(ByVal arr() As Integer) As Integer
        Dim max As Integer = arr(0)
        For Each num As Integer In arr
            If num > max Then
                max = num
            End If
        Next
        Return max
    End Function
End Module

Function FindMax(ByVal arr() As Integer) As Integer
    If arr Is Nothing OrElse arr.Length = 0 Then
        Throw New ArgumentException("数组不能为空")
    End If
    Dim max As Integer = arr(0)
    For Each num As Integer In arr
        If num > max Then
            max = num
        End If
    Next
    Return max
End Function