Algorithms/Find maximum/vb script method 2

``` <script type="text/vbscript">
function findNoOfElement(i_intAry)
Dim o_intCount
o_intCount = 0
for each objEle in i_intAry
o_intCount = o_intCount + 1
next
findNoOfElement = o_intCount
end function
function findMax(i_intAry,i_intSize)
Dim oRes
if ( i_intSize <= 3 ) then
if i_intAry(0) > i_intAry(1) then
oRes = i_intAry(0)
else
oRes = i_intAry(1)
end if
else
Dim yy
yy = i_intSize /2
Dim p_intAryA()
Dim p_intAryB()
ReDim p_intAryA(yy)
ReDim p_intAryB(yy)
Dim p_intI
Dim p_intJ
for p_intI = 0 to (yy - 1) step 1
p_intAryA(p_intI) = i_intAry(p_intI)
next
Dim p_intK
for p_intJ = yy to (i_intSize - 1) step 1
p_intAryB(p_intK) = i_intAry(p_intJ)
next
Dim o_intM
Dim o_intN
o_intM = findMax(p_intAryA,findNoOfElement(p_intAryA))
o_intN = findMax(p_intAryB,findNoOfElement(p_intAryB))
if ( o_intM > o_intN ) then
oRes = o_intM
else
oRes = o_intN
end if
end if
findMax = oRes
end function
Dim cc(3)
cc(0) = 33
cc(1) = 6
cc(2) = 7
cc(3) = 11
document.write("Max is " & findMax(cc,findNoOfElement(cc)) )

</script>
```
Last modified on 25 April 2009, at 03:52