SELECTCASE

VB中的Select Case语句能不能举例子啊？

举例如下：Private Sub Form_Click()Dim a As Integera = InputBox("请输入一个数：")Select Case aCase Is > 0MsgBox "是正数"Case Is < 0MsgBox "是负数"Case ElseMsgBox "是零"End SelectEnd Sub扩展资料：参数 testExpression：必要参数，任何数值表达式或字符串表达式。expression：如果有Case出现，则为必要参数。 statements：可选参数，一条或多条语句，当 testExpression 匹配 expression 中的任何部分时执行。 elseStatements：可选参数，一条或多条语句，当 testExpression 不匹配 Case 子句的任何部分时执行。参考资料来源：百度百科-Select Case

VB中的Select Case语句能不能举例子啊？

举例如下：Private Sub Form_Click()Dim a As Integera = InputBox("请输入一个数：")Select Case aCase Is > 0MsgBox "是正数"Case Is < 0MsgBox "是负数"Case ElseMsgBox "是零"End SelectEnd Sub扩展资料：参数 testExpression：必要参数，任何数值表达式或字符串表达式。expression：如果有Case出现，则为必要参数。 statements：可选参数，一条或多条语句，当 testExpression 匹配 expression 中的任何部分时执行。 elseStatements：可选参数，一条或多条语句，当 testExpression 不匹配 Case 子句的任何部分时执行。参考资料来源：百度百科-Select Case

小case是什么意思?

“小case”是“小事情，小意思”的意思。1、[kes],美[kes]2、释义：n.具体情况；事例；实例；实情；事实；特殊情况。v.奏爵士乐、跳爵士舞；游荡；使活泼。3、case可以用作名词：case的基本意思是“事例，实例”，指作为一个参照来让人知道或了解的某物或某事，或指一个客观存在的事实，即“实情，情况”。case还可指“病例，病症”，可指一种具体的疾病，也可指一种疾病所表现出的症状。case也可指“案件，诉讼案”。case引申还可表示“格”，多用于语法中，还可指具体的“人”。case还有“容器，包装”的意思，指包裹在物品外面的一层外包装，这样的包装可以是不同形式的，可以是箱或袋，也可以是盒或包。case还可指“手提箱”。

VB 中的select case语句怎么用？

select case a
意思就是判断a是什么内容。然后根据不同内容执行不同的代码。
如：
select case a
case "李" '注：当a="李"时，执行下面这句：
msgbox "他是姓李的"

case "543" '注：当a="543"时，执行下面这句：
msgbox "哈哈，a的内容是543"

case else 'a为其它内容时，执行下面这句:
msgbox "a是什么东东哦～"

end select '结束判断

VB中If条件语句与Select Case语句的区别

IF是按表达式进行判断的，Select Case是按条件进行判断的，如果你在Select Case里写表达式，那如果表达式中第一段条件是TURE，就会进入运算，后半段表达式是不参与运算的
Case Is < 1: Y = X
Case Is >= 1 < 10: Y = 2 * X - 1
Case Is >= 10: Y = 3 * X - 11
如果你输入11
这个数不小于1，跳过第一个Case Is
这个数>=1返回TURE，进入第二个Case Is开始运算
如果第二行改一下
Case Is < 1: Y = X
Case Is < 10 : Y = 2 * X - 1
Case Is >= 10: Y = 3 * X - 11
你输入11
这个数不小于1，跳过第一个Case Is
这个数不小于10，跳过第二个Case Is
这个数大于10，进入第三个Case Is
你输入5,
这个数不小于1，跳过第一个Case Is
这个数小于10进入第二个Case Is
===============
也就是说Case Is >= 1 < 10: Y = 2 * X - 1中“小于10”这个条件没参与运算

select case与if...then...else if的区别

if.........elseif..........end if 多次嵌套后代码显得混乱.
select case 表达式是必要参数。可以是任何数值表达式或字符串表达式。
select case 表达式
case 值1 ,这个值是程序员尽可能的把会出现的值写出来并进行判断.
select case 值1
case 值2

case else
这里写没有考虑到的情况的代码
end select 这个 end select 就是内嵌套的select case 值1
case else
这里写没有考虑到的情况的代码
end select

VB中如何使用select case语句

语法Select Case 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使用关键字ISPrivate Sub main()Select Case Day(Now)Case Is 20MsgBox "目前是本月下旬！"Case ElseMsgBox "目前是本月中旬！"End SelectEnd Sub使用关键字TOPrivate Sub main()Select Case Weekday(Now)Case 1, 7MsgBox "今天是周末！"Case 2 To 6MsgBox "今天不是周末！"End SelectEnd Sub关键字IS和TO可以根据需要，在同一条情形中一起使用，例如Case Is20不过要注意的是，TO表示的区间，是闭区间，不适用于开区间（或半闭半开区间）。如果一定要用select Case来确定数值在哪个区间内，可以这么做:Private Sub main()On Error GoTo errDim num As Singlenum = InputBox("请输入！")Select Case numCase Is 7MsgBox "这个数大于7"End SelectExit Suberr:MsgBox "这个不是可比较的数字"End Sub此时，各Case不能随便对换顺序。虽然这个可以达到我们想要的效果，却因为不够严谨，让我忧心忡忡。那么什么是最严谨的呢？请看高级用法。高级用法语法（这里只是为了更好的理解，稍稍变一下表述，不改变实意。）Select Case trueCase Case ....Case Case ElseEnd Select在此语法下，Is、To关键字没有意义，Is的值为true（Is是变量吗？这个问题真的好让人回味啊）只要逻辑运算表达式的运算结果为true，就执行该Case下的语句组。那么，上面的例子就这么改。Private Sub main()On Error GoTo errDim num As Singlenum = InputBox("请输入！")Select Case TrueCase num >= 5 And num 1MsgBox "这个数在1和3之间的开区间内"Case num > 7MsgBox "这个数大于7"Case num = 3MsgBox "这个数在3和5之间的半闭半开区间内"End SelectExit Suberr:MsgBox "这个不是可比较的数字"End Sub可以看到，顺序被我随意变动了，测试也通过了。那么，爱琢磨的我，又发现一个问题：Select Case True可以改成Select Case False吗？答案是，可以。这里就不作示例了，只给出语法Select Case FalseCase Case ....Case Case ElseEnd Select只要逻辑运算表达式的运算结果为False，就执行该Case下的语句组。