VBScript Examples

For more Scripts & QTP Documents Visit: www.gcreddy.
com
VBScript General Examples
www.gcreddy.com
For Software Testing Documents visit: ww.gcreddy.net 1

For more Scripts & QTP Documents Visit: www.gcreddy.com
1) Write a program for finding out whether the given year is a leap year or
not?
Dim xyear
xyear=inputbox ("Enter Year")
If xyear mod 4=0 Then

msgbox "This is a Leap year"
Else
msgbox "This is NOT"
End If
2) Write a program for finding out whether the given number is, Even
number or Odd number?
Dim num
num=inputbox ("Enter a number")
If num mod 2=0 Then

msgbox "This is a Even Number"
Else
msgbox "This is a Odd Number"
End If
3) Read two numbers and display the sum?
Dim num1,num2, sum

num1=inputbox ("Enter num1")
num2=inputbox ("Enter num2")
sum= Cdbl (num1) + Cdbl (num2) 'if we want add two strings conversion
require
msgbox ("Sum is " &sum)
4) Read P,T,R values and Calculate the Simple Interest?
Dim p,t, r, si
p=inputbox ("Enter Principle")
t=inputbox ("Enter Time")
r=inputbox ("Enter Rate of Interest")
si= (p*t*r)/100 ' p= principle amount, t=time in years, r= rate of interest
msgbox ("Simple Interest is " &si)
5) Read Four digit number, calculate & display the sum of the number or
display Error message if the number is not a four digit number?
Dim num, sum

num=inputbox ("Enter a Four digit number")
If Len(num) = 4 Then
sum=0
sum=sum+num mod 10
num=num/10
num= left (num, 3)
sum=sum+num mod 10
num=num/10
num= left (num, 2)
sum=sum+num mod 10
num=num/10
num= left (num, 1)
sum=sum+num mod 10
msgbox ("Sum is " &sum)
else
msgbox "Number, you entered is not a 4 digit number"
End If
6) Read any Four-digit number and display the number in reverse order?
Dim num,rev
num= inputbox("Enter a number")
If len(num)=4 Then
rev=rev*10 + num mod 10

num=num/10
num= left(num,3)

num=num/10
num= left(num,2)

num=num/10
num= left(num,1)
msgbox "Reverse Order of the number is "&rev

Else
msgbox "Number, you entered is not a 4 digit number"
End If
7) Read 4 subjects marks; calculate the Total marks and grade?

(a) If average marks Greater than or equal to 75, grade is Distinction
b) If average marks Greater than or equal to 60 and less than 75 , then grade is
First
c) If average marks Greater than or equal to 50 and less than 60 , then grade is
Second
d) If average marks Greater than or equal to 40 and less than 50 , then grade is
Third
e) Minimum marks 35 for any subject, otherwise 'no grade fail')
Dim e,m,p,c, tot

e=inputbox ("Enter english Marks")

m=inputbox ("Enter maths Marks")
p=inputbox ("Enter physics Marks")
c=inputbox ("Enter chemistry Marks")
tot= cdbl(e) + cdbl(m) + cdbl(p) + cdbl(c)

msgbox tot
If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot
>=300 Then
msgbox "Grade is Distinction"
else If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot
>=240 and tot<300 Then
msgbox "Grade is First"
msgbox "Grade is Second"
msgbox "Grade is Third"
else
msgbox "No Grade, Fail"
End If
End If
End If
End If
8) Display Odd numbers up to n?
Dim num,n
n=Inputbox ("Enter a Vaule")
For num= 1 to n step 2
msgbox num
Next
9) Display Even numbers up to n?
Dim num,n
msgbox num
Next
10) display natural numbers up to n and write in a text file?
Dim num, n, fso, myfile

n= inputbox ("Enter any Value")
num=1

Set fso= createobject ("scripting.filesystemobject")
set myfile=fso.opentextfile ("E:\gcr.txt", 8, true)
myfile.writeline num
myfile.close
Next
11) Display Natural numbers in reverse order up to n?
Dim num,n
For num=n to 1 step -1
msgbox num
Next
12) Display Natural numbers sum up to n? (Using For...Next Loop)
Dim num, n, sum

n= inputbox ("Enter a Value")
sum=0
sum= sum+num
Next
msgbox sum
13) Display Natural numbers sum up to n? (using While...Wend Loop)
Dim num, n, sum

While num <=cdbl (n)
sum= sum+num
num=num+1
Wend
msgbox sum
14) Display Natural numbers sum up to n? (Using Do...Until...Loop)
Dim num, n, sum

sum=0
num=1
Do
sum= sum+num
num=num+1
Loop Until num =cdbl (n+1)
msgbox sum
15) Write a Function for Natural Numbers sum up to n?
Function NNumCou (n)

Dim num, sum
sum=0

sum= sum+num
Next
msgbox sum
End Function
16) Verify weather the entered 10 digit value is a numeric value or not?
Dim a,x,y,z,num
num=Inputbox ("Enter a Phone Number")
d1= left (num,1)

d10=Right (num,1)
d2=mid (num, 2, len (1))
If isnumeric (d1) = "True" and isnumeric (d2) = "True" and isnumeric (d3) = "True"
and isnumeric (d4) = "True"and isnumeric (d5) = "True"and isnumeric (d6) =
"True"and isnumeric (d7) = "True"and isnumeric (d8) = "True"and isnumeric (d9) =
"True"and isnumeric (d10) = "True" Then
msgbox "It is a Numeric Value"
else
Msgbox "It is NOT Numeric"
End If
17) Verify weather the entered value is a 10 digit value or not and Numeric
value or not? (Using multiple if conditions)
Dim a,x,y,z,num
num=Inputbox ("Enter a Phone Number")
d1= left (num,1)

d10=Right (num,1)
If len (num) =10 Then

If isnumeric (d1) = "True" and isnumeric (d2) = "True" and isnumeric (d3) = "True"
and isnumeric (d4) = "True"and isnumeric (d5) = "True"and isnumeric (d6) =
"True"and isnumeric (d7) = "True"and isnumeric (d8) = "True"and isnumeric (d9) =
"True"and isnumeric (d10) = "True" Then
msgbox "It is a Numeric Value"
End If
End If
If len (num) <> 10 Then

Msgbox "It is NOT valid Number "
End If
Control Flow Examples (Using Conditional and Loop Statements)
18) Read a number and verify that number Range weather in between 1 to
100 or 101 to 1000?
Option explicit
Dim a,x
a=Inputbox ("Enter a Vaule")
a=cdbl(a)
If a<= 100 Then
For x= 1 to 100
If a=x Then
msgbox "a is in between 1 to 100 range"
End If
Next
else
For x= 101 to 1000
If a=x Then
msgbox "a is in between 101 to 1000 range"
End If
Next
End If
19) Read Data and find that data size, If size <>4 then display invalid data
message, if data size = 4 then verify “a” is there or not in that data?
Dim x
x=Inputbox ("Enter 4 digit value")
x1=Right(x,1)
x2=Left (x,1)
x3=mid (x,2,Len(1))
x4=mid (x,3,Len(1))
y=len(x)
If y=4 Then
If x1="a" or x2="a" or x3="a" or x4="a" Then
msgbox "a is there"

else
msgbox "a is Not there"
End If
else
msgbox "Invalid Data"
End If
20) For Each...Next Statement
Repeats a group of statements for each element in an array or collection
Dim a,b,x (3)

a=20
b=30
x(0)= "Addition is "& a+b
x(1)="Substraction is " & a-b
x(2)= "Multiplication is " & a*b
x(3)= "Division is " & a/b
For Each element In x

msgbox element
Next
For QTP Information:

www.gcreddy.com
For Manual Testing:
www.gcreddy.net

VBScript Examples

Uploaded by

VBScript Examples

Uploaded by

For more Scripts & QTP Documents Visit: www.gcreddy.

VBScript General Examples

For Software Testing Documents visit: ww.gcreddy.net 1

If xyear mod 4=0 Then

If num mod 2=0 Then

3) Read two numbers and display the sum?

Dim num1,num2, sum

4) Read P,T,R values and Calculate the Simple Interest?

Dim num, sum

rev=rev*10 + num mod 10

rev=rev*10 + num mod 10

rev=rev*10 + num mod 10

rev=rev*10 + num mod 10

msgbox "Reverse Order of the number is "&rev

7) Read 4 subjects marks; calculate the Total marks and grade?

Dim e,m,p,c, tot

e=inputbox ("Enter english Marks")

tot= cdbl(e) + cdbl(m) + cdbl(p) + cdbl(c)

8) Display Odd numbers up to n?

9) Display Even numbers up to n?

10) display natural numbers up to n and write in a text file?

Dim num, n, fso, myfile

For num= 1 to n step 1

11) Display Natural numbers in reverse order up to n?

12) Display Natural numbers sum up to n? (Using For...Next Loop)

Dim num, n, sum

13) Display Natural numbers sum up to n? (using While...Wend Loop)

Dim num, n, sum

14) Display Natural numbers sum up to n? (Using Do...Until...Loop)

Dim num, n, sum

15) Write a Function for Natural Numbers sum up to n?

Function NNumCou (n)

For num= 1 to n step 1

d1= left (num,1)

d1= left (num,1)

If len (num) =10 Then

For Software Testing Documents visit: ww.gcreddy.net 6

If len (num) <> 10 Then

Control Flow Examples (Using Conditional and Loop Statements)

For Software Testing Documents visit: ww.gcreddy.net 7

20) For Each...Next Statement

Repeats a group of statements for each element in an array or collection

Dim a,b,x (3)

For Each element In x

For QTP Information:

For Software Testing Documents visit: ww.gcreddy.net 8

You might also like