TGTPGTCS,TGT PGT CS, TGT PGT Computer Science, DSSSB Computer Science, KVS Computer Science, HTET, CSIP4CBSE, CBSE4CSIP

Sunday 24 January 2021

VBScript Class - 11

VBScript Class - 11 by S P SHARMA CLASSES (7048972696)

<html>

<body>

s1="Manmohan"

s2="n"

n1=instr(s1,s2)

document.write("n1=" & n1 & " ")

n2=instr(n1+1,s1,s2)

document.write("n2=" & n2 & " ")

nr1=instrrev(s1,s2)

document.write("nr1=" & nr1 & " ")

nr2=instrrev(s1,s2,6)

document.write("nr2=" & nr2 & " ")

L=left(s1,3)

document.write("Left 3=" & L & " ")

R=Right(s1,5)

document.write("Right 5=" & R & " ")

M1=mid(s1,3,4)

document.write("M1=" & m1 & " ")

M2=mid(s1,1,3)

document.write("M2=" & m2 & " ")

M3=mid(s1,4,5)

document.write("M3=" & m3 & " ")

S3="Sachin Parashar Sharma"

fname=left(s3,6)

document.write("fname=" & fname & " ")

mname=mid(s3,8,8)

document.write("mname=" & mname & " ")

lname=right(s3,6)

document.write("lname=" & lname & " ")

document.write("........................ ")

'S4=inputbox("Enter Your Name")

S4="Sachin Parashar Sharma"

fname=left(s4,6)

document.write("fname=" & fname & " ")

mname=mid(s4,8,8)

document.write("mname=" & mname & " ")

lname=right(s4,6)

document.write("lname=" & lname & " ")

document.write("........................ ")

document.write("Lcase=" & lcase(s3) & " ")

document.write("Ucase=" & ucase(s3) & " ")

document.write("Len=" & len(s3) & " ")

S4=" Hello India "

document.write("S4=" & s4 & " ")

document.write("S4=" & ltrim(s4) & " ")

document.write("S4=" & rtrim(s4) & " ")

document.write("S4=" & trim(s4) & " ")

document.write("S3=" & replace(s3,"Sharma","Verma") & " ")

document.write("S3=" & S3 & " ")

document.write( strcomp("ram","raj") & " ")

document.write( strcomp("ram","ram") & " ")

document.write( strcomp("raj","ram") & " ")

document.write( string(5,"ram") & " ")

document.write( string(50,"*") & " ")

document.write( strreverse("Hello") & " ")

document.write( strreverse("150.58") & " ")

</script>

</body>

</html>

VBScript Class - 10

VBScript Class - 10 by S P SHARMA CLASSES (7048972696)

<html>

<body>

dim x

x="Ram"

document.write("x=" & x & " ")

dim y

'y='R'

y=8.5

document.write("y=" & y & " ")

a=#2021/01/24#

document.write("a=" & a & " ")

a=#01/24/2021#

document.write("a=" & a & " ")

a=#20:18#

document.write("a=" & a & " ")

a=#08:19:20 PM#

document.write("a=" & a & " ")

document.write("........................ ")

dim B(3)

B(0)="Ram"

B(1)="Raj"

B(2)="Sam"

B(3)="John"

for i =0 to 3

document.write(B(i) & " ")

document.write("........................ ")

for each i in B

document.write(i & " ")

document.write("........................ ")

Dim Emp

Emp=Array("Amit",25,#01/24/1990#)

for each i in Emp

document.write(i & " ")

document.write("........................ ")

public C(2,3)

C(0,0)=0

C(0,1)=1

C(0,2)=2

C(0,3)=3

C(1,0)=4

C(1,1)=5

C(1,2)=6

C(1,3)=7

C(2,0)=8

C(2,1)=9

C(2,2)=1

C(2,3)=2

for i=0 to 2

for j=0 to 3

document.write(C(i,j) & " ")

document.write(" ")

document.write("Dynamic Array........................ ")

private D()

Redim D(2)

D(0)="Ram"

D(1)=25

D(2)=25000

for each i in D

document.write(i & " ")

document.write("Dynamic Array........................ ")

redim preserve D(4)

D(3)="Delhi"

D(4)="IT"

for each i in D

document.write(i & " ")

document.write("Dynamic Array........................ ")

redim D(6)

D(5)=#01/05/1995#

D(6)="Dr. Mukherjee Nagar"

for i=0 To 6

document.write(i+1 & " Element= " & D(i) & " ")

</script>

</body>

</html>

VBScript Class - 9

VBScript Class - 9 by S P SHARMA CLASSES (7048972696)

<html>

<body>

document.write("Call byRef............. ")

function show(x)

x=x+3

show=x

end function

dim x

x=5

document.write("Before calling x=" & x & " ")

call show(x)

document.write("After calling x=" & x & " ")

document.write("Call byVal............. ")

function change(byVal y)

y=y+3

change=y

document.write("Inside change y=" & y & " ")

end function

dim y

y=5

document.write("Before calling y=" & y & " ")

call change(y)

document.write("After calling y=" & y & " ")

document.write("Call byRef............. ")

function show1(byRef x1)

x1=x1+3

show1=x1

end function

dim x1

x1=5

document.write("Before calling x1=" & x1 & " ")

call show1(x1)

document.write("After calling x1=" & x1 & " ")

</script>

</body>

</html>

VBScript Class - 8

VBScript Class - 8 by S P SHARMA CLASSES (7048972696)

<html>

<body>

document.write(" ...................")

x=1

if x=5 then exit do

document.writeln(x & " ")

x=x+1

Loop while x<11

document.write(" ...................")

x=1

do while x<11

if x=5 then exit do

document.writeln(x & " ")

x=x+1

Loop

document.write(" ...................")

x=1

do until x>11

if x=5 then exit do

document.writeln(x & " ")

x=x+1

Loop

document.write(" ...................")

x=1

while x<11

'if x=5 then exit do

document.writeln(x & " ")

x=x+1

wend

document.write(" ...................")

dim emp(2)

emp(0)="Ram"

emp(1)=5

emp(2)=8.6

'emp(3)="Raj"

document.write("emp(0)=" & emp(0) & " ")

document.write("emp(1)=" & emp(1) & " ")

document.write("emp(2)=" & emp(2) & " ")

document.write(" ...................")

dim std(4)

std(0)="Ram"

std(1)="Raj"

std(2)="Sam"

std(3)="John"

std(4)="Amit"

for each x in std

document.write(x & " ")

document.write(" ...................")

call show()

sub show()

document.write("Hello from VBScript Sub Procedure ")

end sub

call show()

call display()

function display()

document.write("Hello from VBScript Function ")

end function

call display()

document.write(" ...................")

sub show1(x)

document.write("x=" & x &" ")

end sub

call show1(10)

function findarea(r)

const pi =3.14

area=pi*r*r

document.write("area=" & area &" ")

end function

findarea(3)

call findarea(2)

document.write(" ...................")

function findarea(r)

const pi =3.14

area=pi*r*r

findarea=area

end function

document.write("area=" & findarea(10) &" ")

k=findarea(20)

document.write("area=" & k &" ")

r1=inputbox("Enter the radius of circle")

k=findarea(r1)

document.write("area=" & k &" ")

</script>

</body>

</html>

VBScript Class - 7

VBScript Class - 7 by S P SHARMA CLASSES (7048972696)

<html>

<body>

Dim i, j

For i = 1 To 5

For j = 1 To 5

document.write(j)

document.write(" ")

document.write(" ...................")

For i = 1 To 5

For j = 1 To 5

document.write(i)

document.write(" ")

document.write(" ...................")

For i = 1 To 5

For j = 1 To i

document.write(j)

document.write(" ")

document.write(" ...................")

dim x

x=1

do while x<5

document.writeln(x)

x=x+1

Loop

document.write(" ...................")

'dim x

x=1

do while x<5

x=x+1

document.writeln(x)

Loop

document.write(" ...................")

x=1

document.writeln(x)

x=x+1

Loop while x<5

document.write(" ...................")

x=1

x=x+1

document.writeln(x)

Loop while x<5

document.write(" ...................")

x=1

x=x+1

document.writeln(x)

Loop while x<1

document.write(" ...................")

x=1

do while x<1

x=x+1

document.writeln(x)

Loop

document.write(" ...................")

x=1

do until x=5

document.writeln(x)

x=x+1

Loop

document.write(" ...................")

x=10

do until x>5

document.writeln(x)

x=x-1

Loop

document.write(" ...................")

x=10

do until x<5

document.writeln(x)

x=x-1

Loop

document.write(" ...................")

x=1

while x<5

document.writeln(x)

x=x+1

wend

</script>

</body>

</html>

VBScript Class - 6

VBScript Class - 6 by S P SHARMA CLASSES (7048972696)

<html>

<body>

for i=1 to 5

document.write(i)

document.write(" ")

for i=1 to 10

document.write(i)

i=i+2

document.write(" ")

for i=1 to 10 step 2

document.write(i)

document.write(" ")

for i=10 to 1 step -1

document.write(i)

</script>

</body>

</html>

VBScript Class - 5

VBScript Class - 5 by S P SHARMA CLASSES (7048972696)

<html>

<body>

a=5

if a=7 then

document.write( "7 ")

elseif a=5 then

document.write( " 5 ")

elseif a>4 then

document.write( " 4 ")

else

document.write( " 10 ")

end if

</script>

</body>

</html>

VBScript Class - 4

VBScript Class - 4 by S P SHARMA CLASSES (7048972696)

<html>

<body>

a=inputBox("Enter a number")

if a mod 2=0 then

document.write("Even Number "& " ")

else

document.write("Odd Number "& " ")

end if

dim color

color=inputbox("Enter the color code")

select case color

case "r"

document.write("This is a red color")

case "g"

document.write("This is a green color")

case "b"

document.write("This is a blue color")

case else

document.write("This is an invalid color")

end select

</script>

</body>

</html>

VBScript Class - 3

VBScript Class - 3 by S P SHARMA CLASSES (7048972696)

<html>

<body>

a=6

b=4

document.write(a<>b & " Hello")

'document.write(a!=b & " ")

document.write("a=b" & a = b & " ")

document.write(a mod b & " ")

document.write(a & " India")

document.write(b & " ")

document.write(a+b & " Delhi")

a=5-2*2/5^3

document.write(" a=" & a & " ")

b=6*2/3

document.write(" b=" & b & " ")

a=True

if a =true then

document.write("Hello India"& " ")

end If

document.write(a& " ")

a=inputBox("Enter a number")

if a = 5 then

document.write("Hello Delhi"& " ")

else

document.write("India"& " ")

end if

</script>

</body>

</html>

VBScript Class - 2

VBScript Class - 2 by S P SHARMA CLASSES (7048972696)

<html>

<body>

'option explicit

dim a

a=5

document.writeln("a=" &a& " ")

document.write("Numeric Represention of a=" & VarType(a) & " ")

document.write("Text Represention of a=" & TypeName(a)& " ")

dim b

b=empty

document.writeln("b=" &b& " ")

document.write("Numeric Represention of b=" & VarType(b) & " ")

document.write("Text Represention of b=" & TypeName(b)& " ")

'dim b

b=null

document.writeln("b=" &b& " ")

document.write("Numeric Represention of b=" & VarType(b) & " ")

document.write("Text Represention of b=" & TypeName(b)& " ")

b="Ram"

document.writeln("b=" &b& " ")

document.write("Numeric Represention of b=" & VarType(b) & " ")

document.write("Text Represention of b=" & TypeName(b)& " ")

b=True

document.writeln("b=" &b& " ")

document.write("Numeric Represention of b=" & VarType(b) & " ")

document.write("Text Represention of b=" & TypeName(b)& " ")

</script>

</body>

Pages

CLICK HERE TO JOIN US

Download and Install our Android App

Sunday 24 January 2021

VBScript Class - 11

VBScript Class - 10

VBScript Class - 9

VBScript Class - 8

VBScript Class - 7

VBScript Class - 6

VBScript Class - 5

VBScript Class - 4

VBScript Class - 3

VBScript Class - 2