我们总是将具有相对独立的代码块抽出来作为一个函数.pptVIP

函数（Functions） 一般，我们总是将具有相对独立的代码块抽出来作为一个函数，以便重复使用，减少重复代码的出现。定义函数的格式为： Function 函数名称[（参数1，参数2，…..)] 程序代码 函数名称=返回值 End Function 注意：函数有返回值，而子程序没有。 例题4-6:计算圆面积 HTML HEADTITLE函数1/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- FUNCTION CIRCLE(N) 计算面积的函数 CIRCLE=N*N*3.14 这里设置返回值 END FUNCTION MSGBOX 半径为10的圆面积为CIRCLE(10) 只要打函数名称就可调用函数 -- /SCRIPT /HEAD BODY /BODY /HTML 注意：使用函数时要注意参数的问题。 例题4-7: 函数举例 HTML HEADTITLE函数3/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- FUNCTION SUM1_N(N,S) 由S加到N总和的函数 TOTAL=0 FOR I=S TO N TOTAL=TOTAL+I NEXT SUM1_N=TOTAL 函数返回变量值 END FUNCTION START=INPUTBOX(请输入起始值：) NUMBER=INPUTBOX(请输入一个整数：) SUM=SUM1_N(NUMBER,START) MSGBOX 由START加到 NUMBER 的总和为 SUM -- /SCRIPT /HEAD BODY/BODY /HTML 错误处理（Error Handling） 程序在调试阶段和运行阶段都有可能出现分页错误，一但出现分页错误，程序就马上停止，为此，我们要考虑在程序中设置异常处理的机制。 例题4-8: 错误处理举例 HTML HEADTITLE错误处理/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- SUB CHANGEF(C) ON ERROR RESUME NEXT 告诉计算机发生错误时先不要停止执行 DEGREEF=C*1.8+32 IF ERR.NUMBER =0 THEN 判断程序是否有出错 MSGBOX 摄氏 C 度转换为华氏 DEGREEF 度 ELSE MSGBOX 输入错误 END IF END SUB DEGREEC=INPUTBOX(请输入摄氏温度：) CHANGEF DEGREEC -- /SCRIPT /HEAD BODY/BODY /HTML 注意：这里我们用到了关键字：On Error Resume Next，意思是说，如果程序出现错误仍然继续下去。另外，我们还用到了一个和On Error Resume Next相关的对象Err，当Err.number不为0时，说明程序产生了错误，错误代码就是Err.number的值。 * *