1. If

复制代码

...

1. Then

复制代码

...

1. Else

复制代码

在下面的情况中，您可以使用 If...Then...Else 语句：
在条件为 true 时，执行某段代码
选择两段代码之一来执行时

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

复制代码

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

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

复制代码

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

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

复制代码

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

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

复制代码

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

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！