vb6 Select Case语句

Select Case语句

上一节讲了If 语句的基本用法，主要是起到条件控制作用，条件比较少的时候用可以，但是条件多的话用If语句就比较繁琐了。举个例子：有个组合框，下拉列表里的数据是从星期一到星期日，要求点击按钮，弹出对话框告诉你今天的课程（周一数学，周二语文，周三英语，周四化学，周五物理，周六音乐，周日体育）如果是用If语句，非常繁琐，而且以后维护起来很麻烦，先看运行效果：

示例代码：

一眼望去，一排排If……End If ,很眼晕是不？现在有个更好的方法，那就是Select Case 控制语句，简单又快捷，示例代码：

运行效果：

是不是很方便？这样有多少个条件都行，只需增加一个Case即可。需要注意的是，Select Case 语句结束后必须用End Select来结束，告诉程序退出该语句。

上面这个例子是七种条件都用判断，假如只有星期一和星期五上课，其他时候都休息，这种情况怎么来写呢？是下面这样吗？

理论上是对的，但是代码臃肿，看起来也不整洁美观，有别的方法吗？有！我们先整理一下思路，现在的情况，只需要判断周一和周五，其他都是相同的结果，那就可以在最后的Case 后加一个Else 也就是说，如果不满足以上所有的Case条件，那么就执行 Case Else后面的代码。

示例：

这样就轻松愉快了，另外和If语句一样，Celect Case语句也支持嵌套，可以可嵌套If语句，也可以嵌套Celect Case语句。

下面是Celect Case 嵌套If语句：

下面是Celect Case 嵌套Celect Case语句，用于更多条件的控制。

希望大家能多练习，自己动手做一遍能加深印象。

如果感觉讲的不错，能学到一些知识的话，请多鼓励我，谢谢啦~