Hi everybady,
i have faced few Qns in one of i attended interview, please help me out with these below Qns.
1. how to join values without using join function?
2. how to compare values without using String compare function?
3. input is Bangalore, but i need output like this below format, what is function to use and get this outcome
B
A
N
G
A
L
o
R
E
4. Input is "CapGemini" but uotput should be like this "inimeGpaC"
5. Input is
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
Can someone let me know results of this Qns, please. Thanks.
Answer Posted / cnu_thatavarthi
1. how to join values without using join function?
Ans:
Option Explicit
Dim strValue, arrValue,iCount
arrValue = Array("Srinivasulu","Thatavarthi")
For iCount = 0 To UBound(arrValue)
strValue =strValue&" "& arrValue(iCount)
Next
MsgBox strValue
'Actual Output:
---------------------------
---------------------------
Srinivasulu Thatavarthi
---------------------------
OK
---------------------------
2. how to compare values without using String compare function?
Ans:
Option Explicit
Dim strValue
strValue = "Thatavarthi"
If strValue = "Thatavarthi" Then
MsgBox "Both strings are same"
Else
MsgBox "Both strings are not same"
End If
'Expected out Put
---------------------------
---------------------------
Both strings are same
---------------------------
OK
---------------------------
3. input is Bangalore, but i need output like this below format, what is function to use and get this outcome
B
A
N
G
A
L
o
R
E?
Ans:
Option Explicit
Dim strValue,iCount, strNewValue
strValue = Ucase("Bangalore")
For iCount = 1 To Len(strValue)
strNewValue = strNewValue& vbNewLine& Mid(strValue,iCount,1)
Next
MsgBox strNewValue
'Expected Value:
---------------------------
---------------------------
B
A
N
G
A
L
O
R
E
---------------------------
OK
---------------------------
4. Input is "CapGemini" but uotput should be like this "inimeGpaC"
Option Explicit
Dim strValue,iCount, strNewValue
strValue = "CapGemini"
For iCount = Len(strValue) To 1 Step -1
strNewValue = strNewValue& Mid(strValue,iCount,1)
Next
strNewValue = Trim(strNewValue)
MsgBox strNewValue
'Expected value
---------------------------
---------------------------
inimeGpaC
---------------------------
OK
---------------------------
5. Input is
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
Ans:
Option Explicit
Dim iCount,strValue,jcount,arrValue
For iCount = 1 To 5
For jcount = 1 To 5
If iCount = jcount then
strValue = strValue&jcount
Exit For
End IF
Next
arrValue = arrValue&vbNewline& strValue
Next
MsgBox arrValue
'Expected Output
---------------------------
---------------------------
1
12
123
1234
12345
---------------------------
OK
---------------------------
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
What are the different types of operators and their order of precedence?
how to operate webobjects in a webpage using getobject function and then using generic methods?
how to set one column as primary key in QTP and fetch values accordingly
How do i automate a website www.flyashx.com without having any test cases witin a week time.
How many types of procedures are available in the vbscript language?
Explain sga memory structures?
regular expression that will recognize a browser as long as its name property starts with mybrowser
please can you help me to get a code of flames using a visual basic 6
hi what is called GUI in QTP 8.2 and how can we test the apllication using GUI?
Explain the extension .hta?
How to add actions in driver script to run those actions in QTP?
Hi All, I am facing one problem in QTP. There is link object in my application that exist in the Frame in mozilla firefox. Click event on that object is not working but once the frame is enabled/activated then click event works fine.But the frame does not have the activate property. This problem is coming in firefox only. Regards
Explain about scrrun.dll?
Which loop is used in case of arrays in the vbscript language?
Set srchobj=Description.Create() srchobj("type").value="text" srchobj("name").value="q" srchobj("html tag").value="input" browser("micclass:=google").Page("micclass:=google").webedit (srchobj).Set "qtp" what's wrong in my code pls tell me ? the above code working fine and i got my result pass,now i am trying to run the program it shows general run time error why?pls help me i am in learning stage ?