欢迎来到天天文库
浏览记录
ID:45032394
大小:383.34 KB
页数:30页
时间:2019-11-08
《ASP内建函数、过程、自定义函数》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、2.3ASP内建函数、过程、自定义函数(一)分类1、sub过程定义:包含在sub和endsub之间的一组语句,操作结果不返回结果。它可以带参数。调用:call过程名(参数)过程名参数注:无参数的过程调用时必须带括号2、function过程定义:包含在function和endsub之间的一组语句,操作结果返回variant类型值。调用:变量=过程名(参数)vbscriptMsgbox函数:功能:弹出信息框格式:msgbox“信息框显示的内容”vbscript例1:单击按钮弹出信息窗口
2、e>subbutton1_onclick()msgbox“按钮被单击!”endsubvbscriptIf…then…else条件半判断语句:格式:If条件then语句Else语句Endifvbscript例2:利用条件半判断语句弹出信息窗口3、bscript>value=20Ifvalue=0Thenflag=5ElseIfvalue=1Thenflag=10ElseIfvalue=2thenflag=15ElseMsgbox"数值超出范围!"EndIfvbscriptSelectcase判断语句:格式:Selectcase变量case常量列表----常量列表之间用,号分隔语句case常量列表语句caseelse语句Endselectvbscript例3:显示年龄age=20SelectCasea4、geCase0,1,2,3,4,5----逐一列出条件值S="幼儿"Case6,7,8,9,10,11S="儿童"Case12,13,14,15,16,17S="少年"CaseElseS="成人"EndSelectS=age&"岁是“"&S&"”啦!"document.WriteS----document浏览器对象write输出的方法vbscriptDowhile循环语句:格式:Dowhile条件语句Loop注:先判断后执行vbscript例4:返回循环次数Dimcounter,myN5、umcounter=0myNum=20DoWhilemyNum>10myNum=myNum-1counter=counter+1LoopMsgBox"循环重复了"&counter&"次。"vbscriptDo循环语句:格式:Do语句Loopwhile条件注:先执行后判断vbscript例5:返回循环次数Dimcounter,myNumcounter=0myNum=9DomyNum=myNum-1counter=counter+1LoopWhilemyNum>10MsgBox"循环重复了6、"&counter&"次。"vbscriptWhile循环语句:格式:While条件语句Wend注:先判断后执行vbscript例6:返回循环次数Dimcounter,myNumcounter=0myNum=0WhilemyNum<10myNum=myNum+1counter=counter+1WendMsgBox"循环重复了"&counter&"次。"vbscriptFor循环语句:格式:For变量=初值to终值step增量语句Nextvbscript例7:计算总和7、Dimj,totalForj=2To10Step2total=total+jNextMsgBox"总和为"&total&"。"vbscript例8:利用华氏温度计算摄氏温度Subconvert_onclick()temp=InputBox(“请输入华氏温度。”)MsgBox"温度为"&Celsius(temp)&"摄氏度。"EndSubFunctionCelsius(fDegrees)Celsius=(fDegr8、ees-32)*5/9EndFunction
3、bscript>value=20Ifvalue=0Thenflag=5ElseIfvalue=1Thenflag=10ElseIfvalue=2thenflag=15ElseMsgbox"数值超出范围!"EndIfvbscriptSelectcase判断语句:格式:Selectcase变量case常量列表----常量列表之间用,号分隔语句case常量列表语句caseelse语句Endselectvbscript例3:显示年龄age=20SelectCasea
4、geCase0,1,2,3,4,5----逐一列出条件值S="幼儿"Case6,7,8,9,10,11S="儿童"Case12,13,14,15,16,17S="少年"CaseElseS="成人"EndSelectS=age&"岁是“"&S&"”啦!"document.WriteS----document浏览器对象write输出的方法vbscriptDowhile循环语句:格式:Dowhile条件语句Loop注:先判断后执行vbscript例4:返回循环次数Dimcounter,myN
5、umcounter=0myNum=20DoWhilemyNum>10myNum=myNum-1counter=counter+1LoopMsgBox"循环重复了"&counter&"次。"vbscriptDo循环语句:格式:Do语句Loopwhile条件注:先执行后判断vbscript例5:返回循环次数Dimcounter,myNumcounter=0myNum=9DomyNum=myNum-1counter=counter+1LoopWhilemyNum>10MsgBox"循环重复了
6、"&counter&"次。"vbscriptWhile循环语句:格式:While条件语句Wend注:先判断后执行vbscript例6:返回循环次数Dimcounter,myNumcounter=0myNum=0WhilemyNum<10myNum=myNum+1counter=counter+1WendMsgBox"循环重复了"&counter&"次。"vbscriptFor循环语句:格式:For变量=初值to终值step增量语句Nextvbscript例7:计算总和
7、Dimj,totalForj=2To10Step2total=total+jNextMsgBox"总和为"&total&"。"vbscript例8:利用华氏温度计算摄氏温度Subconvert_onclick()temp=InputBox(“请输入华氏温度。”)MsgBox"温度为"&Celsius(temp)&"摄氏度。"EndSubFunctionCelsius(fDegrees)Celsius=(fDegr
8、ees-32)*5/9EndFunction
此文档下载收益归作者所有