实验六VBScript脚本语言编程练习
【实验目的】
通过本实验，学会使用VBScript脚本语言中的自定义函数、过程、分支语句和循环语句，编写嵌入VBScript代码的ASP程序和HTML程序。
【实验题目】
1、设PI=3.14，分别用两种方式实现，第一种，定义一个求圆面积的函数，调用它求任意
半径的圆面积；第二种，定义求圆面积的过程，调用半径为6的圆面积；（2个题目）
2、用for—next循环语句，实现1到100的平方和；
3、应用Rnd函数和Select Case语句，实现网页每刷新一次，背景色在四种颜色中随机改
变。
代码提示：randomize
ChangeColor=int((4*rnd())+1) ‘产生四个随机整数
4、练习使用循环语句的嵌套，编写程序在网页上显示要求的图形；
【实验内容及步骤】
提示：（1）在wwwroot文件夹下利用“记事本”应用程序新建一个空白文本文档，双击打此文档后输入相应代码。
（2）输入完毕后点击“文件”—选择“另存为”选项，在弹出的对话框中“文件名”
处输入“area.asp”，再单击“保存”按钮，在wwwroot文件夹下就出现了一个新的文件area.asp。
（3）按照上个实验介绍的方法浏览网页。
6、练习使用JavaScript脚本语言，编写网页特效程序。
1. 水中倒影.htm
<html>
<center><IMG height=189 name=tu1 src="bigtree.jpg" //自己找一幅合适的图片
width=360 ></center><BR>
<SCRIPT language=JavaScript>
function f1(){
setInterval("tu2.filters.wave.phase+=10",100);
}
if (document.all){
document.write('<center><img name=tu2 src="'+
document.all.tu1.src+'"style="filter:wave(strength=3,freq=3,phase=0,lightstrength=20) blur() flipv()"></center>') //注意，这两行是一个语句，输入时不能按回车键换行window.onload=f1
}
</SCRIPT>
</body>
</html>
2. 文字变色.htm（VBScript特效）
<html>
<head>
<title>变色的文字</title>
<script language=vbscript>
sub amm
document.fgColor=int(255*255*255*rnd)
end sub
</script>
</head>
<body onmousemove=amm()>
<font size=5>
<p>这里,是文本啦，但不支持超连接</p>
<p>你有多少文本他都变色</p>
<p>你把我这些文本换掉吧</p>
<p>只把那些代码按照格式照做就是</p></font>
</body>
</html>
3. 地震特效.htm
<html>
<head>
<title>地震特效</title>
<body>
<input onclick="www_helpor_net(2)" type="button" value="地震啦！！！">
<script language="JavaScript">
<!--
function surfto(form) {
var myindex=form.select1.selectedIndex
if (form.select1.options[myindex].value != null) {
parent.main.location.href=form.select1.options[myindex].value;
}
}
// -->
</script>
<script language="JavaScript1.2">
<!--
function www_helpor_net(n) {
if (window.top.moveBy) {
for (i = 10; i > 0; i--) {
for (j = n; j > 0; j--) {
window.top.moveBy(0,i);
window.top.moveBy(i,0);
window.top.moveBy(0,-i);
window.top.moveBy(-i,0);
}
}
}
alert(" 没吓坏吧!!! ");
}
// -->
</script>
</body>
</html>
4. 文字跟随鼠标特效.htm
<!设计一个文字跟随鼠标的HTML文档，无论鼠标在浏览器中移到哪里，一串文字总是跟随在鼠标后面>
<HTML>
<HEAD><Title>文字跟随光标</TITLE>
<STYLE>
.spanstyle
{position:absolute;top:-50px;font-size:30pt;color:#ff0000;font-weight:bold;} //文字格式</STYLE>
<SCRIPT Language ="JavaScript">
var x,y
var step=20
var flag=0
var message="祝您万事如意！"
message=message.split(" ")
var xpos=new Array()
var ypos=new Array()
for (i=0;i<=message.length-1;i++){xpos[i]=-50;}
for (i=0;i<=message.length-1;i++){ypos[i]=-50;}
function move()
{
x=document.body.scrollLeft+event.clientX
y=document.body.scrollTop+event.clientY
flag=1
}
function makesnake()
{if (flag==1)
{ for(i=message.length-1;i>=1;i--)
{xpos[i]=xpos[i-1]+step
ypos[i]=ypos[i-1] }
xpos[0]=x+step
ypos[0]=y
for (i=0;i<message.length-1;i++)
{var thisspan = eval("span"+(i)+".style")
thisspan.posLeft=xpos[i]
thisspan.posTop=ypos[i]}
flag=0
}
setTimeout("makesnake()",50) //移动速度
}
</SCRIPT>
</HEAD>
<BODY onLoad="makesnake()" onMouseMove="move()">
<Font Face="隶书">
<SCRIPT Language ="JavaScript">
for(i=0;i<=message.length-1;i++)
{document.write("<span id='span"+i+"'class='spanstyle'>") document.write(message[i])
document.write("</SPAN>")
}
</SCRIPT>
</Font>
</BODY>
</HTML>。