主题：max函数问题

 要写代码处理

Dim ns() As Double = {2, 3, 5,1,4}
Dim min As Double = 999
Dim max As Double = 0
Dim sum As Double = 0
For Each n As Double In ns
    If n < min Then
        min = n
    End If
    If n > max Then
        max = n
    End If
    sum += n
Next
Dim avg As Double = (sum-max-min)/3
msgbox(avg)