1.Select Case结构格式：   
    Select Case e 
        Case  e1 
              A组语句 
        Case  e2 
             B组语句 
        …… 
        Case  Else 
            n组语句 
    End Select 
2.说明  
?e为测试表达式，可以是算术表达式或字符表达式，其值应是数字或字符型 
?e1、e2等是测试项，取值必须与测试表达式的值类型相同，常用形式为： 
      ?具体取值，用逗号隔开，如：1，5，9 
      ?连续的范围：界1 TO 界2 ，如：12 To 20  
      ?满足某个条件：Is运算符，如：Is>10      
      ?三种形式可以组合使用
补充：关于is的用法
1、case is<5 ,is>10 正确，表示或的关系
    case is>5 and is<10      用来表示并的关系不正确
若要用is表示并的关系，可以在select case中再嵌入select case
如：
Option Explicit
Dim a
Private Sub Form_Click()
a = Val(InputBox("成绩"))
    Select Case a
Case Is > 80
Select Case a 
Case Is < 90
Print "良"
End Select
End Select
End Sub
2、如果想用关系运算符来表示范围的话，可以按照顺序写select case事件。执行到满足条件的语句就会输出。
如：case is>90
print a
case is>80
print b
case is >70
print c
....
end select
3、组合示例
Select Case a
        Case Is > 100, 5, 0 To 2, 20 To 30
            Print "真棒"
    End Select
 
 
3.例题
题目：根据学生的成绩，判断其等级：
条件
成绩≥90
80≤成绩＜90
70≤成绩＜80
60≤成绩＜70
成绩＜60
等级
优秀
良好
中等
及格
不及格
程序界面：
 
程序代码：
Option Explicit
Private Sub Command1_Click()
  Dim x As Integer    '定义变量x 为整形数
  x = Val(Text1.Text)  '把文本框Text1里显示内容通过Val函数转成数值型数据再赋值给变量x 
  Select Case x         '测试表达式的值为x
    Case Is >= 90              '测试表达式的值x大于等于90情况下
      Text2.Text = "优秀"    '文本框Text2中显示“优秀”
    Case 80 To 90             '测试表达式的值x在80至90情况下
      Text2.Text = "良好"     '文本框Text2中显示“良好”
    Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79 '测试表达式的值x为70、71、72、73、74、75、76、77、78、79情况下
      Text2.Text = "中等"     '文本框Text2中显示“中等”
    Case 60, 61, 62, 63 To 66, Is >= 67 '测试表达式的值x为60、61、62、63、在64至66情况下、大于等于67的情况下
      Text2.Text = "及格"     '文本框Text2中显示“及格”
    Case Else                    '测试表达式的值x在其它情况下
      Text2.Text = "不及格" '文本框Text2中显示“不及格”
    End Select
End Sub
'以下代码是清除文本框Text1、Text2中所显示的内容，且将焦点放在文本框Text1上
Private Sub Command2_Click()
   Text1.Text = ""
   Text2.Text = ""
   Text1.SetFocus
End Sub
'以下代码是程序退出
Private Sub Command3_Click()
   End
End Sub

    

			

运行效果：




程序代码：

Private Sub Command1_Click()
    If IsNumeric(Text1.Text)
Then
     
  Select Case CInt(Text1.Text)
     
      Case Is
>= 85
     
     
    Label2.Caption = "成绩：" &
"优秀"
     
      Case 70 To
84
     
     
    Label2.Caption = "成绩：" &
"良好"
     
      Case 60,
61, 62, 63, 64, 65, 66, 67, 68, 69
     
     
    Label2.Caption = "成绩：" &
"及格"
     
      Case
Else
     
     
    Label2.Caption = "成绩：" &
"差"
     
  End Select
     End
If
End Sub



程序小结：
   
1、IsNumeric()函数含义“是数字”，即判断是否为数字；

   
2、CInt()：强制转换为整型，小数部分四舍五入；
   
3、Case分支语句后面可以使用的三种形式：“Is”，“To”，“,”。
							
		
  

    

			

一、运行效果




二、程序代码
（窗体模块）

Private Sub Command1_Click()
    Dim iNum As Integer
     
     
 '存储余数
    Dim i As Integer
     
     
     
   '循环计数
    For i = 0 To Img.UBound
     
  '循环
     
  Img(i).BorderStyle = 0  
     
 '所有imageBorderStyle都为0
    Next i
    If Text1.Text <>
"" And IsNumeric(Text1.Text) Then
 '判断输入是否为空，是否为数字
     
  If Len(Text1.Text) < 5 Then
     
     
     
     
     
     
 '判断输入是否是小于5的年代数字
     
      iNum =
QueryZodiac(Text1.Text).iMod    
     
    '获取余数
     
     
Img(iNum).BorderStyle = 1    
     
     
     
     
   
 '设置下标为余数的image边框为1
     
     
Label2.Caption = QueryZodiac(Val(Text1.Text)).sAnimal & ","
& QueryZodiac(Val(Text1.Text)).sDescription
     
  Else
     
     
    Text1.Text = "年代长度超过四位"
     
  End If
    Else
     
  Text1.Text = "请输入出生年代！"
    End If
End Sub


Private Sub Img_Click(Index As Integer)
    Dim i As Integer
    For i = 0 To Img.UBound
     
   'image图像控件数组上标UBound
     
  Img(i).BorderStyle = 0
    Next i
    Img(Index).BorderStyle =
1
    Label2.Caption =
QueryZodiac(Index).sAnimal & "," &
QueryZodiac(Index).sDescription
End Sub



（标准模块）

Type Zodiac    
     
     
     
     
    '自定义数据类型
    iMod As Integer
     
     
     
    '余数
    sAnimal As String * 1
     
     
  '属相
    sDescription As String *
300    '属相描述
End Type


Function QueryZodiac(iYear As Integer) As Zodiac
    Select Case iYear Mod 12
     
 '取余函数，确定生肖
     
  Case 0
     
     
QueryZodiac.iMod = 0
     
     
QueryZodiac.sAnimal = "猴"
     
     
QueryZodiac.sDescription =
"“猴为人祖”的传说颇多。《山海经》载，“其状如禺而文臂，豹虎而善投，名曰举父“，可见夸父（即举父）形象实乃猴子。成都地区神话认为盘古开天地，猴群中的伏羲女娲繁衍出人类。古吐蕃在《西藏王统记》中载其先祖系狲猴所变。羌族神话《木姐珠和冉必娃》，冉必娃用火烧掉全身猴毛成了美男子。"
     
     
  
     
  Case 1
     
     
QueryZodiac.iMod = 1
     
     
QueryZodiac.sAnimal = "鸡"
     
     
QueryZodiac.sDescription =
"《韩诗外传》概括鸡的“五德”，“头戴冠，文也；足搏距，武也；见敌敢干，勇也；见食相呼，义也；守夜不失时，信也”。故鸡有德禽的雅号。玉兔与月亮，金乌与太阳常相提并论。《淮南子·
精神》说“日中有蹬乌”，即三足乌：日乌、金乌、金鸦。明代杨慎的《艺林伐山》说“日中有金鸡”，日与月，太阳属东方酉鸡却位于西；月亮属西方卯兔却居于东，原因是“日月阴阳互藏其宅也”。李白的《梦游天姥吟留别》中吟“半壁见海日，空中闻天鸡。”"
     
  Case 2
     
     
QueryZodiac.iMod = 2
     
     
QueryZodiac.sAnimal = "狗"
     
     
QueryZodiac.sDescription =
"《汉书》载，帝高辛氏有狗名盘瓠，取犬戎吴将军首级被赐以少女，“随盘瓠升南山产子，男女十二，后繁盛也“。《搜神记》扩充说盘瓠是皇后耳朵跳出的金虫变成。西南的苗、畲、瑶、黎、侗、壮、佤等民族，也传说盘瓠是族群始祖。少数民族还有狗取谷种的传说，哈尼族认为，天神女儿把五谷带到人间，被贬成狗。"
     
  Case 3
     
     
QueryZodiac.iMod = 3
     
     
QueryZodiac.sAnimal = "猪"
     
     
QueryZodiac.sDescription =
"猪有“乌金”之名，父系氏族公社时期，猪是财富标志，临夏大何庄的墓葬有三十六块猪骨陪葬。豕是士庶以下平民的祭品，以豕为之，陈豕于室，合家而祀，即“家”字。畜牧户供奉豕神、栏神。豕神本职厕神，南方农村厕所和猪圈多合二为一，故厕神多兼职圈神。厕神即紫姑神，或死于厕的西汉戚夫人。猪栏神是姜太公，封神时姜太公把为自己预留的东岳神让给黄飞虎，自己当猪栏神。浙西一带常在猪栏张贴黄纸，“姜太公在此、百无禁忌“。"
     
  Case 4
     
     
QueryZodiac.iMod = 4
     
     
QueryZodiac.sAnimal = "鼠"
     
     
QueryZodiac.sDescription =
"老鼠偷吃粮食，证明“仓鼠有余粮”，说明这户富足，家中鼠多象征富裕。清代方叡颐《梦园丛说》记载粤东一种“钱鼠”玩具，叫声好像数钱。老鼠能发出数钱般的声音。旧时湖北等地以此声为吉祥之兆。浙江一带却认为“前半夜主得财，后半夜主散财”，而崇明一带则认为此声预示祸灾祸。"
     
  Case 5
     
     
QueryZodiac.iMod = 5
     
     
QueryZodiac.sAnimal = "牛"
     
     
QueryZodiac.sDescription =
"因为牛耕，中国人对牛感情渐深，把诸如憨厚勤劳，不求回报等优秀品质附在牛身上，鲁迅就以“俯首甘为孺子牛”言志。《大戴礼记·曾子天圆》：“诸侯之祭，牛，曰太牢。”《清史稿·礼志一》：“太牢，牛一，羊一，豕一”，牛都是最尊贵的祭祀品，是天子祭祀社稷和天地之用。春秋战国的诸侯会盟，国君执牛耳割血，涂在嘴里。"
     
  Case 6
     
     
QueryZodiac.iMod = 6
     
     
QueryZodiac.sAnimal = "虎"
     
     
QueryZodiac.sDescription =
"虎是百兽之王，寅虎相配，甲骨文“寅”字如箭矢状，《说文》中“寅”意为“阳气上升，虽上有冻土，必破土而出”，与虎的凶猛刚阳之气契合。如果说商代铜器虎食人卣反映古人对虎的畏惧，那在战争的虎烙印，则代表对征服的渴望，行军打白虎幡旗，晓勇者为“虎将”，调兵用虎符，兵器有虎纹……"
     
  Case 7
     
     
QueryZodiac.iMod = 7
     
     
QueryZodiac.sAnimal = "兔"
     
     
QueryZodiac.sDescription =
"嫦娥奔月传说源于《淮南子.览冥训》，嫦娥在月中有玉兔相伴。兔是月的象征。《春秋运斗枢》说：“行失瑶光，则月出兔”。《乐府诗集》有“白兔常跪捣药虾蟆九”的诗句，晋朝傅玄在《拟天问》中吟：“月中何有?白免捣药。”"
     
  Case 8
     
     
QueryZodiac.iMod = 8
     
     
QueryZodiac.sAnimal = "龙"
     
     
QueryZodiac.sDescription =
"龙的来历说法颇多，以闻一多推断，蛇为图腾的氏族先后兼并许多别的图腾氏族，形成“以大蛇为主体，兼有马的头、鬣的尾，鹿的角，狗的爪，鱼的鳞和须混合而成的龙图腾”。"
     
  Case 9
     
     
QueryZodiac.iMod = 9
     
     
QueryZodiac.sAnimal = "蛇"
     
     
QueryZodiac.sDescription =
"蛇多以负面形象出现。“人心不足蛇吞象”形容蛇的贪婪；《农夫和蛇》写出蛇的狡猾和冷血；狠毒之人被形容为“蛇蝎心肠”。"
     
  Case 10
     
     
QueryZodiac.iMod = 10
     
     
QueryZodiac.sAnimal = "马"
     
     
QueryZodiac.sDescription =
"作为六畜之首，马除用作交通运输，还是强大的军事装备。战国以“万乘之国”，“千乘之国”等马拉战车的数量来形容国力强弱。历代君王将帅以拥有骏马为荣。周穆王拥八骏。汉武帝为取得大宛汗血宝马两次远征大宛。唐太宗钟爱“六骏”，
飒露紫、拳毛騧、青骓、什伐赤、特勒骠、白蹄乌，刻在昭陵以表彰战功。还有秦始皇的“追风”、“白兔”，项羽的“乌骓马”，刘备的“的卢”，关羽的赤兔，等等。"
     
  Case 11
     
     
QueryZodiac.iMod = 11
     
     
QueryZodiac.sAnimal = "羊"
     
     
QueryZodiac.sDescription =
"古人视羊为“德畜”，善群、好仁、死义、知礼。善群，羊喜欢聚群。好仁指羊善良，有角但不好斗。死义指羊被宰杀时安静，视死如归，故有宣王“以羊易牛”的故事。知礼指羊知恩，羊羔跪乳象征孝道。"
    End Select
End Function



三、程序总结
   
1、为了让Text1.Text文本框在加载的时候，光标就会出现在里边，可以把它的TabIndex属性设为0；

   
2、这个例子再次体现了控件数组处理问题的优越性；

   
3、自定义数据类型。。。还没怎么了解；SelectCase多分支选择结构语句看着有点头晕，主要是字太多，可以适当精简。


四、程序附件
   
源程序下载地址：http://pan.baidu.com/s/1slTd7Xj 密码：58id

							
		
  

			

运行效果：




程序代码：

Private Sub Command1_Click()
    If IsNumeric(Text1.Text)
Then
     
  Select Case CInt(Text1.Text)
     
      Case Is
>= 85
     
     
    Label2.Caption = "成绩：" &
"优秀"
     
      Case 70 To
84
     
     
    Label2.Caption = "成绩：" &
"良好"
     
      Case 60,
61, 62, 63, 64, 65, 66, 67, 68, 69
     
     
    Label2.Caption = "成绩：" &
"及格"
     
      Case
Else
     
     
    Label2.Caption = "成绩：" &
"差"
     
  End Select
     End
If
End Sub



程序小结：
   
1、IsNumeric()函数含义“是数字”，即判断是否为数字；

   
2、CInt()：强制转换为整型，小数部分四舍五入；
   
3、Case分支语句后面可以使用的三种形式：“Is”，“To”，“,”。