伏龙阁资源网

VBS基础篇 - 条件语句(if与Select Case)
站长资源 2024/12/23 佚名
2 0

If...Then...Else

在下面的情况中，您可以使用 If...Then...Else 语句：

在条件为 true 时，执行某段代码

选择两段代码之一来执行时

dim a '定义一个变量
a = 100
if a < 200 then a = 300 '若i<200,则对i重新赋值
msgbox a '输出的值为300

要运行多行代码，必须使用多行（或块）语法，多行（或块）语法包含 End If 语句

dim a,b,c
a=inputbox("请输入a的值：")
b=100
c=200
if a<200 then '条件为 True 时运行某一语句块，条件为 False 时运行另一语句块
  msgbox b
else
  msgbox c
end if

对多个条件进行判断，可以添加任意多个 ElseIf 子句以提供多种选择

dim a
a=inputbox("请输入a的值：")
if a<200 then '条件为 True 时运行某一语句块，条件为 False 时运行另一语句块
  msgbox "执行语句1"
elseif a=200 then 
  msgbox "执行语句2"
elseif a>200 then
  msgbox "执行语句3"
end if

Select Case结构提供了 If...Then...ElseIf结构的一个变通形式，可以从多个语句块中选择执行其中的一个。Select Case语句提供的功能与 If...Then...Else语句类似，但是可以使代码更加简练易读。

'Select Case 结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与结构中每个 Case 的值比较，如果匹配，则执行与该Case 关联的语句块。
dim a
a=inputbox("随便填写一个数")
a=int(a)
select case a 
  case 6,7,8,9 msgbox("还行")
  case 10,11,12,13,14,15 msgbox("一般")
  case 16,17,18,19,20 msgbox("可以了")
  case 21,22,23,24,25 msgbox("无敌了")
  case else msgbox("做梦呢")
end select

注意： Select Case结构只计算开始处的一个表达式（只计算一次），而 If...Then...ElseIf 结构计算每个 ElseIf 语句的表达式，这些表达式可以各不相同。仅当每个 ElseIf 语句计算的表达式都相同时，才可以使用 Select Case 结构代替If...Then...ElseIf 结构。

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
www.wwsws.com 伏龙阁资源网
39,976影音资源
44,792技术资源
21,817软件资源
651,128站长资源

更新日志

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 茶园资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接