第4章 VB Script程序与网页制作.doc

VB Script程序与网页制作 数 组 VBScript数组需要定义数组名，数组中的每一个数据称为一个数组元素，每个数组元素对应一个下标，下标从0开始，数组元素的个数（由数组的length属性来查看）总是比最大下标大1。数组元素可以通过“数组名（下标）”的方式来引用。 创建数组 将多个相关值赋给一个变量创建包含一系列值的变量，称为数组变量。A (n)。多维数组形成一个包含更多元素的数组变量，如dim A (m,n)声明了一个二维数组变量。在声明一个数组时，可以不设置数组元素个数n，这种方式声明的数组称为动态数组。声明动态数组后，可在使用 ReDim 语句来定义该数组的维数和元素。变量初始化时，数值变量初始化为 0，字符串变量初始化为零长度字符串 () 图4-1 数组元素赋值结果界面 代码4-1 用循环语句给数组HTML HEAD TITLE数组元素赋值/TITLE SCRIPT LANGUAGE=VBScript !-- Sub cmdChange_OnClick() Dim d(10) 创建一个数组变量 Dim string For I=0 To 10 d(I) = I string = string d(I)=d(I) vbCrLf Next Msgbox string End Sub -- /SCRIPT /HEAD BODY FORM NAME=frmForm action=# method=post Input Type = Button NAME=cmdChange VALUE=单击此处 /FORM /BODY /HTML 注意：如果VBScript脚本在服务器端执行，则Msgbox函数不能使用，在客户端看不到结果。 过程与自定义函数 在 VBScript 中，过程被分为两类：Sub 过程和 Function 过程。Sub 过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句，执行操作但不返回值。CallSCRIPT LANGUAGE=VBScript Call MySub ( Hello World ) Sub MySub(text) MsgBox text End Sub /SCRIPT Function 过程 Function 过程是包含在 Function 和 End Function 语句之间的一组 VBScript 语句。Function 过程可以返回值。Function 过程通过函数名返回一个值，这个值是在过程的VBScript语句中赋给函数名的。Function 返回值的数据类型总是 Variant。Function过程的定义和调用 SCRIPT LANGUAGE=VBScript Call ConvertTemp() Sub ConvertTemp() temp = InputBox(请输入华氏温度。, 1) MsgBox 温度为 Celsius(temp) 摄氏度。 End Sub Function Celsius(fDegrees) Celsius = (fDegrees - 32) * 5 / 9 End Function /SCRIPT过程的数据进出 给过程传递数据的途径是使用参数。参数被作为要传递给过程的数据的占位符。参数名可以是任何有效的变量名。使用 Sub 语句或 Function 语句创建过程时，过程名之后必须紧跟括号。括号中包含所有参数，参数间用逗号分隔。Function 过程可以返回值；Sub 过程不返回值。VBScript内部函数 数学函数 VBScript提供的系统固有数学函数见表4-1所示。 表4-1 VBScript固有数学函数 函数名称 语法表示 功能描述 Abs 函数Abs(number) 返回数字的绝对值。number 参数可以是任意有效的数值表达式。Sqr 函数Sqr (number) 返回数值的平方根。number 参数可以是任意有效的大于或等于零的数值表达式。Exp 函数Exp(number) 返回 e（自然对数的底）的幂次方。常数 e 的值约为 2.718282。如果 number 参数超过709.782712893，则出现错误。Rnd 函数Rnd[(number)] Rnd 函数返回一个小于 1 但大于或等于 0 的值。number为大于零的数，产生序列中的下一个随机数Fix 函数Fix(number) 返回数字的整数部分。如果 number 参数为负数时，