Is it possible to return multiple values from a function..?
Then how..?
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 |
What the differences are and best practical application of Object Repository?
what is descriptiveprograming? how to do object identification thrugh Descriptive and is possible smart identification or not
Explain Different types of Checkpoints in Quick Test Professional?
Can any body please tell me the steps of keyword driven frame work in qtp. My mail is saswat445@gmail.com please send some materials on keyword driven testing in qtp. thanks a lot...
In VSS, HoW the documents send to local folder? copy paste or any other? plz explain about VSS TOOL kit?
Is it possible to return multiple values from a function..? Then how..?
write a vb script to print even numbers from 1-50?
6 Answers Kclink Technologies, Logica CMG,
How the QTP recognize, handle n reports that a error has been handled by it(QTP) when we perform a recovery scenario in our application n in what manner it will display it in resulting window? Plz help me out.
How to Test the mainframe application?
Once the Actions are splitted , is there any way to merge them
how to i add the values using the check points property?( i.e valid data(for valid data it's giving the footer message:value is added) and for invalid data: special chars, spaces,Duplicates and null values (in my page when ever we enter special chars, spaces and null values, it's giving the proper warning message and for Duplicates it's giving the footer message:"value already exists)?
What is repository parameters in QTP?how will we define that????what is unmapped & mapped repository parameters????????