资源描述：
《实验二vbscript程序设计》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、实验二VBScript程序设计一、实验目的及要求1．了解并掌握VBScript脚本程序设计语言的基本语法知识及简单程序设计方法；2．熟练掌握ASP环境中的输出方法；3．熟练掌握VBScript的If语句和SelectCase语句的编程技术；4．熟练掌握VBScript的For…Next、Do…Loop和Foreach…In等循环语句的编程技术；二、实验内容⒈利用VBScript在网页中输出当前的时间和日期。⒉上机验证教材上的VBScript各个函数的功能，熟悉其用法。⒊上机验证教材上的例3-1至例3-8。⒋试用VBScript编程，实现计算
2、并输出1到10的阶乘之和。⒌试用VBScript编程，实现计算并输出100到500的之间的水仙花数（水仙花数是指该数的值等于各位数字的立方和）。⒍试用VBScript编程，利用数组实现矩阵乘法。三、实验指导（一）VBScript函数函数是一种特定的运算，在程序中要使用一个函数时，只要给出函数名并给出一个或多个参数，就能得到它的函数值。VBScript内部函数可分为：转换函数、字符串函数、日期和时间函数、数学函数和检验函数。1．转换函数VBScript对Variant变量一般会根据需要自动转换成合适的数据类型；但有时，自动转换有可能造成数据类
3、型不匹配错误。此时，就应使用VBScript的转换函数来强制转换数据的子类型。常用的转换函数见下表：函数功能CStr(Variant)将变量Variant转化为字符串类型CDate(Variant)将变量Variant转化为日期类型CInt(Variant)将变量Variant转化为整数类型CLng(Variant)将变量Variant转化为长整数类型CSng(Variant)将变量Variant转化为Single类型CDbl(Variant)将变量Variant转化为Double类型CBool(Variant)将变量Variant转化为布
4、尔类型2．字符串函数常用字符串函数及功能如下表：函数功能取字符串长度Len(string)大、小写字母转换Lcase(String)，Ucase(String)截取子字符串Mid(string,start[,length])Left(string,length)Right(string,length)删除空格Trim(string)，Ltrim(string)，Rtrim(string)重复String(num1,str1)空格Space(num1)取代字符串Replace(str1,str2,str3)字符串拆分为1维数组Split(st
5、r1,delimiter)返回字符串位置InStr(str1,str2)3．时间和日期函数函数功能Now()取得系统当前日期和时间Date()取得系统当前日期Time()取得系统当前时间Month(Date)取得给定日期的月份Day(Date)取得给定日期是几号WeekDay(Date)取得给定日期是星期几（星期天，1到6分别为1~7）Year(Date)取得给定日期的年份DateDiff(“Var”,Var1,Var2)计算日期或时间Var1与Var2的间隔“Var”:为时间间隔因子DateAdd(“Var”,num,date)num:间
6、隔倍数；date:原始日期或时间对时间/日期num作加法FormatDateTime(Date,2)显示短日期格式FormatDateTime(Date,1)显示长日期格式FormatDateTime(Date,4)显示短时间格式FormatDateTime(Date,3)显示长时间格式4．数学函数函数功能Abs(number)返回一个数的绝对值Sqr(number)返回一个数的平方根Int(number)取number的最大整数部分FormatNumber(num1,num2)将num1转化为指定小数位num2的数Rnd()返回0到1的随
7、机数Ubound(数组名，维数)返回最大下标数Lbound(数组名，维数)返回最小下标数5．检验函数函数功能VarType(Variant)返回变量Variant的数据子类型IsEmpty(Variant)检查变量Variant是否为EmptyIsNull(Variant)检查变量Variant是否为NullIsObject(Variant)检查变量Variant是否为对象类型IsNumeric(Variant)检查变量Variant是否为数值类型IsArray(Variant)检查变量Variant是否为数组类型IsDate(Varian
8、t)检查变量Variant是否为日期类型（二）VBScript脚本语言语句1．条件语句⑴IfThenEndIfIf条件语句Then执行语句EndIf⑵IfThenElseEndI
