Sample VBscripts

Sample VBScripts

Data types in VB Script

VBScript has only one data type called a Variant. A Variant is a special kind of data type that can contain different kinds of information, depending on how it is used.
If you use a variable for assigning a numeric value, that variable behaves like a numeric data type. If you assign string value, that variable behaves like a string.

However VBSCRIPT is having sub data types in Variant.

1. Empty
2. Null
3. Boolean
4. Byte
5. Integer
6. Currency
7. Long
8. Single
9. Double
10. Date (Time)
11. String
12. Object
13. Error.

We can use conversion functions to convert data from one subdatatype to another type. To find subdatatype of a variant we need to use vartype function.

Variables

A variable is a convenient placeholder to store program information. You can change variable value in script running time. In VBScript variables are always of one fundamental data type Variant.

Use of variables in script:

Variable is very useful for carrying a value. For example if your script is using a value 10 in five places (3rd, 7th, 12th, 17th, 20th lines). Suppose if that value is changed from 10 to 20 then you need to change that value in all the places where ever it is used. But if you have used variable in place of value (x=10) you need to change in only one place if that value is changed from 10 to 20(x=20).  Variables are having flexibility to change value in run time.

Declaring Variables:

Because of vbscript is having only one data type no need to declare any variable in the script. By default all variables are comes under variant datatype. But it is not the good practice because you could misspell the variable name in one or more places, causing unexpected results when your script is run.

For that reason, the Option Explicit statement is available to require explicit declaration of all variables. Option Explicit statement will enforce you to declare all the variables.

We can declare the variables using Dim statement.

Ex:       Dim x

X=10   ‘Normal Declaration

Optional Explicit

Dim x

X=10   ‘When working with optional explicit

Naming Restrictions to Variables:

Variable names follow the standard rules for naming anything in VBScript.

A variable name:

• Must begin with an alphabetic character.
• Cannot contain an embedded period.
• Must not exceed 255 characters.
• Must be unique in the scope in which it is declared.

scope of a Variable:

If you declare a variable with in a Function then it is local to that function only. You can access that variable only with in that function. Now It has local scope and is a procedure-level variable.

If you declare a variable with in a Script then it can be used by entire script and can be accessed by all functions. Now It has local scope and is a procedure-level variable. This is a script-level variable, and it has script-level scope.

Array Variables

a variable containing a single value is a scalar variable. you can create a variable that can contain a series of values using an index number. This is called an array variable. Arrays are useful when you’re storing sets of similar data.You can store any kind of data in an array. The array can hold a combination of data types.

Creating Arrays:

Using Dim Statement we can create an array. we can convert a variable in to an array using array function.

Types of Arrays:

1. Fixed Length Arrays
2. Dynamic Arrays

Fixed arrays have a specific number of elements in them, whereas dynamic arrays can vary in the number of elements depending on how many are stored in the array.

Creating Fixed Length Arrays:

Dim a(10)

Here ‘a’ is an array and is having 11 elements (Array count starts from 0). Here it’s a fixed size array with size 10.

Creating Dynamic Arrays:

A dynamic array is created in the same way as a fixed array, but you don’t put any bounds in the declaration.

Dim x()

Here ‘x’ is the dynamic array and we can store n number of elements in it. The benefit of a dynamic array is that if you don’t know how large the array will be when you write the code, you can create code that sets or changes the size while the VBScript code is running.

We can store more values in dynamic array by redeclaring the array using Redim statement.

ReDim Statement:

Using Redim we can redeclare an array size. ReDim tells VBScript to “re-dimension” the array for how many elements you specify. If you use redim statement in your script it will clear all existing data which is stored in that array and declares that array as fresh array.

Redim with Preserve Keyword:

When your working redim it will clear all the existing data in an array. The preserve keyword is useful to overcome this problem. Preserve keyword will preserve the existing data and resize the array with the specified size.

Ex: Redim preserve a(20)

Using Fixed arrays:

Dim x(2)

x(0)=”how”
x(1)=”are”
x(2)=”you”

for i=lbound(x) to ubound (x)
msgbox x(i)
Next

Here we cann’t store more than 3 elements. Because this is a fixed length array..

Using Dynamic Arrays:

Dim x()

Redim preserve x(2)

x(0)=”how”
x(1)=”are”
x(2)=”you”

Redim preserve x(3)
x(3)=123

Here ‘x’ is a dynamic array and by redeclaring x it can able to store more values into it.

Converting a variable into an array:

We can convert a variable in to array variable using array function.

Example

Dim v
v=array(“how”,”are”,”you”)

for i=lbound(v) to ubound (v)
msgbox v(i)
Next

Here ‘v’ is a dynamic array. We can store some more elements by redeclaring the array.

Constants

A constant is a meaningful name that takes the place of a number or string and never changes. The difference between variable and constant is we can change the variable value in run time but for constants its not possible.

Creating constants:

const str=”QTP”

here str is a constant and the value will never change.

We have public and Private constants. By default all are public. If you want specify the type then

Public const str=”QTP”
or
Private const str=”QTP”

VB Script Procedures

There are two types of procedures

1. Function Procedure
2. Sub Procedure

Function Procedure

A Function procedure is a series of VBScript statements enclosed by the Function and End Function statements. Function Procedure can able to return the value.

Example:

Function demo_add(a,b)

demo_add=a+b

End Function

oVal=demo_add(2,3)

msgbox oVal    ‘Returns 5

In this example demo_add function returns a value to oVal. In Function procedures we can use function name to assign a value.

Sub Procedure

A Sub procedure is a series of VBScript statements enclosed by the Sub and End Sub statements. Sub Procedure cannot return any value.

Example:

Sub demo_sub(a,b,c)

c=a+b

End sub

demo_sub 2,3,x

msgbox x    ‘Returns 5

This example will do the same as what function procedure is doing above. But in sub Procedure we need to use one more parameter to get values from the sub procedure.

Types of arguments in procedures

1. ByVal
2. ByRef

ByVal:

Indicates that the argument is passed by value.

ByRef :
Indicates that the argument is passed by reference.

By default all arguments are ‘ByRef’.

Syntax

Function demo_add(a,b)

demo_add=a+b

End Function

Here a,b are the arguments. By default these are ‘ByRef’.

In simple words ByRef Means the value which is assigned to the variable with in the function is permanent and we can use that value out side of that function also.

ByVal means the value which is assigned to the variable with in the function is temporary and we can use that value only with in that function.

Example:

Function demo_parameters(byref x,byval y)
x=20
y=50
demo_parameters=x+y
End Function

a=10
b=20
msgbox demo_parameters(a,b)
msgbox a
msgbox b

In the above function x and y are the arguments, declared as byref and byval.
With in that function i assigned values to x and y.

Outside of the function i assigned values to two variables and passing those variables in to the function.
‘a’ is passing reference to x and b is passing value to y.

With in that function i am changing the value for x. This value is permanent for ‘a’. Because ‘a’ is passed as ‘ByRef’.

But the value of ‘b’ will not be changed because it is passed as ‘ByVal’.

—————————————————————————————————————————————————–

Returning multiple values from a Function
Usually Function procedure will return only one value. But by using arrays concept we can return multiple values from a function.

‘**********************************************************

Function fnGetOddNumbersInRange(fStartRange,fEndRange)

Dim oddNumbers()    ‘Declaring Dynamic array to store multiple values

cnt=0            ‘Initiating a counter to redim the dynamic array

For iCounter=fStartRange to fEndRange

If iCounter mod 2<>0 Then    ‘Applying the odd number logic : num/2 <>0 then its an odd number

ReDim preserve oddNumbers(cnt)
oddNumbers(cnt)=iCounter        ‘ Storing Odd numbers in dynamic array
cnt=cnt+1

End If
Next

fnGetOddNumbersInRange=oddNumbers        ‘Assigning array to the function

End Function

‘How to work with this function?

oVal=fnGetOddNumbersInRange(1,10)    ‘Here Function will return array value

For i=0 to ubound(oVal)

msgbox oVal(i)        ‘ Displaying the values in array

Next

‘**************************************************************************
’1    Print Hello World
Print “Hello World”
‘**************************************************************************
‘**************************************************************************
’2    Find whether given number is a odd number
Dim oNumber

oNumber=4
If oNumber mod 2 <>0 Then
Print “The Number “& oNumber &” is an Odd Number”
else
Print “The Number “& oNumber &” is not an Odd Number”
End If
‘**************************************************************************
‘**************************************************************************
’3    Print odd numbers between given range of numbers

Dim RangeStart
Dim RangeEnd
Dim iCounter
RangeStart=10
RangeEnd=20

For iCounter=RangeStart to RangeEnd

If iCounter mod 2 <>0 Then
Print  oNumber
End If

Next

‘**************************************************************************
‘**************************************************************************
’4    Find the factorial of a given number
Dim oNumber
Dim iCounter
Dim fValue

oNumber=6
fValue=1

For iCounter=oNumber to 1 step-1
fValue=fValue*iCounter
Next
print  fValue

‘**************************************************************************
‘**************************************************************************
’5    Find the factors of a given number
Dim oNumber
Dim iCounter

oNumber=10

For iCounter=1 to oNumber/2
If oNumber mod iCounter=0 Then
print iCounter
End If
Next
print oNumber
‘**************************************************************************
‘**************************************************************************
’6    Print prime numbers between given range of numbers

Dim RangeStart
Dim RangeEnd
Dim iCounter
RangeStart=1
RangeEnd=30

For iCounter=RangeStart to RangeEnd

For iCount=2 to round(iCounter/2)
If iCounter mod iCount=0 Then
Exit for
End If
Next

If iCount=round(iCounter/2)+1 or iCounter=1 Then
print iCounter
End If
Next

‘**************************************************************************
‘**************************************************************************
’7    Swap 2 numbers with out a temporary variable

Dim oNum1
Dim oNum2

oNum1=1055
oNum2=155

oNum1=oNum1-oNum2
oNum2=oNum1+oNum2
oNum1=oNum2-oNum1
print oNum1
print oNum2
‘**************************************************************************
‘**************************************************************************
’8    Write a program to Perform specified Arithmetic Operation on two given numbers
Dim oNum1
Dim oNum2
Dim oValue

oNum1=10
oNum2=20

OperationtoPerform=”div”

Select Case lcase(OperationtoPerform)

Case “add”
oValue=oNum1+oNum2
Case “sub”
oValue=oNum1-oNum2
Case “mul”
oValue=oNum1*oNum2
Case “div”
oValue=oNum1/ oNum2
End Select
print oValue
‘**************************************************************************
‘**************************************************************************
’9    Find the length of a given string
Dim oStr
Dim oLength
oStr=”sudhakar”
oLength=len(oStr)
print oLength
‘**************************************************************************
‘**************************************************************************
’10    Reverse given string
Dim oStr
Dim oLength
Dim oChar
Dim iCounter

oStr=”sudhakar”
oLength=len(oStr)

For iCounter=oLength to 1 step-1
oChar=oChar&mid(oStr,iCounter,1)
Next
print oChar
‘**************************************************************************
‘**************************************************************************
’11    Find how many alpha characters present in a string.
Dim oStr
Dim oLength
Dim oChar
Dim iCounter

oStr=”su1h2kar”
oLength=len(oStr)

oAlphacounter=0

For iCounter=1 to oLength

If not isnumeric (mid(oStr,iCounter,1)) then
oAlphacounter=oAlphacounter+1
End if

Next
print oAlphacounter

‘**************************************************************************
‘**************************************************************************
’12    Find occurrences of a specific character in a string

Dim oStr
Dim oArray
Dim ochr
oStr=”sudhakar”
ochr=”a”

oArray=split(oStr,ochr)
print ubound(oArray)
‘**************************************************************************
‘**************************************************************************
’13    Replace space with tab in between the words of a string.

Dim oStr
Dim fStr

oStr=”Quick Test Professional”

fStr=replace(oStr,” “,vbtab)
print fStr

‘**************************************************************************
‘**************************************************************************
’14    Write a program to return ASCII value of a given character

Dim ochr
Dim aVal

ochr=”A”

aVal=asc(ochr)
print aVal

‘**************************************************************************
‘**************************************************************************
’15    Write a program to return character corresponding to the given ASCII value

Dim ochr
Dim aVal

aVal=65

oChr=chr(aVal)
print oChr

‘**************************************************************************
‘**************************************************************************
’16    Convert string to Upper Case
Dim oStr
Dim uStr

oStr=”QuickTest Professional”

uStr=ucase(oStr)
print uStr
‘**************************************************************************
‘**************************************************************************
’17    Convert string to lower case
Dim oStr
Dim lStr

oStr=”QuickTest Professional”
lStr=lcase(oStr)
print lStr

‘**************************************************************************
‘**************************************************************************
’18    Write a program to Replace a word in a string with another word

Dim oStr
Dim oWord1
Dim oWord2
Dim fStr

oStr=”Mercury Quick Test Professional”
oWord1=”Mercury”
oWord2=”HP”

fStr=replace(oStr,oWord1,oWord2)
print fStr

‘**************************************************************************
‘**************************************************************************
’19    Check whether the string is a POLYNDROM

Dim oStr

oStr=”bob”
fStr=StrReverse(oStr)
If oStr=fStr Then
Print “The Given String “&oStr&” is a Palindrome”
else
Print “The Given String “&oStr&” is not a Palindrome”
End If
‘**************************************************************************
‘**************************************************************************
’20    Verify whether given two strings are equal
Dim oStr1
Dim ostr2

oStr1=”qtp”
oStr2=”qtp”
If  oStr1=oStr2 Then
Print “The Given Strings are Equal”
else
Print “The Given Strings are not Equal”
End If
‘**************************************************************************
‘**************************************************************************
’21    Print all values from an Array
Dim oArray
Dim oCounter
oArray=array(1,2,3,4,”qtp”,”Testing”)

For oCounter=lbound(oArray) to ubound(oArray)
print oArray(oCounter)
Next

‘**************************************************************************
‘**************************************************************************
’22    Sort Array elements
Dim oArray
Dim oCounter1
Dim oCounter2
Dim tmp

oArray=array(8,3,4,2,7,1,6,9,5,0)

For oCounter1=lbound(oArray) to ubound(oArray)

For oCounter2=lbound(oArray) to ubound(oArray)-1

If oArray(oCounter2)>oArray(oCounter2+1) Then
tmp=oArray(oCounter2)
oArray(oCounter2)=oArray(oCounter2+1)
oArray(oCounter2+1)=tmp
End If

Next

Next

For oCounter1=lbound(oArray) to ubound(oArray)
print oArray(oCounter1)
Next

‘**************************************************************************
‘**************************************************************************
’23    Add two 2X2 matrices
Dim oArray1(1,1)
Dim oArray2(1,1)
Dim tArray(1,1)

oArray1(0,0)=8
oArray1(0,1)=9
oArray1(1,0)=5
oArray1(1,1)=-1

oArray2(0,0)=-2
oArray2(0,1)=3
oArray2(1,0)=4
oArray2(1,1)=0

tArray(0,0)=oArray1(0,0)+ oArray2(0,0)
tArray(0,1)=oArray1(0,1)+oArray2(0,1)
tArray(1,0)=oArray1(1,0)+oArray2(1,0)
tArray(1,1)=oArray1(1,1)+oArray2(1,1)
‘**************************************************************************
‘**************************************************************************

’24    Multiply Two Matrices of size 2X2

Dim oArray1(1,1)
Dim oArray2(1,1)
Dim tArray(1,1)

oArray1(0,0)=8
oArray1(0,1)=9
oArray1(1,0)=5
oArray1(1,1)=-1

oArray2(0,0)=-2
oArray2(0,1)=3
oArray2(1,0)=4
oArray2(1,1)=0

tArray(0,0)=oArray1(0,0)* oArray2(0,0)+ oArray1(0,1)* oArray2(1,0)
tArray(0,1)=oArray1(0,0)* oArray2(0,1)+ oArray1(0,1)* oArray2(1,1)
tArray(1,0)=oArray1(1,0)* oArray2(0,0)+ oArray1(1,1)* oArray2(1,0)
tArray(1,1)=oArray1(1,0)* oArray2(0,1)+ oArray1(1,1)* oArray2(1,1)

‘**************************************************************************
‘**************************************************************************
’25    Convert a String in to an array

Dim oStr
Dim iCounter
oStr=”Quick Test Professional”
StrArray=split(oStr)

For iCounter=0 to ubound(StrArray)
print StrArray(iCounter)
Next

‘**************************************************************************
‘**************************************************************************
’26    Convert a String in to an array using ‘i‘ as delimiter

Dim oStr
Dim iCounter
oStr=”Quick Test Professional”
StrArray=split(oStr,”i”)

For iCounter=0 to ubound(StrArray)
print StrArray(iCounter)
Next

‘**************************************************************************
‘**************************************************************************
’27    Find number of words in string

Dim oStr
Dim iCounter
oStr=”Quick Test Professional”
StrArray=split(oStr,” “)
print “Theere are “&ubound(StrArray)+1&” words in the string”

‘**************************************************************************
‘**************************************************************************
’28    Write a program to reverse the words of a given string.

Dim oStr
Dim iCounter
oStr=”Quick Test Professional”
StrArray=split(oStr,” “)

For iCounter=0 to ubound(StrArray)
print strreverse(StrArray(iCounter))
Next

‘**************************************************************************
‘**************************************************************************
’29    Print the data as a Pascal triangle
‘The formulae for pascal triangle is nCr=n!/(n-r)!*r!

Dim PascalTriangleRows
Dim nCr
Dim NumCount
Dim RowCount

PascalTriangleRows = 10
For NumCount = 0 To PascalTriangleRows
toPrint= Space(PascalTriangleRows – NumCount)
For RowCount = 0 To NumCount
If (NumCount = RowCount) Then
nCr = 1
Else
nCr = Factorial(NumCount) / (Factorial(NumCount – RowCount) * Factorial(RowCount))
End If
toPrint=toPrint&nCr&” “
Next
print toPrint
Next

Function Factorial(num)
Dim iCounter
Factorial = 1
If num <> 0 Then
For iCounter = 2 To num
Factorial = Factorial * iCounter
Next
End If
End Function
‘**************************************************************************
‘**************************************************************************
’30    Join elements of an array as a string

Dim oStr
Dim iCounter
oStr=”Quick Test Professional”
StrArray=split(oStr,” “)

print join(StrArray,” “)

‘**************************************************************************
‘**************************************************************************
’31    Trim a given string from both sides

Dim oStr

oStr=”    QTP    “
print trim(oStr)

‘**************************************************************************
‘**************************************************************************
’32    Write a program to insert 100values and to delete 50 values from an array

Dim oArray()
Dim iCounter

ReDim oArray(100)

For iCounter=0 to ubound(oArray)
oArray(iCounter)=iCounter
‘Print total 100 Values
print(oArray(iCounter))
Next
print “******************************”
print “******************************”
ReDim preserve oArray(50)

For iCounter=0 to ubound(oArray)
‘Print Values after deleting 50 values
print(oArray(iCounter))
Next
‘**************************************************************************
‘**************************************************************************
’33    Write a program to force the declaration of variables

Option explicit    ‘ this keyword will enforce us to declare variables

Dim x
x=10
‘Here we get an error because i have not declared y,z
y=20
z=x+y
print z
‘**************************************************************************
‘**************************************************************************
’34    Write a program to raise an error and print the error number.

On Error Resume Next
Err.Raise 6   ‘ Raise an overflow error.
print  (“Error # ” & CStr(Err.Number) & ” ” & Err.Description)

‘**************************************************************************
‘**************************************************************************
’35    Finding whether a variable is an Array

Dim oArray()

if  isarray(oArray) then
print “the given variable is an array”
else
print “the given variable is not an array”
End if
‘**************************************************************************
‘**************************************************************************
’36    Write a program to list the Timezone offset from GMT
Dim objWMIService
Dim colTimeZone
Dim objTimeZone

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\.\root\cimv2″)
Set colTimeZone = objWMIService.ExecQuery(“Select * from Win32_TimeZone”)

For Each objTimeZone in colTimeZone
print “Offset: “& objTimeZone.Bias
Next
‘**************************************************************************
‘**************************************************************************
’37 Retrieving Time Zone Information for a Computer
Dim objWMIService
Dim colTimeZone
Dim objTimeZone

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\.\root\cimv2″)
Set colTimeZone = objWMIService.ExecQuery(“Select * from Win32_TimeZone”)

For Each objItem in colTimeZone

print “Bias: ” & objItem.Bias
print “Caption: ” & objItem.Caption
print “Daylight Bias: ” & objItem.DaylightBias
print “Daylight Day: ” & objItem.DaylightDay
print “Daylight Day Of Week: ” & objItem.DaylightDayOfWeek
print “Daylight Hour: ” & objItem.DaylightHour
print “Daylight Millisecond: ” & objItem.DaylightMillisecond
print “Daylight Minute: ” & objItem.DaylightMinute
print “Daylight Month: ” & objItem.DaylightMonth
print “Daylight Name: ” & objItem.DaylightName
print “Daylight Second: ” & objItem.DaylightSecond
print “Daylight Year: ” & objItem.DaylightYear
print “Description: ” & objItem.Description
print “Setting ID: ” & objItem.SettingID
print “Standard Bias: ” & objItem.StandardBias
print “Standard Day: ” & objItem.StandardDay
print “Standard Day Of Week: ” & objItem.StandardDayOfWeek
print “Standard Hour: ” & objItem.StandardHour
print “Standard Millisecond: ” & objItem.StandardMillisecond
print “Standard Minute: ” & objItem.StandardMinute
print “Standard Month: ” & objItem.StandardMonth
print “Standard Name: ” & objItem.StandardName
print “Standard Second: ” & objItem.StandardSecond
print “Standard Year: ” & objItem.StandardYear

Next

‘**************************************************************************
‘**************************************************************************
’38    Write a program to Convert an expression to a date

Dim StrDate
Dim actualDate
Dim StrTime
Dim actualTime

StrDate = “October 19, 1962″   ‘ Define date.
actualDate = CDate(StrDate)   ‘ Convert to Date data type.
print actualDate
StrTime = “4:35:47 PM”         ‘ Define time.
actualTime = CDate(StrTime)   ‘ Convert to Date data type.
print actualTime

‘**************************************************************************
‘**************************************************************************
’39 Display current date and Time

print now
‘**************************************************************************
‘**************************************************************************
’40    Find difference between two dates.

‘Date difference in Years
print DateDiff(“yyyy”,”12/31/2002″,Date)

‘Date difference in Months
print DateDiff(“m”,”12/31/2002″,Date)

‘Date difference in Days
print DateDiff(“d”,”12/31/2002″,Date)

‘**************************************************************************
‘**************************************************************************
’41    Add time interval to a date

print DateAdd(“m”, 1, “31-Jan-95″)

‘**************************************************************************
‘**************************************************************************
’42    Print current day of the week

Print day(date)
‘**************************************************************************
‘**************************************************************************
’43    Find whether current month is a long month
Dim oCurrentMonth
Dim ocurrentYear
Dim oDaysinMonths

oCurrentMonth = Month(date)
ocurrentYear = Year(date)
oDaysinMonths=Day(DateSerial(ocurrentYear, oCurrentMonth + 1, 0))
print oDaysinMonths&” Days in Current Month”
If oDaysinMonths=31 Then
print “Current Month is a long month”
else
print “Current Month is not a long month”
End If
‘**************************************************************************
‘**************************************************************************
’44    Find whether given year is a leap year

’1st Method

‘The rules for leap year:
’1. Leap Year is divisible by 4    (This is mandotory Rule)
’2. Leap Year is not divisible by 100 (Optional)
’3. Leap Year divisble by 400 (Optional)

Dim oYear

oYear=1996

If ((oYear Mod 4 = 0) And (oYear Mod 100 <> 0) Or (oYear Mod 400 = 0)) then
print “Year “&oYear&” is a Leap Year”
else
print “Year “&oYear&” is not a Leap Year”
End If

’45.    2nd Method
‘ Checking 29 days for February month in specified year
Dim oYear
Dim tmpDate

oYear=1996
tmpDate = “1/31/” & oYear
DaysinFebMonth = DateAdd(“m”, 1, tmpDate)

If  day(DaysinFebMonth )=29 then
print “Year “&oYear&” is a Leap Year”
else
print “Year “&oYear&” is not a Leap Year”
End If

‘**************************************************************************
‘**************************************************************************
’46    Format Number to specified decimal places

Dim oNum
Dim DecimaPlacestobeFormat
oNum = 3.14159
DecimaPlacestobeFormat=2
print Round(oNum , DecimaPlacestobeFormat)

‘**************************************************************************
‘**************************************************************************
’47    Write a program to Generate a Random Numbers
‘This script will generate random numbers between 10 and 20
Dim rStartRange
Dim rEndRange

rStartRange=10
rEndRange=20

For iCounter=1 to 10
print Int((rEndRange – rStartRange + 1) * Rnd + rStartRange)
Next
‘**************************************************************************
‘**************************************************************************
’48    Write a program to show difference between Fix and Int

‘Both Int and Fix remove the fractional part of number and return the resulting integer value.
‘The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than or equal to number,
‘whereas Fix returns the first negative integer greater than or equal to number.
‘For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.

print Int(99.8)    ‘ Returns 99.
print Fix(99.2)    ‘ Returns 99.
print Int(-99.8)   ‘ Returns -100.
print Fix(-99.8)   ‘ Returns -99.
print Int(-99.2)   ‘ Returns -100.
print Fix(-99.2)   ‘ Returns -99.

‘**************************************************************************
‘**************************************************************************
’49    Write a program to  find subtype of a variable

Dim oVar
Dim oDatatypes
oVar=”QTP”
oVartype=Typename(oVar)
print oVartype

‘**************************************************************************
‘**************************************************************************
’50    Write a program to print the decimal part of a given number
Dim oNum
oNum=3.123
oDecNum=oNum- int(oNum)
print oDecNum
‘**************************************************************************