实验二 vbscript 程序编写.docx

实验二 vbscript 程序编写.docx

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

实验二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&""

Next

Fori=1toCols

OutputString=OutputString&"*"

Next

--

SubRhombus（）

OutputString=OutputString&Chr（10）

Next

MsgBoxOutputString

EndSub

-->

bn

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

程序编写完成后，保存为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）

Next

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日历（代码如下）

<%

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%>月