读书人

关于求数组的最大值语句application.m

发布时间: 2013-01-21 10:15:39 作者: rapoo

关于求数组的最大值语句application.max(arr)的问题
例子1:
ip = Array(192, 168, 0, 1)
k = Application.Max(ip)
返回的k值是192,结果正常。



例子2:
ip = Split("192.168.1.1", ".")
k = Application.Max(ip)
返回的k值是0,结果不正常。

请问是为什么呢?
像例子2这样,要从一组IP提取每个数字的值再获得最大值,应该怎样做?
[解决办法]


ip = Split("192.168.1.1", ".")
Dim ipx()
ReDim ipx(UBound(ip))
For i = 0 To UBound(ip)
ipx(i) = CInt(ip(i))
Next i
k = Application.Max(ipx)

读书人网 >VBA

热点推荐