取最大最小值Min Max No If

Q.關於VB副程式的問題..拜託高手幫我解(送10點)
http://tw.knowledge.yahoo.com/question/question?qid=1509110708713

輸入十個數值，利用副程式maxmin(m,n,array(1)),球出期中的最大數與最小數(m與n分別為一維陳列array1中的最大數與最小數)

A.本來想投票，但我覺得應該用數學運算比IF判斷效率會更好
簡單寫了一下
a b兩值
取大值用(a+b+abs(a-b))/2
取小值用(a+b-abs(a-b))/2
<
Sub maxmin(ByVal m As Integer, ByVal n As Integer, ByVal arrayA() As Integer)

Dim i As Integer
Dim iPlus As Integer
Dim iMinus As Integer
Dim iPlus2 As Integer
Dim iMinus2 As Integer
iValMax=arrayA(0)
iValMin=arrayA(0)
For i = 0 To UBound(arrayA)-1
iPlus =iValMax+arrayA(i+1)
iMinus =abs(iValMax-arrayA(i+1))
iValMax =(iPlus +iMinus )/2

iPlus2 =iValMin+arrayA(i+1)
iMinus2 =abs(iValMin-arrayA(i+1))
iValMin =(iPlus2-iMinus2 )/2
Next
m = iValMax
n = iValMin

End Sub

詳細影音解說
待續