VB编程之Select Case语句
最新Vb_程序的选择结构select_case结构教学内容
End Select End If End Sub
内容小结
1．熟记select case语句书写结构，理解执行过程。 2. 注意select case 语句中表达式细节 3. Select case 语句应用环境，与if语句的转换
此课件下载可自行编辑修改，仅供参考！ 感谢您的支持，我们努力做得更好！ 谢谢!
Case 0: Picture1.Print "X1=X2="; -B / (2 * A)
Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Picture1.Print "X1="; X1, "X2="; X2
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
C = Val(Text3.Text): Picture1.Cls If A = 0 Then
If B = 0 Then MsgBox "系数为零，请重新输入"
Else X = -C / B: Picture1.Print "X="; X
理解VB中选择语句SelectCase结构的最好例子
'以下代码是程序退出
Private Sub Command3_Click() End
End Sub
Case Else
'测试表达式的值x在其它情况下
Text2.Text = "不及格" '文本框Text2中显示“不及格”
End Select End Sub
'以下代码是清除文本框Text1、Text2中所显示的内容，且将焦点放在文本框Text1上
Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Te78、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 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、
Vb 程序的选择结构select case结构
【例】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b (2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text) C = Val(Text3.Text): Picture1.Cls If A = 0 Then If B = 0 Then MsgBox "系数为零，请重新输入" Else X = -C / B: Picture1.Print "X="; X End If Else Delta = B ^ 2 - 4 * A * C Select Case Delta Case 0: Picture1.Print "X1=X2="; -B / (2 * A) Case Is > 0 X1 = (-B + Sqr(Delta)) / (2 * A) X2 = (-B - Sqr(Delta)) / (2 * A) Picture1.Print "X1="; X1, "X2="; X2 Case Is < 0: MsgBox "有两个共轭复根 " End Select End If End Sub
程序的选择结构 ——select case结构
Private Sub Command1_Click() player = Text1.Text Select Case player ① Case "科比" MsgBox "洛杉矶湖人队；24号球衣", 0, "球队名称" ② Case "霍华德" MsgBox "休斯顿火箭队；12号球衣", 0, "球队名称" ③ Case "詹姆斯" MsgBox "迈阿密热火队；6号球衣", 0, "球队名称" · · Case Else MsgBox "NBA 没有这个球员", 0, "球队名称" · End Select End Sub
VBA中的SelectCase语句
Select Case语句也是条件语句之一，而且是功能最强大的条件语句。
它主要用于多条件判断，而且其条件设置灵活、方便，在工作中使用频率极高。
本节介绍Se lectCase语句的语法及应用案例．Select Case语句的语法如下：Select Case testex press ion[Case expres sionl ist-n[statem ents-n]] ...[Case Else[elsest ateme nts]]End SelectSelect Case语句包括四部分，每部分详细含义如表38-1所示。
表38-1Select Case语句各部分含义在以上语法列表中，省略号代表可以使用多个条件。
只要有一个C ase就需要有一个s tatem ents-n，表示条件及符合条件时的执行条件。
其中else state ments表示不符合指定条件时的执行语句，是可选参数。
可以忽略el sesta temen ts，也可以执行一条或者一组语句，为了让程序能够处理一些不可预见的情况，尽量使用el sesta temen ts语句处理不符合条件时该如何回应。
在Selec t Case的多个参数中，最复杂的是e xpres sionl ist-n部分，它有多种表达形式，包括：lExpre ssion——直接声明一个条件值，例如5lexpre ssion To expres sion——声明一个条件的范围，例如5-10lIs compar isono perat or——声明一种比较方式，例如is >5下面的实例可以展示参数中expr essio nlist-n部分的多种表达形式。
实例1：多条件时间判断根据当前的时间判断是上午、中午，还是下午、晚上、午夜。
VBA编程中的SelectCase语句
从上⾯的例予可以看出，如果条件复杂，分⽀太多，使⽤If语句就会显得累赘，⽽且程序也将变得不易阅读。
这时可使⽤Select Case语句来写出结构清晰的程序。
Select case语句可根据表达式的求值结果，选择执⾏⼏个分⽀中的⼀个分⽀。
其语法如下：
Select Case
[(；ase]
[]]
[case Else
[]]
End Select
(1)检验表达式必要参数，可为任何数值表达式或字符串表达式。
(2)⽐较列表1 若有case出现，则为必要参数。
它是多个“⽐较元素”的列表，其中可包含“表达式”、“表达式To表达式”、“Is 表达式’’⼏种形式。
如果“⽐较元素”中含有“To”关键字，则前⼀个表达式必须⼩于后⼀个表达式(对于数值表达式，指的是数值⼤⼩；对于字符串表达式，则指排序)，且必须介于两个表达式之间。
如果含有“Is”关键字，则“⽐较操作符’’表达式的值必须为真。
(3)语句1～n可包含⼀条或多条语句。
如果有⼀个以上的Case⼦句与“检验表达式”匹配，则VBA只执⾏第⼀个匹配的Case后⾯的“语句”。
如果前⾯的case⼦句与都不匹配，则执⾏Case Else⼦句中的语句n。
vb中实现分支结构的语句
vb中实现分支结构的语句在 VB 中，可以通过以下方式实现分支结构的语句：1. If...Then...Else 语句：```vbIf condition Then' 条件为真时执行的代码Else' 条件为假时执行的代码End If```2. Select Case 语句：```vbSelect Case expressionCase value1' 表达式等于 value1 时执行的代码Case value2' 表达式等于 value2 时执行的代码Case Else' 表达式不等于任何一个值时执行的代码End Select```3. Do...Loop 语句：```vbDo While condition' 条件为真时执行的代码Loop``````vbDo Until condition' 条件为假时执行的代码Loop``````vbDo' 无限循环，需要在循环体内部使用 Exit Do 来退出循环Loop```4. For...Next 语句：```vbFor counter = start To end Step stepValue' 在每次循环时 counter 递增/递减 stepValue 值，并执行循环体内的代码Next``````vbFor Each item In collection' 遍历集合中的每个元素，并执行循环体内的代码Next ```。
VB程序设计课件第7讲 select case 语句
5
例：变量strC中存放一个字符，判断是字母、数字 变量strC中存放一个字符，判断是字母、 strC中存放一个字符 字母 If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then Label1.Text = strC + "是字母字符 是字母字符" 是字母字符 ElseIf strC >="0" And strC <="9" Then Label1.Text = strC + "是数字字符 是数字字符" 是数字字符 Else Label1.Text = strC + "其他字符 其他字符" 其他字符 End If 用Select Case语句实现 语句实现
将测试表达式的值与各Case语句中的表达式值比 将测试表达式的值与各Case语句中的表达式值比 Case 决定执行哪个Case子句。 Case子句 较，决定执行哪个Case子句。仅仅执行第一个匹配的 语句，做完立即退出。 语句，做完立即退出。
3
“测试表达式”可以是数值、字符串表达式， 测试表达式”可以是数值、字符串表达式， 但不能为逻辑表达式。 但不能为逻辑表达式。 “表达式值 的几种形式: 表达式值” Case “表达式值”的几种形式:
优秀″ = ″优秀″ 良好″ = ″良好″ 通过″ = ″通过″ = ″不通过″ 不通过″
求三数中最大数 Public Sub Button1_Click( ) Val(InputBox(″请输入第一个数 请输入第一个数″)) a= Val(InputBox(″请输入第一个数″)) Val(InputBox(″请输入第二个数 请输入第二个数″)) b= Val(InputBox(″请输入第二个数″)) Val(InputBox(″请输入第三个数 请输入第三个数″)) c= Val(InputBox(″请输入第三个数″)) Max =a Max b>___(1)___ ___(1)___Then If b>___(1)___Then Max=b Max c>___(2)__ ___(2)___Then If c>___(2)___Then Max=c 最大数为″& Label1.Text = ″最大数为″& Max End Sub
ExcelVBA编程SelectCase语句
ExcelVBA编程SelectCase语句Excel VBA编程Select Case语句该语句的结构为选择程序结构，它根据表达式的值，来判断执行几组语句中的其中哪一个语句。
虽然前面介绍的IF…Then…Else结构比较简单，但是当添加太多的Else if子句时，会使代码变得繁琐。
Select Case是IF…Then…Else结构的一种变通形式，可使代码变得简练易读。
但是，并不是所有的多分支结构均可用Select Case语句代替If语句。
语法：Select Case testexpression[Case expressionlist-n[statements-n]] ...[Case Else[elsestatements]]End SelectSelect Case语句的语法具有以下几个部分：●testexpression 必要参数。
任何数值表达式或字符串表达式。
●expressionlist-n 如果有Case出现，则为必要参数。
其形式为expression，expression To expression，Is comparisonoperator expression的一个或多个组成的分界列表。
To关键字可用来指定一个数值范围。
如果使用T o关键字，则较小的数值要出现在T o之前。
使用Is关键字时，则可以配合比较运算符（除Is和Like之外）来指定一个数值范围。
如果没有提供，则Is关键字会被自动插入。
●statements-n 可选参数。
一条或多条语句，当testexpression 匹配expressionlist-n中的任何部分时执行。
●elsestatements 可选参数。
一条或多条语句，当testexpression不匹配Case子句的任何部分时执行。
下面的示例使用Select Case语句来判断变量的值。
Dim NumberNumber = 8 ' 设置变量初值。
Vb-程序的选择结构select-case结构
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"ห้องสมุดไป่ตู้
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89：“良” 70~79：“中”60~69：“及格”
60分以下为“不及格”
2.测试表达式类型应与Case表达式类型一致
【例1】：变量strC中存放一个字符，判断是字母、数字
If Ucase(strC) >=“A” And Ucase (strC) <=“Z” Then
Label1.Caption= strC + "是字母字符"
ElseIf strC >="0" And strC <="9" Then
Is 关系运算表达式
Case is <30
数值或字符串表达式,表述固 定值之一
用来指定一个范围，较小的 在To前，较大在To后
可配合比较运算符来指定一 个数值范围，不能用逻辑运 算符将两个或多个简单条件 组合在一起
注意: 1. 以上几种形式可以混用， 例如: Case Is < -5 , 0 , 5 To 100
C = Val(Text3.Text): Picture1.Cls If A = 0 Then
If B = 0 Then MsgBox "系数为零，请重新输入"
Else X = -C / B: Picture1.Print "X="; X
End If Else
VB6.0SelectCase语句
VB6.0SelectCase语句语法Select Case <指⽰变量或表达式>Case <情形1><语句组1>Case <情形2><语句组2>....Case <情形n><语句组n>Case Else<默认语句组，以上语句组都因情形不符合实际时执⾏>End Select其中，表述情形的关键字，有IS和TO，多个情形要并列在⼀起时，使⽤逗号(英⽂)连接。
当省略Case Else语句并且语句组都因情形不符合实际时，语句的执⾏，会直接到达End Select。
如果在执⾏语句的时候，有需要跳过没有必要再执⾏的语句⽽直接结束Select Case的情况时，请使⽤exit select。
注意在“<指⽰变量或表达式>”不是True或False关键字时，逻辑运算（And、Or、Not）会没有意义。
因为逻辑运算的结果是True或False，不是表述具体情况的值或者范围。
需要⽐较⼤⼩时，请使⽤IS、To关键字。
以上为了给出⼀个能够通⽤的语法⽽如此表述。
在“<指⽰变量或表达式>”是True或False关键字时，Is、To关键字没有意义。
以上两种情况，切记不要搞混。
嵌套各语句组中也可以写⼊完整的Select Case语句，像For循环中嵌套⼀个⼆级循环⼀样。
别误会，Select Case不是循环语句，是条件选择语句，与IF...ELSEIF...ELSEIF...END IF类似。
基本⽤法Private Sub main()Select Case InputBox("请输⼊你希望的天⽓，从晴天、多云、阴天、阵⾬、⼩⾬、⼩雪、冰雹中选⼀个填⼊。
", "请输⼊你希望的天⽓", "晴天")Case "晴天"MsgBox "哇哦！你喜欢的是晴天啊，祝你天天好⼼“晴”~！"Case "多云"MsgBox "喜欢多云的天⽓，是因为⽐较怕紫外线吗？"Case "阴天"MsgBox "为什么喜欢阴天呢？真令⼈好奇啊~！"Case "阵⾬"MsgBox "为什么喜欢阵⾬天呢？真令⼈好奇啊~！"Case "⼩⾬"MsgBox "为什么喜欢⼩⾬天呢？真令⼈好奇啊~！"Case "⼩雪"MsgBox "为什么喜欢⼩雪天呢？真令⼈好奇啊~！"Case "冰雹"MsgBox "为什么喜欢冰雹天呢？真令⼈好奇啊~！"Case ElseMsgBox "不可以酱紫！只能从我给出的⼏种中挑选⼀个填⼊！"End SelectEnd Sub<以上代码在VB6.0测试通过>使⽤关键字ISPrivate Sub main()Select Case Day(Now)Case Is <= 10MsgBox "⽬前是本⽉上旬！"Case Is > 20MsgBox "⽬前是本⽉下旬！"Case ElseMsgBox "⽬前是本⽉中旬！"End SelectEnd Sub<以上代码在VB6.0测试通过>使⽤关键字TOPrivate Sub main()Select Case Weekday(Now)Case 1, 7MsgBox "今天是周末！"Case 2 To 6MsgBox "今天不是周末！"End SelectEnd Sub<以上代码在VB6.0测试通过>关键字IS和TO可以根据需要，在同⼀条情形中⼀起使⽤，例如Case Is<=5,8 to 10,Is>20不过要注意的是，TO表⽰的区间，是闭区间，不适⽤于开区间（或半闭半开区间）。
vb select case语句
vb select case语句
VB（VisualBasic）中的SelectCase语句是一种流程控制语句，用于根据不同的条件执行不同的操作。
它基于条件语句，可以简化代码并提高可读性。
该语句的语法结构为：
Select Case expression
Case value1
statement1
Case value2
statement2
…
Case Else
statementN
End Select
其中，expression表示要检查的表达式，value1、value2等表示不同的条件值，statement1、statement2等表示针对不同条件值的操作语句，Case Else表示当所有条件都不满足时执行的语句。
在实际应用中，Select Case语句通常用于替代多个If语句，从而提高代码效率和可维护性。
通过对条件值的匹配，程序可以快速定位并执行相应的操作，避免了重复的判断和执行。
同时，该语句还支持嵌套使用，可以根据需要进行多级选择和操作。
需要注意的是，在使用Select Case语句时，应根据具体情况合
理选择条件值和操作语句，避免出现逻辑错误和代码冗余。
此外，建议添加注释和格式化代码，以便提高代码的可读性和可维护性。
vb 中case用法
vb 中case用法VB (Visual Basic) 中的Case 语句用于在多个条件下执行不同的代码块。
它提供了一种结构化的方式来处理多个情况，以便根据不同的条件执行不同的操作。
本文将逐步介绍VB 中Case 语句的用法和一些最佳实践。
第一部分：Case 语句的基本语法和用法（400-600字）在VB 中，Case 语句通常与Select 语句一起使用。
Select 语句用于确定要使用的条件。
Case 语句用于指定每种条件的操作。
下面是Case 语句的基本语法：Select Case expressionCase value1' 执行与value1 相关的代码Case value2' 执行与value2 相关的代码Case Else' 如果没有匹配的值，则执行与Case Else 相关的代码End Select在上面的语法中，expression 是要测试的表达式。
value1、value2 是与表达式比较的值。
Case Else 是可选的，用于指定没有匹配的值时要执行的代码块。
在使用Case 语句时，有几个要注意的点：1. 没有必要在每个Case 之后都使用break 语句，因为在VB 中，程序将自动继续执行到下一个Case，直到遇到Exit Select 或Select 语句的末尾。
2. 如果多个Case 匹配了同一个操作，可以使用逗号将它们分隔开。
例如：`Case value1, value2`。
3. Case 部分可以是常量值，也可以是表达式。
例如：`Case 1 to 10`。
4. Case 语句是区分大小写的。
如果需要忽略大小写进行比较，可以使用`Option Compare Text` 语句。
现在，让我们通过一个例子来完整了解Case 语句的用法：Dim day As Integerday = 1Select Case dayCase 1Console.WriteLine("Monday")Case 2Console.WriteLine("Tuesday")Case 3Console.WriteLine("Wednesday")Case 4Console.WriteLine("Thursday")Case 5Console.WriteLine("Friday")Case ElseConsole.WriteLine("Weekend")End Select在上面的例子中，我们使用Select Case 语句来选择适当的代码块。
vbselectcase语句
vbselectcase语句VBSelectCase语句是Visual Basic编程语言中的一种控制结构，用于根据不同的条件执行不同的代码块。
它是一种灵活且易于阅读的方式来处理多个条件判断。
下面是一些关于VBSelectCase语句的例子，以展示其在实际应用中的用途和功能。
1. 根据用户输入的数字，判断其属于哪个等级（1-5），并输出相应的提示信息。
```VBDim num As IntegerConsole.WriteLine("请输入一个数字：")num = Console.ReadLine()Select Case numCase 1Console.WriteLine("您的等级为初级。
")Case 2Console.WriteLine("您的等级为中级。
")Case 3Console.WriteLine("您的等级为高级。
")Case 4Console.WriteLine("您的等级为专家级。
")Case 5Console.WriteLine("您的等级为顶级。
")Case ElseConsole.WriteLine("输入无效。
")End Select```2. 根据用户选择的颜色，设置窗体的背景色。
```VBDim color As StringConsole.WriteLine("请选择一个颜色（红/绿/蓝）：") color = Console.ReadLine()Select Case colorCase "红"Me.BackColor = Color.RedCase "绿"Me.BackColor = Color.GreenCase "蓝"Me.BackColor = Color.BlueCase ElseConsole.WriteLine("无效的颜色选择。
vb中case语句用法举例说明
vb中case语句用法举例说明在VB中，`Case`语句用于根据表达式的值选择不同的代码块进行执行。
下面是几个使用`Case`语句的示例：1. 使用常量值：```vbDim dayOfWeek As Integer = 3Select Case dayOfWeekCase 1Console.WriteLine("Sunday")Case 2Console.WriteLine("Monday")Case 3Console.WriteLine("Tuesday")Case 4Console.WriteLine("Wednesday")Case 5Console.WriteLine("Thursday")Case 6Console.WriteLine("Friday")Case 7Console.WriteLine("Saturday")Case ElseConsole.WriteLine("Invalid day of week")End Select```这段代码根据`dayOfWeek`的值选择输出不同的天数名称。
2. 使用表达式：```vbDim age As Integer = 20Select Case ageCase 0 To 12Console.WriteLine("Child")Case 13 To 19Console.WriteLine("Teenager")Case 20 To 65Console.WriteLine("Adult")Case ElseConsole.WriteLine("Senior")End Select```这段代码根据`age`的值选择输出不同的年龄阶段。
vba case用法
vba case用法
VBA中的Case语句用于根据变量或表达式的值进行条件判断，类似于其他编程语言中的switch语句。
Case语句可以根据变量或表达式的值进行不同的操作，使代码更加简洁和易于阅读。
使用Case语句需要先给一个变量或表达式赋值，然后根据该变量或表达式的值在Case语句中进行条件判断。
语法格式如下：
```
Select Case 变量或表达式
Case 值1
'执行代码块1
Case 值2
'执行代码块2
Case 值3
'执行代码块3
Case Else
'执行代码块4
End Select
```
其中，变量或表达式可以是任意类型的数据，值1、值2、值3等都是要比较的值。
如果变量或表达式的值等于某一个值，就执行对应的代码块。
如果所有的值都不符合条件，则执行Case Else语句块中的代码。
需要注意的是，Case语句中的值可以是数字、字符串、布尔值等任何类型的数据。
如果需要比较多个值，可以使用逗号分隔，如下所示：
```
Select Case 变量或表达式
Case 值1, 值2, 值3
'执行代码块1
Case 值4, 值5, 值6
'执行代码块2
Case Else
'执行代码块3
End Select
```
以上介绍的是简单的Case语句用法，如果需要进行复杂的条件判断，可以使用多个Case语句和And、Or等逻辑运算符进行组合。
使用Case语句可以使代码更加简洁和易于维护，是VBA编程中常用的一种语句。
VBACASE语句
VBACASE语 句
Case语句的语法如下： Select Case 测试表达式 Case Is 条件1 如果条件1为真时执行的语句 Case Is 条件2 如果条件2为真时执行的语句 Case Is 条件N 如果条件N为真时执行的语句 End Select
if f=700 then Select Case areatype case “DU”。。。 case 。。。 End Selห้องสมุดไป่ตู้ct
end if
If f > 700 Then Select Case areatype Case "DU" R = Int(Application.WorksheetFunction.Power(10, (mapl - (46.3 + 33.9 * Application.WorksheetFunction.Log(f) - 13.82 * Application.WorksheetFunction.Log(hb) - ((1.1 * Application.WorksheetFunction.Log(f) - 0.7) * hm - (1.56 * Application.WorksheetFunction.Log(f) - 0.8)) + 3)) / (44.9 - 6.55 * Application.WorksheetFunction.Log(hb))) * 1000) Case "UR" 。。。。 Case "SU" 。。。。 Case "RU" 。。。。 End Select End If
例如，我们来比较几个数字： Select Case myNumber Case Is <10 MsgBox "The number is less than 10" Case 11 MsgBox "You entered eleven." Case Is >=100 MsgBox "The number is greater than or equal to 100." Case Else MsgBox "The number is between 12 and 99." End Select
vba case when用法
vba case when用法在VBA中，我们可以使用`Select Case`语句来实现类似于SQL中的`CASE WHEN`的功能。
下面是一个简单的示例：```vbaSub TestSelectCase()Dim i As Integeri = 2Select Case iCase 1MsgBox "i 等于1"Case 2MsgBox "i 等于2"Case ElseMsgBox "i 不等于1 或2"End SelectEnd Sub```在这个示例中，我们使用了`Select Case`语句来根据变量`i`的不同取值执行不同的代码块。
这类似于SQL中的`CASE WHEN`语句，根据不同条件执行不同的逻辑。
另外，`Select Case`语句也可以和`Case`子句结合使用，来实现更加复杂的条件判断。
例如：```vbaSub TestSelectCase2()Dim fruit As Stringfruit = "apple"Select Case fruitCase "apple", "pear"MsgBox "这是苹果或者梨子"Case "banana"MsgBox "这是香蕉"Case ElseMsgBox "这是其他水果"End SelectEnd Sub```在这个示例中，我们使用了逗号将多个条件放在同一个`Case`子句下，表示如果`fruit`是"apple"或者"pear"，则执行第一个`Case`子句中的逻辑。
总的来说，`Select Case`语句可以帮助我们根据不同条件执行不同的逻辑，类似于SQL中的`CASE WHEN`语句，但在VBA中的语法略有不同。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
本文介绍VB中一种选择结构——Slect Case语句。
Select Case语句也称为情况语句，是多分支结构的另一种表示形式。
语句格式如下：
Select Case语句的功能是首先计算<测试表达式>的值，然后用计算结果从前到后依次与每个Case子句的<表达式列表>的值进行比较。
如果匹配成功，则执行该Case子句后的语句块，然后执行End Select语句。
如果没有匹配的，且存在Case Else语句则执行Case Else子句后的语句块n+1，然后执行End Select语句。
<表达式列表>有4种形式：
1，表达式
如：Case 5 或 Case "a"
2，表达式1 To 表达式2
Case 1 to Case 20或Case "A" to "Z"
3，Is关系运算符表达式
如：Case Is<60
4，用逗号分隔的以上3种形式的列表
如：Case 1 to3,10 to 15 ,6,9,Is>100
说明：
To用来指定一个范围，必须将小的值写在前面，而大的值写的后面
Is及后面的关系运算符和表达式来指定一个数值范围。
如Is>50 ，但是不能用两个或多个组合在一起，例如Case Is>10 And Is<20,这是错误的表达形式Select Case语句与If语句功能类型，一般情况下可以相互替换。
举例：
要求：编程求指定某年某月的天数。
如下图所示;
分析：月份天数有3种情况，即31天、30天、29天或28天。
第3种情况与是否为闰年有关，闰年的2月为29天，非闰年的2月为28天。
闰年是能被4整除但不能被100整除的年（如2004年），或者能被400整除的年（如2000年）。
步骤一：按照上图设计程序界面。
步骤二：添加代码，如下所示
步骤三：
测试效果，输入年份和月份后，单击求天数按钮即可计算出该月的天数。