取最大最小值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

詳細影音解說
待續

網頁：電子報 Email Server Program

Q.電子報寄送時要設計成能選擇對象寄送，還是單純全部成員都送？
http://tw.knowledge.yahoo.com/question/question?qid=1609111704202

A.如果只是考慮寄送介面
1.可設計可讓使用條件查詢
2.加上勾選項可讓使用者選擇使用者
3.亦可點選全部寄送

但如果思考發送效率及成功率的話
則必須考慮寄送對象的Mailserver
ㄧ般大的MailServer Pchome、Gmail、Yahoo、Hotmail等
都會有限制ㄧ定時間內，允許多少Email量
超過的話會視為寄發垃圾信件喔!
1.寄送Queue程序
2.避免不必要的錯誤Email