Interested to Buy Any Domain ? << Click Here >> for more details...
Is it possible to return multiple values from a function..?
Then how..?
- 3 Answers
- 16136 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / satish j
It is possible to return multiple values from a function?
Here I am taking the return values in an array and using
them as I want
mynum1 = 0
mynum2 = 0
dim linklist(2)
imax = ubound(linklist)
Function fncl1(ByRef mynum1,mynum2, x , y)
If i= 0 Then
z = "+"
Select Case z
case "+"
mynum1 = x +y
msgbox mynum1
fncl1 = mynum1
End select
else
z = "-"
Select Case z
case "-"
mynum2 = x- y
msgbox mynum2
fncl1 = mynum2
End Select
end if
End Function
For i=0 to imax
linklist(i) = fncl1(mynum1,mynum2,5,4)
If linklist(i) = mynum2 Then
Exit for
End If
Next
msgbox linklist(0)+linklist(1)
msgbox linklist(0)&","&linklist(1)
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / rico
One way of getting mutiple values from function is by
passing values "ByRef" to the funtion and storing the
return values in the one or more arguemnts passed to the
functions.
Ex :
mysum = 0
msgbox mysum ' return 0
mysub = 0
msgbox mysub ' return 0
Function fnmul(byref mysum, mysub, x , y)
mysum = x + y
msgbox mysum 'return 9
mysub = x - y
msgbox mysub 'return 1
End Function
Call fnmul( mysum, mysub, 5, 4)
msgbox mysum 'return 9
msgbox mysub 'return 1
| Is This Answer Correct ? | 3 Yes | 2 No |
Answer / rico
If we pass the parameters by "Byval" the last two msgbox
statement will return "0"
Ex :
mysum = 0
msgbox mysum ' return 0
mysub = 0
msgbox mysub ' return 0
Function fnmul(byval mysum, mysub, x , y)
mysum = x + y
msgbox mysum 'return 9
mysub = x - y
msgbox mysub 'return 1
End Function
Call fnmul( mysum, mysub, 5, 4)
msgbox mysum 'return 0
msgbox mysub 'return 0
| Is This Answer Correct ? | 1 Yes | 3 No |
When to use shared and local object repository?
How to integrate the qualitycenter with qtp
How u call functions in QTP Function to calculate the length of characters in a wor
anybody give me the real time example for descriptive programming of web application
can u write one user defined function for webedit class.
What are the technics follow in writing VB script?
What are the disadvantages of Recovery Scenarios in QTP ?
how to parameterise a test with data base table or excel sheet?
one ok button and one text box is there.when i click on ok button in that text box one no. will display from 1 to 100 randomley.if that is not 100 when we click on ok button again ,again another text box ll created with another no. we will continue this till the text box created and displays 100.and when its 100 ok button should disabled. remember thet no will display not seriely ,it displays randomley,and each time new text box will created.
what is clean sweep?
What is the present version of the VB Script we are using
How can I open a EXCEL file from QTP Resultviewer with reporter.ReportEvent function call. Example: Test files for details click "here". And clicking "Here" in the resultviewer will open a local EXCEL FILE.
WinRunner 
