VBScript General Examples

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)

rev=rev*10 + num mod 10

num=num/10

num= left(num,2)

rev=rev*10 + num mod 10

num=num/10

num= left(num,1)

rev=rev*10 + num mod 10

          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"

else If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot >=200 and tot<240 Then

          msgbox "Grade is Second"

else If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot >=160 and tot<200 Then

          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

n=Inputbox ("Enter a Vaule")

For num= 2 to n step 2

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

For num= 1 to n step 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

n=Inputbox ("Enter a Vaule")

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

For num= 1 to n step 1

          sum= sum+num

Next

          msgbox sum

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

Dim num, n, sum

n= inputbox ("Enter a Value")

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

n= inputbox ("Enter a Value")

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

For num= 1 to n step 1

          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))

d3=mid (num, 3, len (1))

d4=mid (num, 4, len (1))

d5=mid (num, 5, len (1))

d6=mid (num, 6, len (1))

d7=mid (num, 7, len (1))

d8=mid (num, 8, len (1))

d9=mid (num, 9, 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)

d2=mid (num, 2, len (1))

d3=mid (num, 3, len (1))

d4=mid (num, 4, len (1))

d5=mid (num, 5, len (1))

d6=mid (num, 6, len (1))

d7=mid (num, 7, len (1))

d8=mid (num, 8, len (1))

d9=mid (num, 9, len (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"

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