ASP,VBScript子程序和函数

<script language="vbs">
    '子程序
    '什么是子程序?
    '子程序是将一段具有某种特定功能的语句区块单句撰写成一个独立的程序，给予特定的名称
    'A
    '第二种调用方法 call A
    'call A
    'sub A
        'msgbox "我是子程序"
    'end sub
   
    '带有参数的子程序
    sub max(a,b)
        if a>b then
            msgbox a
        else
            msgbox b
        end if
    end sub
    a = 10
    b = 20
    'max a,b
    '第二种调用方式
    'call max(a,b)
   
    '提前终止函数的话用 exit sub
   
    '事件驱动
    sub document_onclick
        msgbox "你打到我了"
    end sub
    //注意 子程序是没有返回值的 函数有返回值
   
    '函数的使用
    function circle(n)
        circle = n*n*3.14
    end function
    msgbox circle(4)
   
</script>

本文出自 “Kenan_ITBlog” 博客，请务必保留此出处http://soukenan.blog.51cto.com/5130995/1075680