case语句用法vb

1.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 Else MsgBox "不可以酱紫!只能从我给出的几种中挑选一个填入!" End Select End Sub 使用关键字IS Private Sub main() Select Case Day(Now) Case Is <= 10 MsgBox "目前是本月上旬!" Case Is > 20 MsgBox "目前是本月下旬!" Case Else MsgBox "目前是本月中旬!" End Select End Sub<以上代码在VB6.0测试通过> 使用关键字TO Private Sub main() Select Case Weekday(Now) Case 1, 7 MsgBox "今天是周末!" Case 2 To 6 MsgBox "今天不是周末!" End Select End Sub<以上代码在VB6.0测试通过> 关键字IS和TO可以根据需要,在同一条情形中一起使用,例如 Case Is<=5,8 to 10,Is>20 不过要注意的是,TO表示的区间,是闭区间,不适用于开区间(或半闭半开区间)。如果一定要用select Case来确定数值在哪个区间内,可以这么做:Private Sub main() On Error GoTo err Dim num As Single num = InputBox("请输入!") Select Case num Case Is <= 1 MsgBox "这个数不大于1" Case Is < 3 MsgBox "这个数在1和3之间的开区间内" Case Is < 5 MsgBox "这个数在3和5之间的半闭半开区间内" Case Is <= 7 MsgBox "这个数在5和7之间的闭区间内" Case Is > 7 MsgBox "这个数大于7" End Select Exit Sub err:MsgBox "这个不是可比较的数字" End Sub 此时,各Case不能随便对换顺序。

虽然这个可以达到我们想要的效果,却因为不够严谨,让我忧心忡忡。那么什么是最严谨的呢?请看高级用法。

高级用法 语法(这里只是为了更好的理解,稍稍变一下表述,不改变实意。) Select Case true Case <逻辑运算表达式1><语句组1> Case <逻辑运算表达式2><语句组2>。

.Case <逻辑运算表达式n><语句组n> Case Else<默认语句组,当以上任何逻辑运算都为False时执行> End Select 在此语法下,Is、To关键字没有意义,Is的值为true(Is是变量吗?这个问题真的好让人回味啊) 只要逻辑运算表达式的运算结果为true,就执行该Case下的语句组。那么,上面的例子就这么改。

Private Sub main() On Error GoTo err Dim num As Single num = InputBox("请输入!") Select Case True Case num >= 5 And num <= 7 MsgBox "这个数在5和7之间的闭区间内" Case num < 3 And num > 1 MsgBox "这个数在1和3之间的开区间内" Case num > 7 MsgBox "这个数大于7" Case num < 5 And num >= 3 MsgBox "这个数在3和5之间的半闭半开区间内" End Select Exit Sub err:MsgBox "这个不是可比较的数字" End Sub 可以看到,顺序被我随意变动了,测试也通过了。那么,爱琢磨的我,又发现一个问题:Select Case True可以改成Select Case False吗?答案是,可以。

这里就不作示例了,只给出语法 Select Case False Case <逻辑运算表达式1><语句组1> Case <逻辑运算表达式2><语句组2>。.Case <逻辑运算表达式n><语句组n> Case Else<默认语句组,当以上任何逻辑运算都为true时执行> End Select 只要逻辑运算表达式的运算结果为False,就执行该Case下的语句组。

2.VB中select case 语句的用法

不能用“Time”关键字做变量名称。还有“Now”包括了时间和日期,而前面随机生成的时间不包括日期,会导致判断错误。代码可改为:

Private Sub Command1_Click()

Randomize

Dim rTime As Date

rTime = rTime + Rnd

Picture1.Print "今天 " & rTime

Select Case rTime

Case Is > Time

Picture1.Print "距现在还有" & Format(Time - rTime, "HH时MM分SS秒")

Case Else

Picture1.Print "到现在已经过了" & Format(rTime - Time, "HH时MM分SS秒")

End Select

End Sub

Private Sub Form_Load()

Label2 = Time

End Sub以上代码主要是把之前的“Time”的变量名改成了别的名称,还有后面的“Now”改成了“Time”。

3.vb程序case语句

Private Sub Text1_Change()

Select Case Val(Text1.Text)

Case 0 To 60

Label1.Caption = "不及格"

Case 60 To 70

Label1.Caption = "及格"

Case 70 To 80

Label1.Caption = "中"

Case 80 To 90

Label1.Caption = "良"

Case 90 To 100

Label1.Caption = "优秀"

Case Else

Label1.Caption = "输入错误"

End Select

End Sub

4.VB中select case语句怎么用啊

MSDN帮助 语法 Select Case testexpression [Case expressionlist-n [statements-n]] 。

[Case Else [elsestatements]] End Select Select Case 语句的语法具有以下几个部分:部分 描述 testexpression 必要参数。任何数值表达式或字符串表达式。

expressionlist-n 如果有 Case 出现,则为必要参数。其形式为 expression,expression To expression,Is comparisonoperator expression的一个或多个组成的分界列表。

To 关键字可用来指定一个数值范围。如果使用 To 关键字,则较小的数值要出现在 To 之前。

使用 Is 关键字时,则可以配合比较运算符(除 Is 和 Like 之外)来指定一个数值范围。如果没有提供,则 Is 关键字会被自动插入。

statements-n 可选参数。一条或多条语句,当 testexpression 匹配expressionlist-n中的任何部分时执行。

elsestatements 可选参数。一条或多条语句,当 testexpression 不匹配 Case 子句的任何部分时执行。

说明 如果 testexpression 匹配某个 Case expressionlist 表达式, 则在 Case 子句之后,直到下一个 Case 子句的 statements 会被执行;如果是最后一个子句,则会执行到 End Select。然后控制权会转移到 End Select 之后的语句。

如果 testexpression 匹配一个以上的 Case 子句中的 expressionlist 表达式,则只有第一个匹配后面的语句会被执行。Case Else 子句用于指明 elsestatements,当 testexpression 和所有的 Case 子句中的 expressionlist 都不匹配时,则会执行这些语句。

虽然不是必要的,但是在 Select Case 区块中,最好还是加上 Case Else 语句来处理不可预见的 testexpression 值。如果没有 Case expressionlist 匹配 testexpression,而且也没有 Case Else 语句,则程序会从 End Select 之后的语句继续执行。

可以在每个 Case 子句中使用多重表达式或使用范围,例如,下面的语句是正确的:Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber 注意 Is 比较运算符和使用在 Select Case 语句中的 Is 关键字并不相同。也可以针对字符串指定范围和多重表达式。

在下面的例子中,Case 所匹配的字符串为:等于 everything、按英文字母顺序落入从 nuts 到 soup 之间的字符串、以及 TestItem 所代表的当前值。Case "everything", "nuts" To "soup", TestItem Select Case 语句也可以是嵌套的。

但每个嵌套的 Select Case 语句必须要有相应的 End Select 语句。Select Case 语句示例 本示例使用 Select Case 语句来判断变量的值。

示例中第二个 Case 子句包含了变量值,故只有此区块内的语句会被完成到。Dim Number Number = 8 ' 设置变量初值。

Select Case Number ' 判断 Number 的值。Case 1 To 5 ' Number 的值在 1 到 5 之间,包含1 和 5 。

Debug.Print "Between 1 and 5"' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。Case 6, 7, 8 ' Number 的值在 6 到 8 之间。

Debug.Print "Between 6 and 8" Case 9 到 10 ' Number 的值为 9 或 10。Debug.Print "Greater than 8" Case Else ' 其他数值。

Debug.Print "Not between 1 and 10" End Select。

5.VB CASE语句

呵呵,题外话,题目中的象限设置错了,y<0且x>0怎么会在第二象限?是在第四象限。改成Case语句是下面的代码:

Private Sub Command1_Click()

Dim x#, y#

x = Val(Text1.Text)

y = Val(Text2.Text)

Select Case True

Case x > 0 And y > 0

Print "点在第一象限"

Case x < 0 And y > 0

Print "点在第二象限"

Case x < 0 And y < 0

Print "点在第三象限"

Case x > 0 And y < 0

Print "点在第四象限"

Case Else

Print "点在坐标轴上"

End Select

End Sub

6.请问VB中 select case 的用法

这里不是不能用select case写,而是if和select case适用于不同的选择中。在这道题中,使用if显得条理很清楚,使用的语句也少。而使用select case显得太麻烦和不可理喻,请看:

rivate Sub Form_Click()

Dim year As Integer, b As String

year = Val(Text1.Text)

Dim x400 As Integer, x100 As Integer, x4 As Integer

x400 = year Mod 400

x100 = year Mod 100

x4 = year Mod 4

Select Case x400

Case 0

b = "闰年"

Case Else

Select Case x100

Case 0

b = "不是闰年"

Case Else

Select Case x4

Case 0

b = "闰年"

Case Else

b = "不是闰年"

End Select

End Select

End Select

Text2.Text = b

End Sub

简直是一材乱麻,做你这道题,我自己都快搞晕了,不过执行起来是完全正确的。已经运行过了。

7.vb程序case语句

Private Sub Text1_Change()Select Case Val(Text1.Text) Case 0 To 60 Label1.Caption = "不及格" Case 60 To 70 Label1.Caption = "及格" Case 70 To 80 Label1.Caption = "中" Case 80 To 90 Label1.Caption = "良" Case 90 To 100 Label1.Caption = "优秀" Case Else Label1.Caption = "输入错误"End SelectEnd Sub。

8.vb select case语句怎么用

根据你的用途,使用IF then

Private Sub Command1_Click()

If Len(Text1.Text) > 8 Then

Text1.Text = "": MsgBox "用户名过长,用户名最长为8位", , "提示"

ElseIf LCase(Text1.Text) Like "[!a-z]*" Then

MsgBox "用户名不为英文", , "提示"

ElseIf LCase(Text1.Text) Like "[a-z]*" Then

Unload Me

Form1.Show

End If

End Sub

9.vb里,select case 的用法

is就是“是”

因为前面已经说select case n了

所以这里就是对n的

本来是n>0,现在可以写"Is>0"了,这样会方便点

select的用法:

select case <;变量>

case <;条件1>

<;执行语句1>

case <;条件2>

<;执行语句2>

end select

case语句用法vb

转载请注明出处唯美语句网 » case语句用法vb

资讯

excel中if条件语句

阅读(6)

本文主要为您介绍excel中if条件语句,内容包括EXCEL里面的IF语句四种条件的怎么写,excel中if多条件语句怎么编写,EXCEL表格里如何做IF条件语句。IF(B8<0.5,0.3;IF(AND(B5>0.5,B8<1),0.4;IF(AND(B8>1,B8<2),0.5;IF(B8>2,

资讯

文言语句翻译

阅读(6)

本文主要为您介绍文言语句翻译,内容包括文言文句子翻译,文言句子翻译,文言语句,求翻译。1.三岁贯汝,莫我肯顾 白话文意思: 多年辛勤伺候你, 你却对我不照顾。 2.君亡之不恤,而群臣是忧。 译文:“我们的国君(晋惠公)不怜

资讯

sql附加数据库语句

阅读(5)

本文主要为您介绍sql附加数据库语句,内容包括如何用sql语句附加数据库,求SQL语句——数据库附加,sql语句中分离数据库和附加数据库的命令语句是。EXEC sp_attach_db @dbname = NAdventureWorks, @filename1 = NC:\Progra

资讯

坏男人的语句

阅读(5)

本文主要为您介绍坏男人的语句,内容包括描写坏男人的句子,关于坏男人的句子,形容坏男人的句子。男人对女人好,却常追求不到,反倒坏男人更有人爱。女人对男人好,往往会被忽略,反女人爱坏男人,男人爱坏女人,不是因为人太贱,而是因为人们总

资讯

经典语句简短

阅读(6)

本文主要为您介绍经典语句简短,内容包括优美句子100个短越好,简短的励志经典话语,简短的优美句子。知我者,谓我心忧,不知我者,谓我何求。(诗经王风黍离) 2、人而无仪,不死何为。 (诗经风相鼠) 3、言者无罪,闻者足戒。 (诗经大

资讯

exp导出语句

阅读(6)

本文主要为您介绍exp导出语句,内容包括如何用exp导出指定时间后生成的表,我想把数据库的通过exp语句导出,并压缩成zip格式存放高分求解答,exp命令导出数据库如何导入。scott用户,exp scott/tiger@地址:端口号/实例名 file=路径exp scott/tige

资讯

水清澈的语句

阅读(5)

本文主要为您介绍水清澈的语句,内容包括写水很清澈很美丽的句子,描写河水清澈的句子,描写水清澈的好句好段,。1清澈见底的河水,从五颜六色的河卵石与水草上流过。2清澈平静的河水,映出了星星和月亮。3在天气晴朗的时候,小河是文静的。河面上会

资讯

欣赏人的语句

阅读(5)

本文主要为您介绍欣赏人的语句,内容包括要欣赏别人的优美句子,要欣赏别人的优美句子,形容欣赏的句子。懂得欣赏是一种美德.懂得欣赏他人,就是知道尊重和关爱他人、知道看到他人的长处。 欣赏别人是一种美德、一种文化,更是一种能力、一种难得

资讯

赞美葡萄语句

阅读(6)

本文主要为您介绍赞美葡萄语句,内容包括赞美葡萄的句子,赞美秋天葡萄的句子,描写葡萄的句子。解闷十二首11 杜甫 翠瓜碧李沈玉甃,赤梨葡萄寒露成。可怜先不异枝蔓,此物娟娟长远生。奉和春日幸望春宫应制 沈佺期 葡萄百丈蔓初萦。襄阳

资讯

高考语句排序题

阅读(6)

本文主要为您介绍高考语句排序题,内容包括高考语文句子排序一题,给句子排列顺序的练习题,谁有帮帮忙要20道,高考题目怎样做句子排序题和句子衔接题。()水手们把船上的泥沙铲到黄河里去。()泥沙铲光了,铁牛也离开了河底。()船里的泥沙渐渐的少了。

资讯

vbifgoto语句

阅读(5)

本文主要为您介绍vbifgoto语句,内容包括VBIF语句搭配GoTo语句endif应该写在IF语句后还是转跳到的语句,VB问题:ifgoto什么意思,关于VB中的goto语句。行号和行标签(应该就是你说的标号)其实是一样的。都是需要事先定义的。Sub a()If Date Mod 2

资讯

for语句是什么结构

阅读(5)

本文主要为您介绍for语句是什么结构,内容包括请写出for语句的基本结构并简述执行过程,pascal语言中的FOR循环语句的结构是什么,vc6for和if语句分别是什么结构。for语句的基本2113结构:for(表达5261式1;表达式2;表达4102式4){表达式3;}执行过1653

资讯

float与零值比较if语句

阅读(5)

本文主要为您介绍float与零值比较if语句,内容包括c语言程序中,floatx与“零值”比较的if语句是(if==0),写出floatx与"零值"比较的if语句,float,bool,char*p与零值比较的if语句。BOOL 的 if (!var) 和 if (var)float的 if ( (var >= - EPS) &a

资讯

语句汉译英

阅读(5)

本文主要为您介绍语句汉译英,内容包括求100句汉译英句子,句子翻译(中译英),句子翻译15个中译英。1. Ill get right on it .我现在就去办。 Im busy with writing the year-end re

资讯

excel中if条件语句

阅读(6)

本文主要为您介绍excel中if条件语句,内容包括EXCEL里面的IF语句四种条件的怎么写,excel中if多条件语句怎么编写,EXCEL表格里如何做IF条件语句。IF(B8<0.5,0.3;IF(AND(B5>0.5,B8<1),0.4;IF(AND(B8>1,B8<2),0.5;IF(B8>2,

资讯

文言语句翻译

阅读(6)

本文主要为您介绍文言语句翻译,内容包括文言文句子翻译,文言句子翻译,文言语句,求翻译。1.三岁贯汝,莫我肯顾 白话文意思: 多年辛勤伺候你, 你却对我不照顾。 2.君亡之不恤,而群臣是忧。 译文:“我们的国君(晋惠公)不怜

资讯

sql附加数据库语句

阅读(5)

本文主要为您介绍sql附加数据库语句,内容包括如何用sql语句附加数据库,求SQL语句——数据库附加,sql语句中分离数据库和附加数据库的命令语句是。EXEC sp_attach_db @dbname = NAdventureWorks, @filename1 = NC:\Progra

资讯

坏男人的语句

阅读(5)

本文主要为您介绍坏男人的语句,内容包括描写坏男人的句子,关于坏男人的句子,形容坏男人的句子。男人对女人好,却常追求不到,反倒坏男人更有人爱。女人对男人好,往往会被忽略,反女人爱坏男人,男人爱坏女人,不是因为人太贱,而是因为人们总

资讯

经典语句简短

阅读(6)

本文主要为您介绍经典语句简短,内容包括优美句子100个短越好,简短的励志经典话语,简短的优美句子。知我者,谓我心忧,不知我者,谓我何求。(诗经王风黍离) 2、人而无仪,不死何为。 (诗经风相鼠) 3、言者无罪,闻者足戒。 (诗经大

资讯

exp导出语句

阅读(6)

本文主要为您介绍exp导出语句,内容包括如何用exp导出指定时间后生成的表,我想把数据库的通过exp语句导出,并压缩成zip格式存放高分求解答,exp命令导出数据库如何导入。scott用户,exp scott/tiger@地址:端口号/实例名 file=路径exp scott/tige

资讯

水清澈的语句

阅读(5)

本文主要为您介绍水清澈的语句,内容包括写水很清澈很美丽的句子,描写河水清澈的句子,描写水清澈的好句好段,。1清澈见底的河水,从五颜六色的河卵石与水草上流过。2清澈平静的河水,映出了星星和月亮。3在天气晴朗的时候,小河是文静的。河面上会

资讯

delphi7if语句

阅读(6)

本文主要为您介绍delphi7if语句,内容包括delphi7怎么用ifelse语句,delphi7中IF语句的使用,delphi7中IF语句的使用。最笨的方法是:if (StrToInt(edt1.Text)=20) or (StrToInt(edt1.Text)=22) or (S