Re: [VB6 ] 陣列中 最大值

[chinoyan ()]

※ 引述《kc5566 (56專業文)》之銘言：
: 大家好
: 小弟平常都用matlab
: disp(max(abs([D(:,2)])));
: 這是matlab可以直接判斷並顯示陣列中取決對值後的最大值
: 不知道 VB6 是否有跟matlab一樣
: 可以直接讀取陣列中最大值
: 然後再Print出來

Function GetArrAbsMax(Arr As Variant) As Variant
    Dim i As Long, AbsVal As Variant
    For i = 0 To UBound(Arr)
        AbsVal = Abs(Arr(i))
        If AbsVal > GetArrAbsMax Then GetArrAbsMax = AbsVal
    Next
End Function

不知你道的陣列形別,所以用 Variant,想要跑快點,可以取代成你的陣列形別

--
 ████ █       ★ ████  █    █   █ 
 █       █          █    █  █    █        超 級 熱 烈 歡 迎
 █       ████ █ █    █  ████   █ 
 █       █    █ █ ███★     █      █   歡迎到嘉義版!
 ★███ █    █ █ █    █     █      █ 
訊馳電腦-路徑 → 嘉義市林森西路496號 →[phone] → 順發斜對面

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.47.44.96
推 kc5566:感謝 c 大