Example for VB Script

Function fib(n)

Dim fab(70)

fab(0)=0
fab(1)=1

      For j=2 to n
	  
         fab(j)=fab(j-1)+ fab(j-2)
      
      Next

      For i=0 to n-1
	 
         msgbox fab(i)
      Next

end function


Next Save this function in .vbs file and call the function 
in QTP Action

Example for Descriptive Programme

systemutil.Run("http://www.rediffmail.com")

set BRO =Description.Create()
BRO("title").Value = "Welcome to Rediff.com India"
BRO("name").value ="Welcome to Rediff.com India"
BRO("openedbytestingtool").value= true


Set PG =Description.Create()
PG("title").value="Welcome to Rediff.com India"
PG("url").value="http://www.rediff.com/index.html"

Set UN =Description.Create()
UN("name").value= "login"
UN("Class Name").value ="WebEdit"
UN("type").value= "text"
UN("html tag").value="INPUT"

Set PWD =Description.Create()
PWD("name").value ="passwd"
PWD("Class Name").value="WebEdit"
PWD("type").value="password"
PWD("html tag").value="INPUT"

Set Login =Description.Create()
Login("name").value ="Go"
Login("Class Name").value="WebButton"
Login("type").value="submit"
Login("html tag").value="INPUT"
Login("value").value="GO"
Login("class").value="rmailgobtn"

temp= Browser("Welcome to Rediff.com").Page("Welcome to 
Rediff.com").WebElement("ShockwaveFlash1").Exist
If temp= true Then
    'Browser("Welcome to Rediff.com").Page("Welcome to 
Rediff.com").WebElement("ShockwaveFlash1").
End If


Browser(BRO).Page(PG).WebEdit(UN).Set "testingwithshyam" 
Browser(BRO).Page(PG).WebEdit(PWD).Set "shyamshyam" 
Browser(BRO).Page(PG).WebButton(Login).Click





..................... Any More Querys mail to 
testingwithshyam@gmail.com

Hi
i am senthilkumar now i am working manual tester. i will 
test windows application.

how will test application
pls send me small script