'****************************************************
'1 To check Vowel,Symbols, Spaces and special character in given string
Option Explicit
Dim str1,char,cnt,vcnt,ccnt,splcnt,spacecnt,i
vcnt=0
ccnt=0
splcnt=0
spacecnt=0
str1=LCase(InputBox("Enter Any Text: ","String to check "))
Msgbox str1
cnt=Len(str1)
For i=1 to cnt
char=Mid(str1,i,1)
If (char="a" or char="e" or char="i" or char="o" or char="u" )Then
vcnt=vcnt+1
ElseIf(char="@" or char="#" or char="$" or char="&" or char="*" or char=":" or char="," or char="|" )Then
splcnt=splcnt+1
Elseif(char=" ") Then
spacecnt=spacecnt+1
Else
ccnt=ccnt+1
End If
Next
Msgbox "Vowel Count: "&vcnt
Msgbox "Consonent Count: "&ccnt
Msgbox "Special charactor: "&splcnt
'****************************************************
'2 Find whether given number is a odd number
Dim oNumber
oNumber=4
If oNumber mod 2 <>0 Then
MsgBox "The Number "& oNumber &" is an Odd Number"
else
MsgBox "The Number "& oNumber &" is not an Odd Number"
End If
'****************************************************
'3 MsgBox 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
MsgBox 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
MsgBox 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
MsgBox iCounter
End If
Next
MsgBox oNumber
'****************************************************
'6 MsgBox 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
MsgBox 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
MsgBox oNum1
MsgBox 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
MsgBox oValue
'****************************************************
'9 Find the length of a given string
Dim oStr
Dim oLength
oStr="suresh"
oLength=len(oStr)
MsgBox oLength
'****************************************************
'10 Reverse given string
Dim oStr
Dim oLength
Dim oChar
Dim iCounter
oStr="suresh"
oLength=len(oStr)
For iCounter=oLength to 1 step-1
oChar=oChar&mid(oStr,iCounter,1)
Next
MsgBox 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
MsgBox oAlphacounter
'****************************************************
'12 Find occurrences of a specific character in a string
Dim oStr
Dim oArray
Dim ochr
oStr="suresh"
ochr="a"
oArray=split(oStr,ochr)
MsgBox 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)
MsgBox fStr
'****************************************************
'14 Write a program to return ASCII value of a given character
Dim ochr
Dim aVal
ochr="A"
aVal=asc(ochr)
MsgBox aVal
'****************************************************
'15 Write a program to return character corresponding to the given ASCII value
Dim ochr
Dim aVal
aVal=65
oChr=chr(aVal)
MsgBox oChr
'****************************************************
'16 Convert string to Upper Case
Dim oStr
Dim uStr
oStr="QuickTest Professional"
uStr=ucase(oStr)
MsgBox uStr
'****************************************************
'17 Convert string to lower case
Dim oStr
Dim lStr
oStr="QuickTest Professional"
lStr=lcase(oStr)
MsgBox 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)
MsgBox fStr
'****************************************************
'19 Check whether the string is a POLYNDROM
Dim oStr
oStr="bob"
fStr=StrReverse(oStr)
If oStr=fStr Then
MsgBox "The Given String "&oStr&" is a Palindrome"
else
MsgBox "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
MsgBox "The Given Strings are Equal"
else
MsgBox "The Given Strings are not Equal"
End If
'****************************************************
'21 MsgBox all values from an Array
Dim oArray
Dim oCounter
oArray=array(1,2,3,4,"qtp","Testing")
For oCounter=lbound(oArray) to ubound(oArray)
MsgBox 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)
MsgBox 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)
MsgBox 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)
MsgBox StrArray(iCounter)
Next
'****************************************************
'27 Find number of words in string
Dim oStr
Dim iCounter
oStr="Quick Test Professional"
StrArray=split(oStr," ")
MsgBox "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)
MsgBox strreverse(StrArray(iCounter))
Next
'****************************************************
'29 MsgBox 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
toMsgBox= 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
toMsgBox=toMsgBox&nCr&" "
Next
MsgBox toMsgBox
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," ")
MsgBox join(StrArray," ")
'****************************************************
'31 Trim a given string from both sides
Dim oStr
oStr=" QTP "
MsgBox 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
'MsgBox total 100 Values
MsgBox(oArray(iCounter))
Next
MsgBox "******************************"
MsgBox "******************************"
ReDim preserve oArray(50)
For iCounter=0 to ubound(oArray)
'MsgBox Values after deleting 50 values
MsgBox(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
MsgBox z
'****************************************************
'34 Write a program to raise an error and MsgBox the error number.
On Error Resume Next
Err.Raise 6 ' Raise an overflow error.
MsgBox ("Error * " & CStr(Err.Number) & " " & Err.Description)
'****************************************************
'35 Finding whether a variable is an Array
Dim oArray()
if isarray(oArray) then
MsgBox "the given variable is an array"
else
MsgBox "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
MsgBox "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
MsgBox "Bias: " & objItem.Bias
MsgBox "Caption: " & objItem.Caption
MsgBox "Daylight Bias: " & objItem.DaylightBias
MsgBox "Daylight Day: " & objItem.DaylightDay
MsgBox "Daylight Day Of Week: " & objItem.DaylightDayOfWeek
MsgBox "Daylight Hour: " & objItem.DaylightHour
MsgBox "Daylight Millisecond: " & objItem.DaylightMillisecond
MsgBox "Daylight Minute: " & objItem.DaylightMinute
MsgBox "Daylight Month: " & objItem.DaylightMonth
MsgBox "Daylight Name: " & objItem.DaylightName
MsgBox "Daylight Second: " & objItem.DaylightSecond
MsgBox "Daylight Year: " & objItem.DaylightYear
MsgBox "Description: " & objItem.Description
MsgBox "Setting ID: " & objItem.SettingID
MsgBox "Standard Bias: " & objItem.StandardBias
MsgBox "Standard Day: " & objItem.StandardDay
MsgBox "Standard Day Of Week: " & objItem.StandardDayOfWeek
MsgBox "Standard Hour: " & objItem.StandardHour
MsgBox "Standard Millisecond: " & objItem.StandardMillisecond
MsgBox "Standard Minute: " & objItem.StandardMinute
MsgBox "Standard Month: " & objItem.StandardMonth
MsgBox "Standard Name: " & objItem.StandardName
MsgBox "Standard Second: " & objItem.StandardSecond
MsgBox "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.
MsgBox actualDate
StrTime = "4:35:47 PM" ' Define time.
actualTime = CDate(StrTime) ' Convert to Date data type.
MsgBox actualTime
'****************************************************
'39 Display current date and Time
MsgBox now
'****************************************************
'40 Find difference between two dates.
'Date difference in Years
MsgBox DateDiff("yyyy","12/31/2002",Date)
'Date difference in Months
MsgBox DateDiff("m","12/31/2002",Date)
'Date difference in Days
MsgBox DateDiff("d","12/31/2002",Date)
'****************************************************
'41 Add time interval to a date
MsgBox DateAdd("m", 1, "31-Jan-95")
'****************************************************
'42 MsgBox current day of the week
MsgBox 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))
MsgBox oDaysinMonths&" Days in Current Month"
If oDaysinMonths=31 Then
MsgBox "Current Month is a long month"
else
MsgBox "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
MsgBox "Year "&oYear&" is a Leap Year"
else
MsgBox "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
MsgBox "Year "&oYear&" is a Leap Year"
else
MsgBox "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
MsgBox 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
MsgBox 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.
MsgBox Int(99.8) ' Returns 99.
MsgBox Fix(99.2) ' Returns 99.
MsgBox Int(-99.8) ' Returns -100.
MsgBox Fix(-99.8) ' Returns -99.
MsgBox Int(-99.2) ' Returns -100.
MsgBox Fix(-99.2) ' Returns -99.
'****************************************************
'49 Write a program to find subtype of a variable
Dim oVar
Dim oDatatypes
oVar="QTP"
oVartype=Typename(oVar)
MsgBox oVartype
'****************************************************
'50 Write a program to MsgBox the decimal part of a given number
Dim oNum
oNum=3.123
oDecNum=oNum- int(oNum)
MsgBox oDecNum
'****************************************************
'1 To check Vowel,Symbols, Spaces and special character in given string
Option Explicit
Dim str1,char,cnt,vcnt,ccnt,splcnt,spacecnt,i
vcnt=0
ccnt=0
splcnt=0
spacecnt=0
str1=LCase(InputBox("Enter Any Text: ","String to check "))
Msgbox str1
cnt=Len(str1)
For i=1 to cnt
char=Mid(str1,i,1)
If (char="a" or char="e" or char="i" or char="o" or char="u" )Then
vcnt=vcnt+1
ElseIf(char="@" or char="#" or char="$" or char="&" or char="*" or char=":" or char="," or char="|" )Then
splcnt=splcnt+1
Elseif(char=" ") Then
spacecnt=spacecnt+1
Else
ccnt=ccnt+1
End If
Next
Msgbox "Vowel Count: "&vcnt
Msgbox "Consonent Count: "&ccnt
Msgbox "Special charactor: "&splcnt
'****************************************************
'2 Find whether given number is a odd number
Dim oNumber
oNumber=4
If oNumber mod 2 <>0 Then
MsgBox "The Number "& oNumber &" is an Odd Number"
else
MsgBox "The Number "& oNumber &" is not an Odd Number"
End If
'****************************************************
'3 MsgBox 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
MsgBox 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
MsgBox 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
MsgBox iCounter
End If
Next
MsgBox oNumber
'****************************************************
'6 MsgBox 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
MsgBox 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
MsgBox oNum1
MsgBox 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
MsgBox oValue
'****************************************************
'9 Find the length of a given string
Dim oStr
Dim oLength
oStr="suresh"
oLength=len(oStr)
MsgBox oLength
'****************************************************
'10 Reverse given string
Dim oStr
Dim oLength
Dim oChar
Dim iCounter
oStr="suresh"
oLength=len(oStr)
For iCounter=oLength to 1 step-1
oChar=oChar&mid(oStr,iCounter,1)
Next
MsgBox 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
MsgBox oAlphacounter
'****************************************************
'12 Find occurrences of a specific character in a string
Dim oStr
Dim oArray
Dim ochr
oStr="suresh"
ochr="a"
oArray=split(oStr,ochr)
MsgBox 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)
MsgBox fStr
'****************************************************
'14 Write a program to return ASCII value of a given character
Dim ochr
Dim aVal
ochr="A"
aVal=asc(ochr)
MsgBox aVal
'****************************************************
'15 Write a program to return character corresponding to the given ASCII value
Dim ochr
Dim aVal
aVal=65
oChr=chr(aVal)
MsgBox oChr
'****************************************************
'16 Convert string to Upper Case
Dim oStr
Dim uStr
oStr="QuickTest Professional"
uStr=ucase(oStr)
MsgBox uStr
'****************************************************
'17 Convert string to lower case
Dim oStr
Dim lStr
oStr="QuickTest Professional"
lStr=lcase(oStr)
MsgBox 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)
MsgBox fStr
'****************************************************
'19 Check whether the string is a POLYNDROM
Dim oStr
oStr="bob"
fStr=StrReverse(oStr)
If oStr=fStr Then
MsgBox "The Given String "&oStr&" is a Palindrome"
else
MsgBox "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
MsgBox "The Given Strings are Equal"
else
MsgBox "The Given Strings are not Equal"
End If
'****************************************************
'21 MsgBox all values from an Array
Dim oArray
Dim oCounter
oArray=array(1,2,3,4,"qtp","Testing")
For oCounter=lbound(oArray) to ubound(oArray)
MsgBox 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)
MsgBox 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)
MsgBox 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)
MsgBox StrArray(iCounter)
Next
'****************************************************
'27 Find number of words in string
Dim oStr
Dim iCounter
oStr="Quick Test Professional"
StrArray=split(oStr," ")
MsgBox "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)
MsgBox strreverse(StrArray(iCounter))
Next
'****************************************************
'29 MsgBox 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
toMsgBox= 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
toMsgBox=toMsgBox&nCr&" "
Next
MsgBox toMsgBox
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," ")
MsgBox join(StrArray," ")
'****************************************************
'31 Trim a given string from both sides
Dim oStr
oStr=" QTP "
MsgBox 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
'MsgBox total 100 Values
MsgBox(oArray(iCounter))
Next
MsgBox "******************************"
MsgBox "******************************"
ReDim preserve oArray(50)
For iCounter=0 to ubound(oArray)
'MsgBox Values after deleting 50 values
MsgBox(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
MsgBox z
'****************************************************
'34 Write a program to raise an error and MsgBox the error number.
On Error Resume Next
Err.Raise 6 ' Raise an overflow error.
MsgBox ("Error * " & CStr(Err.Number) & " " & Err.Description)
'****************************************************
'35 Finding whether a variable is an Array
Dim oArray()
if isarray(oArray) then
MsgBox "the given variable is an array"
else
MsgBox "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
MsgBox "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
MsgBox "Bias: " & objItem.Bias
MsgBox "Caption: " & objItem.Caption
MsgBox "Daylight Bias: " & objItem.DaylightBias
MsgBox "Daylight Day: " & objItem.DaylightDay
MsgBox "Daylight Day Of Week: " & objItem.DaylightDayOfWeek
MsgBox "Daylight Hour: " & objItem.DaylightHour
MsgBox "Daylight Millisecond: " & objItem.DaylightMillisecond
MsgBox "Daylight Minute: " & objItem.DaylightMinute
MsgBox "Daylight Month: " & objItem.DaylightMonth
MsgBox "Daylight Name: " & objItem.DaylightName
MsgBox "Daylight Second: " & objItem.DaylightSecond
MsgBox "Daylight Year: " & objItem.DaylightYear
MsgBox "Description: " & objItem.Description
MsgBox "Setting ID: " & objItem.SettingID
MsgBox "Standard Bias: " & objItem.StandardBias
MsgBox "Standard Day: " & objItem.StandardDay
MsgBox "Standard Day Of Week: " & objItem.StandardDayOfWeek
MsgBox "Standard Hour: " & objItem.StandardHour
MsgBox "Standard Millisecond: " & objItem.StandardMillisecond
MsgBox "Standard Minute: " & objItem.StandardMinute
MsgBox "Standard Month: " & objItem.StandardMonth
MsgBox "Standard Name: " & objItem.StandardName
MsgBox "Standard Second: " & objItem.StandardSecond
MsgBox "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.
MsgBox actualDate
StrTime = "4:35:47 PM" ' Define time.
actualTime = CDate(StrTime) ' Convert to Date data type.
MsgBox actualTime
'****************************************************
'39 Display current date and Time
MsgBox now
'****************************************************
'40 Find difference between two dates.
'Date difference in Years
MsgBox DateDiff("yyyy","12/31/2002",Date)
'Date difference in Months
MsgBox DateDiff("m","12/31/2002",Date)
'Date difference in Days
MsgBox DateDiff("d","12/31/2002",Date)
'****************************************************
'41 Add time interval to a date
MsgBox DateAdd("m", 1, "31-Jan-95")
'****************************************************
'42 MsgBox current day of the week
MsgBox 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))
MsgBox oDaysinMonths&" Days in Current Month"
If oDaysinMonths=31 Then
MsgBox "Current Month is a long month"
else
MsgBox "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
MsgBox "Year "&oYear&" is a Leap Year"
else
MsgBox "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
MsgBox "Year "&oYear&" is a Leap Year"
else
MsgBox "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
MsgBox 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
MsgBox 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.
MsgBox Int(99.8) ' Returns 99.
MsgBox Fix(99.2) ' Returns 99.
MsgBox Int(-99.8) ' Returns -100.
MsgBox Fix(-99.8) ' Returns -99.
MsgBox Int(-99.2) ' Returns -100.
MsgBox Fix(-99.2) ' Returns -99.
'****************************************************
'49 Write a program to find subtype of a variable
Dim oVar
Dim oDatatypes
oVar="QTP"
oVartype=Typename(oVar)
MsgBox oVartype
'****************************************************
'50 Write a program to MsgBox the decimal part of a given number
Dim oNum
oNum=3.123
oDecNum=oNum- int(oNum)
MsgBox oDecNum
'****************************************************
No comments:
Post a Comment