Sunday, 26 May 2013

Print Fibonacci series in Visual Basics

Do While Loop (fibonacci series program in VBScript)

<html>
<body>
<h2><center>
<script type="text/vbscript">
dim a,b,c
a=0
b=1
do while c<=21
document.write(b&"<br/>")
c=a+b
a=b
b=c
loop
</script>
</center></h2>
</body>
</html>

For Loop (fibonacci series program in VBScript)

<html>
<body><center>
<script type="text/vbscript">
dim a,b,c,i
a=0
b=1
for i=1 to 100
c=a+b
document.write(b&"<br/>")
a=b
b=c
next
</script>
</center>
</body>
</html>

While Loop (fibonacci series program in VBScript) 

<html>
<body><center>
<script type="text/vbscript">
dim a,b,c
a=0
b=1
while c<21
document.write(b&"<br/>")
c=a+b
a=b
b=c
wend
</script>
</center>
</body>
</html>

No comments:

Post a Comment