首页
Portal
业界资讯
社区
BBS
我的家园
Space
个人空间
导读
Guide
登录
/
注册
用户名
Email
自动登录
找回密码
密码
登录
注册
搜索
搜索
本版
帖子
用户
本版
帖子
用户
帖子
好友
道具
勋章
收藏
任务
淘帖
门户
导读
设置
我的收藏
退出
腾讯QQ
微信登录
首页
›
≡≡网络技术≡≡
›
CMS系统
›
VB中的条件语句的使用
返回列表
VB中的条件语句的使用
[ 复制链接 ]
灰儿
2006-11-29 12:24:53
<P align=center>VB中的条件语句的使用</P><P>使用条件语句 </P><P>控制程序执行 <BR>使用条件语句和循环语句可以控制 Script 的流程。使用条件语句可以编写进行判断和重复操作的 VBScript 代码。在 VBScript 中可使用以下条件语句: </P><P>If...Then...Else 语句 <BR>Select Case 语句 <BR>使用 If...Then...Else 进行判断 <BR>If...Then...Else 语句用于计算条件是否为 True 或 False,并且根据计算结果指定要运行的语句。通常,条件是使用比较运算符对值或变量进行比较的表达式。有关比较运算符的详细信息,请参阅比较运算符。If...Then...Else 语句可以按照需要进行嵌套。 </P><P>条件为 True 时运行语句 <BR>要在条件为 True 时运行单行语句,可使用 If...Then...Else 语句的单行语法。下例示范了单行语法。请注意此例省略了关键字 Else。 </P><P>Sub FixDate() <BR> Dim myDate <BR> myDate = #2/13/95# <BR> If myDate < Now Then myDate = Now <BR>End Sub </P><P>要运行多行代码,必须使用多行(或块)语法。多行(或块)语法包含 End If 语句,如下所示: </P><P>Sub AlertUser(value) <BR> If value = 0 Then <BR> AlertLabel.ForeColor = vbRed <BR> AlertLabel.Font.Bold = True <BR> AlertLabel.Font.Italic = True <BR> End If <BR>End Sub </P><P>条件为 True 和 False 时分别运行某些语句 <BR>可以使用 If...Then...Else 语句定义两个可执行语句块:条件为 True 时运行某一语句块,条件为 False 时运行另一语句块。 </P><P>Sub AlertUser(value) <BR> If value = 0 Then <BR> AlertLabel.ForeColor = vbRed <BR> AlertLabel.Font.Bold = True <BR> AlertLabel.Font.Italic = True <BR> Else <BR> AlertLabel.Forecolor = vbBlack <BR> AlertLabel.Font.Bold = False <BR> AlertLabel.Font.Italic = False <BR> End If <BR>End Sub </P><P>对多个条件进行判断 <BR>If...Then...Else 语句的一种变形允许您从多个条件中选择,即添加 ElseIf 子句以扩充 If...Then...Else 语句的功能,使您可以控制基于多种可能的程序流程。例如: </P><P>Sub ReportValue(value) <BR> If value = 0 Then <BR> MsgBox value <BR> ElseIf value = 1 Then <BR> MsgBox value <BR> ElseIf value = 2 then <BR> Msgbox value <BR> Else <BR> Msgbox "数值超出范围!" <BR> End If </P><P>可以添加任意多个 ElseIf 子句以提供多种选择。使用多个 ElseIf 子句经常会变得很累赘。在多个条件中进行选择的更好方法是使用 Select Case 语句。 </P><P>使用 Select Case 进行判断 <BR>Select Case 结构提供了 If...Then...ElseIf 结构的一个变通形式,可以从多个语句块中选择执行其中的一个。Select Case 语句提供的功能与 If...Then...Else 语句类似,但是可以使代码更加简练易读。 </P><P>Select Case 结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与结构中每个 Case 的值比较。如果匹配,则执行与该 Case 关联的语句块: </P><P>Select Case Document.Form1.CardType.Options(SelectedIndex).Text <BR> Case "MasterCard" <BR> DisplayMCLogo <BR> ValidateMCAccount <BR> Case "Visa" <BR> DisplayVisaLogo <BR> ValidateVisaAccount <BR> Case "American Express" <BR> DisplayAMEXCOLogo <BR> ValidateAMEXCOAccount <BR> Case Else <BR> DisplayUnknownImage <BR> PromptAgain <BR>End Select </P><P>请注意 Select Case 结构只计算开始处的一个表达式(只计算一次),而 If...Then...ElseIf 结构计算每个 ElseIf 语句的表达式,这些表达式可以各不相同。仅当每个 ElseIf 语句计算的表达式都相同时,才可以使用 Select Case 结构代替 If...Then...ElseIf 结构。 </P><P> </P>
回复
使用道具
举报
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
注册
回复
本版积分规则
回帖后跳转到最后一页
灰儿
管理员
9841篇
主题总数
7
总热度
提问
+关注
产品动态
2024-05-15
泛微(weaver)e-cology_V10公文管理,启用预览正文和套红预览功能
2024-05-14
泛微E10(e-cology)文件存储位置与打开方式
2024-05-14
神州数码云科(DCN) DCME-320路由器关闭互联网22、23、53端口方法
2024-05-13
关于webapp与WEB-INF的记录
2024-05-13
泛微(weaver)e-cology_V10公文管理,上传套红模板教程
2024-05-13
防火墙指标:吞吐量、时延、新建连接速率、并发连接数
2024-05-13
核心路由器十项性能指标
2024-05-11
神州数码(DCN) DCME-320 路由器(linux软路由)常用命令详解
热点推荐
1
泛微(weaver)e-cology_V10公文管理,启用预览正文和套红预览功能
2
泛微E10(e-cology)文件存储位置与打开方式
3
神州数码云科(DCN) DCME-320路由器关闭互联网22、23、53端口方法
4
关于webapp与WEB-INF的记录
5
泛微(weaver)e-cology_V10公文管理,上传套红模板教程
6
防火墙指标:吞吐量、时延、新建连接速率、并发连接数
7
核心路由器十项性能指标
8
神州数码(DCN) DCME-320 路由器(linux软路由)常用命令详解
热门板块
PC操作系统
启动和引导
手机操作系统
硬件相关
办公软件
多媒体技术
产品动态
2024-05-15
泛微(weaver)e-cology_V10公文管理,启用预览正文和套红预览功能
2024-05-14
泛微E10(e-cology)文件存储位置与打开方式
2024-05-14
神州数码云科(DCN) DCME-320路由器关闭互联网22、23、53端口方法
2024-05-13
关于webapp与WEB-INF的记录
2024-05-13
泛微(weaver)e-cology_V10公文管理,上传套红模板教程
2024-05-13
防火墙指标:吞吐量、时延、新建连接速率、并发连接数
2024-05-13
核心路由器十项性能指标
2024-05-11
神州数码(DCN) DCME-320 路由器(linux软路由)常用命令详解
热点推荐
1
泛微(weaver)e-cology_V10公文管理,启用预览正文和套红预览功能
2
泛微E10(e-cology)文件存储位置与打开方式
3
神州数码云科(DCN) DCME-320路由器关闭互联网22、23、53端口方法
4
关于webapp与WEB-INF的记录
5
泛微(weaver)e-cology_V10公文管理,上传套红模板教程
6
防火墙指标:吞吐量、时延、新建连接速率、并发连接数
7
核心路由器十项性能指标
8
神州数码(DCN) DCME-320 路由器(linux软路由)常用命令详解
热门板块
PC操作系统
启动和引导
手机操作系统
硬件相关
办公软件
多媒体技术
学习中心
站长自定义文字内容,利用碎片时间,随时随地获取优质内容。
Q设计语言
了解更多
Q Design 提供商家设计所需的指导与资源,帮商家快速完成产品设计、降低生产成本。
学习中心
站长自定义文字内容,利用碎片时间,随时随地获取优质内容。
Q设计语言
了解更多
Q Design 提供商家设计所需的指导与资源,帮商家快速完成产品设计、降低生产成本。