第5讲 Vbscript 子程序与函数.docVIP

第四讲 Vbscript 子程序与函数 子程序 子程序的格式： sub 子程序名称（参数1，参数2，。。。） 程序代码 end sub 举例1 HTML HEADTITLE子程序1/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- MSGBOX 我在外面 SUB A MSGBOX 我在里面 END SUB -- /SCRIPT /HEAD BODY/BODY /HTML 例2 HTML HEADTITLE子程序2/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- MSGBOX 我在外面 A SUB A MSGBOX 我在里面 END SUB -- /SCRIPT /HEAD BODY/BODY /HTML 例3 HTML HEADTITLE子程序3/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- MSGBOX 我在外面 A MSGBOX 我在后面 SUB A MSGBOX 我在里面 END SUB -- /SCRIPT /HEAD BODY/BODY /HTML 注意：子程序的流程，在子程序执行完毕后，会回到原来的地方继续执行下面的代码。 例4 HTML HEADTITLE参数1/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- SUB ChangF(C) 将摄氏转换为华氏的子程序，C为参数 DegreeeF=C*1.8+32 摄氏=华氏*1.8+32 MSGBOX 摄氏 C 度转换为华氏 DegreeF 度 END SUB 子程序结束 DegreeC=INPUTBOX(请输入摄氏温度：) ChangF DegreeC 调用子程序，传入的参数是DegreeC，这时子程序的参数C等于DegreeC -- /SCRIPT /HEAD BODY/BODY /HTML 局部变量和全局变量 局部变量例 HTML HEADTITLE子程序4/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- A MSGBOX I等于I SUB A I=10 END SUB -- /SCRIPT /HEAD BODY/BODY/HTML 注：I值得数说明的问题 全局变量例 HTML HEADTITLE子程序5/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- DIM I A MSGBOX I等于I SUB A I=10 END SUB -- /SCRIPT /HEAD BODY/BODY/HTML 中止执行子程序 一般结束是执行到：end sub，但可提早结束，例： HTML HEADTITLE子程序6/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- A SUB A I=10 EXIT SUB 直接离开子程序 MSGBOX 我不会被执行到 这行不会执行到 END SUB -- /SCRIPT /HEAD BODY/BODY/HTML 事件驱动 在vbscript中子程序不仅在重复执行段落中扮演重要角色，同时，利用它还可以侦测到用户对浏览器的操作。此时的格式为： SUB 对象_操作 所要响应的程序代码 End sub 例：HTML HEADTITLE事件侦测/TITLE SCRIPT LANGUAGE=VBSCRIPT !-- SUB DOCUMENT_ONCLICK 当鼠标按到(ONCLICK)到DOCUMENT对象 MSGBOX 您按到我了 END SUB -- /SCRIPT BODY H1请用鼠标在任何位置按一下/H1 /BODY /HTML 函数： 格式： Funcion 函数名称（参数1，参数2。。） 程序代码 函数名称＝程序代码 End funcion 函数的结构和用