Script is to create a data sheet for employee deatils in QTP

Dim b(24),d(25)
c=0
Set sheet=datatable.AddSheet("Employee")
Set p1=sheet.AddParameter("Employee Name","sudhakar")
Set p2=sheet.AddParameter("Age","40")
Set g1=sheet.GetParameter("sudhakar")
Set g2=sheet.GetParameter("40")
For i=1 to 25
p1.ValueByRow(i)="Emp"&i
p2.ValueByRow(i)=RandomNumber(18,58)
Next
For i= 1 TO 25
If g2.ValueByRow(i)>50 Then
b(c)=g2.ValueByRow(i)
d(c)=g1.ValueByRow(i)
c=c+1
End If
Next
msg=""
For i=0 to 24
If b(i)="" Then
Exit for
End If
msg=msg &vbtab& d(i)&vbtab &b(i)&vbcrlf
Next
msgbox("Employees who are 50 years old and above are" &vbcrlf&vbtab&"Name"&vbtab&"Age"&vbcrlf&msg)