VBS基础篇 – 条件语句(if与Select Case)（vba if case）这都可以

随心笔谈11个月前发布 admin

77 0 0

ChatGPT3.5-4 免费使用

……

在下面的情况中，您可以使用 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 结构。

您可能感兴趣的文章:VBS教程：VBScript 基础-使用条件语句VBScript教程第七课使用条件语句

# 随心笔谈