实验二VBScript编程实验报告.docx
《实验二VBScript编程实验报告.docx》由会员分享,可在线阅读,更多相关《实验二VBScript编程实验报告.docx(16页珍藏版)》请在冰豆网上搜索。
实验二VBScript编程实验报告
实验
成绩
实验评阅教师签名
简
要
评
语
实验报告册
实验课程名称:
实验项目序号:
实验二
实验项目名称:
VBScript编程
实验室名称:
ERP实验室
开课学期:
2012——2013学年第2学期
授课教师:
实验指导教师:
专业:
班级:
姓名:
学号:
实验报告
实验报告
实验时间:
2013年X月13日X节
一、实验运行环境
Windows7计算机系统;安装IIS、DreamweaverCS5、Access2000数据库系统等。
二、实验目的
熟悉VBScript的语法、掌握服务器端利用VBScript编程的基本方法
三、实验要求
掌握VBScript语言的语法特点和内置的常用函数的用法;对程序的结构(顺序、分支、循环、过程)的概念和语法比较清晰;具备基本的编写程序的能力。
四、实验内容和步骤
1、打印菱形图案
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:
//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
//www.w3.org/1999/xhtml">
打出菱形
--
SubRhombus()
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
OutputString=OutputString&Chr(10)
Next
MsgBoxOutputString
EndSub
-->