作者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