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 |
Syntact for how to call one script from another? and Syntax to call one "Action" in another?
Tell me few important difference Between QTP and WinRunner?
can anyone tell me from where i can download qtp demo or crack version
How can you exit from an action?
Hi am New to Automation Testing , any one can you help me what are the basic questiion are asked an interview?
How to pass parameters into an action.Please explain me with examples
HOW do we find a datasheet when there are 4 datasheets in data table.this question was asked by covansys interview.
for example u can take ebay or plifcart online shoping web application--------- write acode in vbscript in qtp---- search box and write (iphone6)and click on go button then opened diff prise iphones in next page but u can select 30,000 to 90,000 list pls write code?
2 Answers FFASVA, Genpact, Wipro,
How to export data present in Datatable to an ".xls" file?
How open an excel sheet in QTP(not a run time )?
give me descriptive programing code sample flight application in qtp?
how can we test the Triggers, Cursors, Indexes while doing Database testing in DTP??