html教程_asp教程——vbscript语言

《html教程_asp教程——vbscript语言》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章VBScript语言3.2VBScript编程基础变量：dim常量：constConstMyString="这是一个字符串。"ConstMyAge=49ConstCutoffDate=#6-1-97#运算符注意一个特殊的运算符:字符串连接(&)例如：abc&cdef=abccdefscore=75msgbox"你的成绩为"&scorescore=90msgbox"你的成绩已改为"&score<

2、%DimtemTem=hour(now())Iftem<12thenStrg=“早上好”ElseStrg=“您好”Endif%><%=strg%>VBScript流程控制条件语句If...Then...Else语句SelectCase语句循环语句Do...Loop：当（或直到）条件为True时循环。While...Wend：当条件为True时循环。For...Next：指定循环次数，使用计数器重复运行语句。ForEach...Next：对于集合中的每项或数组中的每个元素，重复执行一组语句。If...Then...Else语句If条件then语句1Else语句2Endif

3、>score=inputbox("请输入成绩：","输入成绩")ifscore>=60thenmsg="及格"elsemsg="不及格"endifmsgbox"你的成绩："&msg<%@LANGUAGE="VBSCRIPT"%><%Subjudge(grade)Ifgrade>=60thenStr=“及格”ElseStr=“不及格”Endif

4、Endsub%>DimIi=2Ifimod2=0thenMsgbox”这是一个偶数！”Elsemsgbox”这是一个奇数！”EndifSelectCase语句Selectcase测试表达式Case表达式值1语句Case表达式值2语句Caseelse语句Endselectno=inputbox("请输入一个1-5之间的数字：","中议英")selectcasenocase1m

5、sg="a"case2msg="b"case3msg="c"caseelsemsg="对不起，超过范围了"endselectmsgboxno&"的英文为"&msgSelectcasestrCase“及格”Msgbox”你及格了”Case“不及格”Msgbox“要继续努力”CaseelseMsgboxstrEndcaseDimii=66selectcaseiCase65msgbox=“A"Case66msgbox=“B"Case67msgbox=“C“Cas

6、e68msgbox=“D“Caseelsemsgbox=“Z“EndselectDo循环语句Do[while/untile循环条件]循环体[exitdo]Loopans=inputbox("请输入'计算机'的英文")dowhileucase(ans)<>"COMPUTER"msg="不正确"&"请重新输入'计算机'的英文"ans=inputbox(msg)loopmsgbox"恭喜你，答对了"

7、uage="vbscirpt">DimI,stri=1DowhileI<10i=i+1LoopStr=cstr(i)Msgbox”现在变量的值是：”&strSubchwhile()Dimcounter,mynumCounter=0Mynum=9DoMynum=mynum-1Counter=counter+1Loopwhilemynum>0msgbox“循环重复了”&counter&“次”EndsubForEach...Next