作者chinoyan ()
看板Visual_Basic
標題Re: [VB6 ] 陣列中 最大值
時間Mon Jun 10 00:53:49 2013
※ 引述《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號 →
(05)2244-526 →
順發斜對面
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.47.44.96
1F：推 kc5566:感謝 c 大 06/12 00:50