Private Sub FindMax()
        Dim vals As Integer() = {1, 4, 100, -100, 200, 4, 6}

        Dim largest As Integer = Integer.MinValue
        Dim smallest As Integer = Integer.MaxValue

        For Each element As Integer In vals
            largest = Math.Max(largest, element)
            smallest = Math.Min(smallest, element)
        Next

        MsgBox("最大:  " & largest)
        MsgBox("最小:  " & smallest)
    End Sub