411 REFERENCE · Wikibooks
Algorithms/Find maximum/vb script method 6
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
function findMaxFourElement(i_intA,i_intB,i_intC,i_intD)
Dim o_intMax
o_intMax = i_intA
if ( i_intB > o_intMax ) then
o_intMax = i_intB
end if
if ( i_intC > o_intMax ) then
o_intMax = i_intC
end if
if ( i_intD > o_intMax ) then
o_intMax = i_intD
end if
findMaxFourElement = o_intMax
end function
function findMaxThreeEle(i_intA,i_intB,i_intC)
findMaxThreeEle = findMaxFourElement(i_intA,i_intB,i_intC,i_intC)
end function
Dim result
result = findMaxThreeEle(1,2,3)
document.write(result)