实验二 vbscript 程序编写.docx

资源描述

实验二 vbscript 程序编写.docx

《实验二 vbscript 程序编写.docx》由会员分享，可在线阅读，更多相关《实验二 vbscript 程序编写.docx（12页珍藏版）》请在冰点文库上搜索。

实验二 vbscript 程序编写.docx

实验二vbscript程序编写

实验

成绩

实验评阅教师签名

简

要

评

语

华北科技学院管理学院

实验报告册

实验报告

实验时间：

2013年3月13日3、4节

1、实验运行环境

Windows7旗舰版、IIS7.0、ASP、ASP.NET、IE9.0、Dreamwevercs5

二、实验目的

熟悉VBScript的语法、掌握服务器端利用VBScript编程的基本方法。

三、实验要求

掌握VBScript语言的语法特点和内置的常用函数的用法；对程序的结构（顺序、分支、循环、过程）的概念和语法比较清晰；具备基本的编写程序的能力。

四、实验内容和步骤

1、打印菱形图案（代码如下）

打印菱形

DimRow,Cols,i,j,Spac

DimOutputString

ForRow=1to7

IfRow<7/2then

Cols=Row*2-1

Else

Cols=（7-Row）*2+1

Endif

Spa=（7-Cols）/2+1

Forj=0toSpa

OutputString=OutputString&""

Fori=1toCols

OutputString=OutputString&"*"

SubRhombus（）

OutputString=OutputString&Chr（10）

MsgBoxOutputString

EndSub

-->

//**以上为代码部分**//

程序编写完成后，保存为ASP格式，放入早先配置好的站点下，打开浏览器，在地址栏输入127.0.0.1进入本机打开网页效果如下。

2、递归调用求n的阶乘（代码如下）

递归计算阶乘

FunctionFac（n）

Dimf

Dimnum

num=cint（n）

Ifnum=1Ornum=0then

f=1

else

f=Fac（n-1）*n

Endif

Fac=f

EndFunction

SubshowResult（n）

DimResult

FunctionFac（n）

Dimf

Dimnum

num=cint（n）

Ifnum=1Ornum=0then

f=1

else

f=Fac（n-1）*n

Endif

Fac=f

EndFunction

SubshowResult（n）

DimResult

Result=Fac（n）

MsgBoxResult

EndSub

-->

输入一个整数：

onclick="ShowresultfrmExercise2.InputText.Value">

//**以上为代码部分**//

打开网页效果如下

（1）输入欲计算对象

（2）点击计算阶乘，弹出VBScript对话框，输出结果。

3、随机字符串（代码如下）

FunctionGet_Key（digits）

'定义并初始化数组

dimchArray（26）

'初始化数字

Fori=65To90

chArray（i-65）=Chr（i）

Randomize'初始化随机数生成器。

、

dowhilelen（output）

num=chArray（Int（（26-0+1）*Rnd+0））

output=output+num

loop

Get_Key=output

EndFunction

response.writeGet_Key（19）

//**以上为代码部分**//

打开网页效果如下

根据设定，为长度19的无序随机字符串

4、制作ASP日历（代码如下）

制作ASP日历

FunctionCountDays（iMonth,iYear）

SelectCaseiMonth

case1,3,5,7,8,10,12

CountDays=31

case2

ifIsDate（"2/29/"&iYear）Then

CountDays=29

else

CountDays=28

endif

case4,6,9,11

CountDays=30

EndSelect

EndFunction

FunctionFirstDay（iMonth,iYear）

FirstDay=WeekDay（iMonth&"/1/"&iYear）

EndFunction

dimmMonth,mYear

mMonth=Month（Date（））

mYear=Year（Date（））

mDate=Day（Date（））

#CC9933;color:

#FFFFFF">

<%=mYear%>年<%=mMonth%>月

星期日

星期一

星期二

星期三

星期四

星期五

星期六

j=1

fori=1to42

ifi>=FirstDay（mMonth,mYear）andj<=CountDays（mMonth,mYear）then

ifmDate=jthen

response.write""&j&""

else

response.write""&j

endif

j=j+1

else

response.write""&" "

endif

response.write""

ifimod7=0then

response.write""

endif

//**以上为代码部分**//

四、实验内容和步骤（续）

打开网页效果如下

5、编写程序显示系统当前日期。

日期格式为：

“××××年××月××日星期×”其中星期×应为中文习惯，例如：

星期一。

（代码如下）

myear=Year（date（））

mmonth=month（date（））

mday=day（date（））

mweekday=weekday（date（））

selectcasemweekday

Case1

shijiweekday="日"

Case2

shijiweekday="一"

Case3

shijiweekday="二"

Case4

shijiweekday="三"

Case5

shijiweekday="四"

Case6

shijiweekday="五"

Case7

shijiweekday="六"

EndSelect

response.Writemyear&"年"&mmonth&"月"&mday&"日星期"&shijiweekday

//**以上为代码部分**//

打开网页效果如下

6、编写程序显示“距2014年元旦倒记时的天数”（代码如下）

response.Write（date（））

Response.write“距2014年元旦还有”&DateDiff（“d”,date（）,“2014/1/1”）&”天”

//**以上为代码部分**//

打开网页效果如下

7、编写程序，显示用户注册后登陆时的四位验证码。

（代码如下）

ForI=1to4

Randomize

suiji=suiji&Int（（9-0+1）*Rnd+0）

response.writesuiji

//**以上为代码部分**//

打开网页效果如下

输出随机四位数字

5、实验结果分析与总结

初步掌握了vbscript语言的语言特点，可以调用一些函数方便的解决问题，具备了基本的编写程序的能力。

各项试验项目达到了预期的实验效果，但对于个别的代码与结构仍需加强记忆。

实验报告说明

1、要求每一实验项目书写一份实验报告，并按实验课程归类汇总。

2、实验报告要遵照实验指导书和任课教师的具体要求逐项填写。

3、实验报告正文要求字迹清晰、工整，用钢笔、中性笔或圆珠笔书写。

4、实验报告封面不得有空缺项；实验项目序号指实验项目编号，如：

实验一。

5、实验运行环境之具体实验室和运行软件。

6、实验内容和步骤如书写不够，可加页。