程序结构控制之Select Case教程

Select Case是根据表达式来进行判断，当值符合预先设置的某些条件，即返回相应的操作。

基本写法：Select [ Case ] testexpression  [ Case expressionlist    [ statements ] ]  [ Case Else    [ elsestatements ] ] End Select

翻译成我们日常表达的逻辑，就是：

我要对一个表达式进行选择 如果表达式符合第一种情况   执行第一种操作 如果表达式符合第二种情况   执行第二种操作 如果表达式属于其他情况   执行其他操作结束选择

end 在VBA里是很重要的结束语句，表示要结束当前逻辑控制块。例如End Select, End With，End if

表达式写法

表达式可以使用不同的方式，常见的主要有两种

表达式1 to 表达式2

一般用于选择数值时使用。表达式1的数值一定要比表达式2的数值要小。

Is 比较表达式

也就是说，使用一些比较符号，例如>,<,=等来对表达式进行判断。在用这种方式时，如果case和比较符之间不写Is系统也会自动把Is添上。

当然，以上两种可以混合使用。我们用最近流行的支付宝账单来举例：

Sub case_test()num = InputBox('2016年支付宝花了多少钱？')Select Case num Case Is > 1000000   MsgBox '壕，可为友乎？' Case 100000 To 1000000   MsgBox '年轻人，我看好你哦' Case 10000 To 100000   MsgBox '小伙子可以的' Case 1 To 10000   MsgBox '正常用户' Case Else   MsgBox '您好，需要一个手机么？'End SelectEnd Sub

F5运行之后，通过弹出的输入框输入一个数值，系统就可以根据数据来判断给出答案了。按照这个方法，也可以自己再写一些fortune teller的小程序哦。

总结一下

这节我们学习了

Select Case的方法

Case表达式的写法

至此，我们常用的判断控制语句我们就学完了，是不是看起来不是很简单？了解了原理之后，A哥还是建议大家自己多敲敲代码，处理问题的能力都是从不断踩坑踩出来的，踩完坑记得记录积累下来，坚持就会有进步哦！