hi guys, could you please prepare script for given format ?
1,1,2,3,5,8,13,21,...etc use vbscript for this...?
Answers were Sorted based on User's Feedback
Answer / phani daddanala
dim a, b, c
a=1
b=1
c=a+b
print a
print b
print c
while c<=100
print c
a=b
b=c
c=a+b
wend
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / madhumita baitalik
Sub Fibonacci()
a = 0
b = 1
For i = 1 To 10
c = a + b
a = b
b = c
msg1 = msg1 & "," & b
Next
Msg = "The string is 1" & msg1
MsgBox Msg
End Sub
| Is This Answer Correct ? | 3 Yes | 3 No |
How to handle the exceptions using recovery scenario manager in QTP?
Explain building blocks of the bpt framework ?
Where can I find and view run-time data table?
what are SetToProperty, SetROProperty,GetToproperty scripting?
pls guys understand this is question CAREFULLY,,, interviwer asks can u write test case for ATM m/c..i told, insert card enter pw...like this,,but interviwer not happy with that...ur not going to atm center? in ur office system ur testing ATM M/c...why ..how to test? what is the process?
How to Compare two database tables by using QTP?Please give me code details.
What is the use of "Registeruserfunc" when should we use it? Note:Please do not copy paste the date from QTP help. I tryed it.But I don't Understand where should we use exactly.
Write a script to delete a specific row in a webtable.
What is the meaning Work bench?
What is the difference between QTP 8.2 and QTP 9.2 ?
How can we retrieve the Bug Ids which are open&Reopen in status through QTP scrit?Please find the script which i tried... Dim objBugFactory, objBug Dim BugId Set TDConnection = QCUtil.TDConnection Set objBug = TDConnection.BugFactory If QCUtil.IsConnected then Reporter.ReportEvent 0, "Connected", "Connected to server: " + QCUtil.TDConnection.ServerName + chr (13) +"Project: " + QCUtil.TDConnection.ProjectName + chr (13) + "Domain: " + QCUtil.TDConnection.DomainName Reporter.ReportEvent 0, "Current time on server is","==>" & TDConnection.ServerTime Else Reporter.ReportEvent 1, "Not connected", "Not connected to Quality Center" End If If mybug.Status="Open" Then BugId=mybug.DefectId MsgBox BugId End If 'OR**********************************--------------------- -----********************************** If Bug_Fields("BG_STATUS").Value ="Open" Or "Re Open"Then BugId=Bug_Fields("BG_BUG_ID").Value MsgBox BugId End If
how to make connection to a remote mysql database in qtp any one can please provid eme deatail steps.