网站前台.docVIP

【3-9】使用不带参数和带参数两个过程编程。 html head script language=vbscript sub xm() dim name name=prompt(请输入您的姓名) document.write(欢迎您,name!p) end sub sub pf(a) 定义pf过程,参数为a dim s s=a*a document.write(A的平方= s) end sub /script /head body script language=vbscript call xm a1=prompt(请输入A值) call pf(a1) 调用pf过程，并将实际参数a1的值传递给形式参数a /script /body /html 【3-10】任意输入边长，求正方形的面积。 html head script language=vbscript function s(bc) s=bc*bc end function /script /head body script language=vbscript b=inputbox(请输入正方形的边长:) document.write(font size=5 color=blue正方形的面积为:/font) 以下s(b)为调用s函数,并将实际参数b传递给了形式参数bc document.write(s(b)) /script /body /html 【3-11】VBScript中window对象的使用（方法） html body script language=vbscript document.write(你好,今天天气真好!) /script p A href=vbscript:window.close()关闭窗口/A /body /html 【3-12】VBScript中window对象的使用（属性） html body script language=vbscript document.write(你好,今天天气真好!) window.status=“这是我的个人主页......“ 或 status=“这是我的个人主页......“ /script /body /html 【3-13】VBScript中window对象的使用（事件） html body onload=alert(欢迎光临本网站!) /body /html 【3-14】VBScript中document对象的使用，随机改变背景颜色。 html head meta http-equiv=Content-Type content=text/html; charset=gb2312 title无标题文档/title script language=VBScript Sub ChangeColor_onclick() dim a,b,c a=255*rnd() b=255*rnd() c=255*rnd() document.bgcolor=rgb(a,b,c) End Sub /script /head body input type=button value=change name=ChangeColor /body /html 【3-15】如果希望能像电子表一样不断地显示时间，就要用到Window对象的settimeout方法。 script language=VBScript sub showtime() document.write 现在时间： document.write date() document.write nbsp;nbsp; document.write time() settimeoutshowtime()，1000 end sub sub window_onload() showtime end sub /script 【3-16】打开网页时将会在状态栏上显示当前时间,并一秒一秒地不间断走。 script language=VBScript sub change() status=“现在时间：” time() 或 window.status=现在时间： time() settimeoutchange(),1000 end sub sub window_onload() change end sub /script 四、附加上机练习 ⒈程序分析 ⑴编写一个随意确定N的数值，并计算且显示