第 4 章 Response 与 Request 对象
End If
End If
End If
MsgBox score
End Sub
</SCRIPT></HEAD>
<BODY>
<INPUT type="button" name="button1" value="查看">
</BODY>
</HTML>
例3-4-2：
<HTML>
<HEAD><TITLE>Select Case 语句</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub button1_OnClick()
Dim score
grade=trim(InputBox("请输入等级：（优、良、中、可、差）","学生等级","中"))
Select Case grade
Case "差" score="成绩低于 60 分，不及格！"
Case "可" score="成绩在 60 到 70 分之间，及格！"
Case "中" score="成绩在 70 到 80 分之间，中！"
Case "良" score="成绩在 80 到 90 分之间，良好！"
Case "优" score="成绩在 90 到 100 分之间，优秀！"
Case Else score="输入的等级应该为（优、良、中、可、差）！"
End Select
MsgBox score
End Sub
</SCRIPT></HEAD>
<BODY>
<INPUT type="button" name="button1" value="查看">
</BODY>
</HTML>
程序的执行结果与例3-4-1相同。
例3-4-3：
<HTML>
<HEAD>
<TITLE>流程控制语句的使用</TITLE>
</HEAD>
<Script Language="VBScript">
<!--
Sub button1_OnClick
Document.Write("<Pre>")
Document.Write("*")
11
11
剩余63页未读，继续阅读
HU516146194
- 粉丝: 1
- 资源: 18
我的内容管理
展开
最新资源
- 李兴华Java基础教程：从入门到精通
- U盘与硬盘启动安装教程：从菜鸟到专家
- C++面试宝典：动态内存管理与继承解析
- C++ STL源码深度解析：专家级剖析与关键技术
- C/C++调用DOS命令实战指南
- 神经网络补偿的多传感器航迹融合技术
- GIS中的大地坐标系与椭球体解析
- 海思Hi3515 H.264编解码处理器用户手册
- Oracle基础练习题与解答
- 谷歌地球3D建筑筛选新流程详解
- CFO与CIO携手：数据管理与企业增值的战略
- Eclipse IDE基础教程：从入门到精通
- Shell脚本专家宝典：全面学习与资源指南
- Tomcat安装指南：附带JDK配置步骤
- NA3003A电子水准仪数据格式解析与转换研究
- 自动化专业英语词汇精华：必备术语集锦
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
