实验二VBScript编程实验报告.docVIP

实验 成绩 实验评阅教师签名 简 要 评 语 实验报告册 实 验 报 告 实 验 报 告 实验时间：2013 年 X 月 13 日X 节 一、实验运行环境 Windows 7计算机系统；安装IIS、Dreamweaver CS5、Access 2000数据库系统等。 二、实验目的 熟悉VBScript的语法、掌握服务器端利用VBScript编程的基本方法 三、实验要求 掌握VBScript语言的语法特点和内置的常用函数的用法；对程序的结构（顺序、分支、循环、过程）的概念和语法比较清晰；具备基本的编写程序的能力。 四、实验内容和步骤 1、打印菱形图案 %@LANGUAGE=VBSCRIPT CODEPAGE=65001% !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN /TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=/1999/xhtml head meta http-equiv=Content-Type content=text/html; charset=utf-8 / title打出菱形/title SCRIPT language=VBScript !-- Sub Rhombus() Dim Row,Cols,i,j,Spac Dim OutputString For Row=1 to 7 If Row 7/2 then Cols=Row*2-1 Else Cols=(7-Row)*2+1 End if Spa=(7-Cols)/2+1 For j=0 to Spa OutputString=OutputString Next For i=1 to Cols OutputString=OutputString * Next OutputString=OutputString Chr(10) Next MsgBox OutputString End Sub -- /SCRIPT /head body form name=frmEercisel input type=Button value=打印菱形 onclick=Rhombus /form /body /html 2.输入http://localhost/lingxing.asp,网页如图所示： 3、递归调用求n的阶乘 %@LANGUAGE=VBSCRIPT CODEPAGE=65001% !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN /TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=/1999/xhtml head meta http-equiv=Content-Type content=text/html; charset=utf-8 / title递归计算阶乘/title SCRIPT language=VBScript !-- Function Fac(n) Dim f Dim num num=cint(n) If num=1 Or num=0 then f=1 else f=Fac(n-1)*n End if Fac =f End Function Sub showResult(n) Dim Result Result=Fac(n) MsgBox Result End Sub -- /SCRIPT /head body form name=frmExercise2 输入一个整数：INPUT type=text name=InputTextnbsp input type=button value=计算阶乘 onclick=Showresult frmExercise2.InputText.Value /form /body /html 4、输入http://localhost/qiuhe.asp，如网页所示： 5、随机字符串 %@LANGUAGE=VBSCRIPT CODEPAGE=65001% !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN /TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=/1999/xhtml head meta http-equiv=Content-Type content=text/html; charset=utf-8 / title2-3/title /head body % 生