How to return a value from a fn, if it has more than one value
how to return
Answers were Sorted based on User's Feedback
Answer / bantanahal haribabu
Dim odd()
cnt=0
Function oddnum(srange,erange)
For i=srange to erange
If i mod 2<>0 Then
ReDim preserve odd(cnt)
odd(cnt)=i
cnt =cnt+1
End If
oddnum=odd
Next
End Function
var=oddnum(1,20)
msgbox isarray(var)
For i=lbound(var) to ubound(var)
print var(i)
Next
| Is This Answer Correct ? | 5 Yes | 1 No |
Answer / kishan
dim arr(4) 'declare the array if necessary
function myfunction()
....
....
....
myfunction=arr 'here arr is an array
end function
Point to Remember:
1. store req values in a array and assign that array to
function name (or)
2. Concatenate all the multiple values and assign it to
function name
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / ram
There is only way to return more than one value that is by using call by reference. we can call function by reference passing an object.steps
1. Create class
2. Declare more than 2 elementes
3. Create object of the class
4. Call function by passing that object
please let me know if I am wrong.
Ram
| Is This Answer Correct ? | 2 Yes | 1 No |
we are submitting data one form to another form.defaultly it is time period set as 5sec. but it is taken 15sec what to do
How can we disable smart identification at the time of recording? Ideally, smart identification should be enabled only at the run-time.
Explain the keyword driven framework for the window based application complete creation of library files,env file,test data,recovery file,excel file ,repository etc and as a test engineer how is ur approach
How can we retrieve the links from a web page where links are dynamically changing(for eg take a online shopping website) and then we have to click on all the links present in the webpage and go to the repective pages and again come back to the first page..
Dim ExcelSheet Set ExcelSheet = CreateObject("Excel.Application") excelsheet.application.visible = true ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1" ' Save the sheet. ExcelSheet.SaveAs "C:\DOCS\TEST.XLS" ' Close Excel with the Quit method on the Application object. ExcelSheet.Application.Quit after run this script i am getting error"The test cannot continue due to unrecoverable error"
I am using descriptive programming for my project.when QTP deosn't identity or recognize a object by record and playback method,is it possible to make QTP identify that object using descriptive programming? Note: The object doesn't have unique properties and same properties used in Record and playback are only available, no extra properties are defined.
By using QTP, How do you test a frame in a web page?
How to set the function parameters as optional. Pls anybody can give the answer.. Thanks in advance...
Test script is generated and it is enhanced.It is required to be saved.But the disk space is insufficient.You are not permitted to delete any scripts.How are you going to save?
How we can add actions in the test using QTP?
abt filter function if iam using below two statments its ok My = Array ("Apples","Oranges", "Apricots") MyResult = Filter(My, "Oran") if i use msgbox MyResult it shows type mismatch plz help me
How u execute test cases in manual testing?