Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...


Write the vb script for the lowest and highest values of an
array?



Write the vb script for the lowest and highest values of an array?..

Answer / pramod mallick

Dim x(5)

x(0) = 1
x(1) = 3
x(2) = 3
x(3) = 5
x(4) = 2


Dim y
Dim strArray

'Display
For y = LBound(x) To UBound(x)
strArray = strArray & x(y) & ","
Next

MsgBox "Before Sorting " & strArray

Dim z
'Demo loop
For z = LBound(x) To UBound(x)

For y = LBound(x) To UBound(x) - 1

Dim lower As Integer
Dim higher As Integer

If x(y) > x(y + 1) Then
higher = x(y)
lower = x(y + 1)
x(y) = lower
x(y + 1) = higher
ElseIf x(y) > x(y + 1) Then
higher = x(y)
lower = x(y + 1)
x(y) = lower
x(y + 1) = higher
Else 'equal
'do nothing
End If

Next
Next


'Display
strArray = ""
For y = LBound(x) To UBound(x)
strArray = strArray & x(y) & ","
Next

MsgBox "After sorting " & strArray

msgbox "Lowest is " & Lbound(x) & "Highest is " Ubound(x)

Is This Answer Correct ?    3 Yes 1 No

Post New Answer

More QTP Interview Questions

what is the exact testing process in qtp plz explin ?

2 Answers  


How will you declare a variable in qtp?

0 Answers  


How to capture dynamic objects in qtp like mark up text

3 Answers  


hi i have one issue while automating the script using QTP i want scrool down .i cannot do even using scrool down methqad is not working .the object will take WebElement plz is there any code help me

3 Answers  


write the code to reverse a string without using Strrev built in function.

14 Answers   ADP,


how to merge object repositories in qtp for n different applications

1 Answers  


Hello, How can i capture first letter of any string using QTP. For ex.. i want "j" in the below string "john" could any one explain me? Is there any function for that?

4 Answers   Livetek,


How to handle Recovery scenario in QTP. give detailed explanation about recovery scenario.

4 Answers   Arsin Systems,


Check point what is how many types of checkpoint and explain

3 Answers   Accenture,


Did the scripts need lot of maintenance? If yes, why?

0 Answers  


actually how many hours per one day we will work on automation(qtp) in real time

1 Answers   Synechron,


write script for bitmap image?

0 Answers   CA,


Categories