'This code demonstrate how to find the highest number in a numaric array.

Dim num, i, Length1

num=array(34,12,98,43,89,49,56)

Length1 = UBound(num) 'Find the length of array

For i= 1 to Length1

If (num(i)

num(0)=num(i)

End If

Next

MsgBox num(0) 'Highest Number

Dim num, i, Length1

num=array(34,12,98,43,89,49,56)

Length1 = UBound(num) 'Find the length of array

For i= 1 to Length1

If (num(i)

**<**num(0)) Then 'to find lowest number, just change it to**>**num(0)=num(i)

End If

Next

MsgBox num(0) 'Highest Number

thanks Abhikansh..

ReplyDeletekeep it up!! :)

outstanding work....keep it up....

ReplyDeleteSuper!!

ReplyDeletei tried to pass numbers(5,10,15) in array to find the biggest number and getting as 5. but it should be 15. pls help me in this.

ReplyDeletenum=array("5","10","15")

Length1 = UBound(num)

For i= 1 to Length1

If (num(i)>num(0)) Then

num(0)=num(i)

End If

Next

MsgBox num(0)

@raghav,

ReplyDeleteplz dont use double qoutes while paasing values in array..

superb! whatever search here i can get solution here thanks dude

ReplyDeleteexcellent

ReplyDeleteplz help me... how to capture screen shot during runtime... what is syntax and explain plz

ReplyDelete@satish k

ReplyDeleteplz search CaptureBitmap in qtp help

Good Job :)

ReplyDeleteCool!

ReplyDeletefind the max value from array

ReplyDeleteDim x,y,max

x=array(50,20,30,40,90)

z=UBound(x)

max=0

For i = 0 To z

If x(i)>max Then

max=x(i)

End If

Next

MsgBox max

Yo can try this one also:

ReplyDeleteDim a, temp, i, j, firsthighest, secondhighest, thirdhighest

a = Array(35,44,99,66,98,76)

'Sorting the array in Ascending order

for i=0 to UBound(a)

for j=0 to UBound(a)

if (strcomp(a(i), a(j), 1)<0) then

temp = a(i)

a(i) = a(j)

a(j) = temp

end if

Next

Next

firsthighest = (UBound(a))

msgbox "First highest mark is: "&a(Firsthighest)

secondhighest = (UBound(a)-1)

msgbox "Second highest mark is: "&a(secondhighest)

I dint get these lines.....

ReplyDeletenum(i) is actually an number or index? why for loop started from 1 rather 0

For i= 1 to Length1

If (num(i)>num(0)) Then

num(0)=num(i)

End If

Next

The above code should be start little bit we need to correct

ReplyDeleteFor i = 0 to Length

How can i sort larger number to lowest? but user input the numbers in arry

ReplyDelete