精华内容
下载资源
问答
  • VB中如何使用select case语句

    千次阅读 2020-01-04 14:46:35
    近来,在网上找了一些关于VB选择语句的代码样例讲解,不过可惜关于Select case的讲解甚少(可能是查找方向有误),遂,作此,如有不足还望评论去添补 语法 Select Case <指示变量或表达式> Select Case...

    近来,在网上找了一些关于VB选择语句的代码样例讲解,不过可惜关于Select case的讲解甚少(可能是查找方向有误),遂,作此,如有不足还望评论去添补

    语法

    Select Case <指示变量或表达式>

    Select Case不是循环语句,是条件选择语句,与IF...ELSEIF...ELSEIF...END IF类似

    <默认语句组,以上语句组都因情形不符合实际时执行>End Select其中,表述情形的关键字,有IS和TO,多个情形要并列在一起时,使用逗号(英文)连接。当省略Case Else语句并且语句组都因情形不符合实际时,语句的执行,会直接到达End Select。如果在执行语句的时候,有需要跳过没有必要再执行的语句而直接结束Select Case的情况时,请使用exit select

    Option explicit
    dim digital,hours,minutes,seconds,dn,ctime
    
    digital = time
    hours    =  Hour(digital)
    minutes  =  Minute(digital)
    seconds  =  second(digital)
    
    Select Case True
    Case hours<6
    dn= "it is time to dream!"
    Case hours>=6
    dn= "get up and say good morning!"
    Case hours>12 & hours<14
    dn= "let's have a rest!"
    Case else
    	dn="I don't know what to do!"
    End Select
    msgbox dn
    

    注意在“<指示变量或表达式>”不是True或False关键字时,逻辑运算(And、Or、Not)会没有意义。因为逻辑运算的结果是True或False,不是表述具体情况的值或者范围。

     

     

     

     

    展开全文
  • VB6.0 Select Case语句

    万次阅读 2015-09-12 23:02:41
    注明:百度百科上Select Case语句的最新版本亦是我的作品。 语法 Select Case Case Case .... Case Case Else End Select 其中,表述情形的关键字,有IS和TO,多个情形要并列在一起时,使用...

    注明:百度百科上Select Case语句的最新版本亦是我的作品。

    语法

    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 Else
        MsgBox "不可以酱紫!只能从我给出的几种中挑选一个填入!"
    End Select
    End Sub
    <以上代码在VB6.0测试通过>
      使用关键字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
    <以上代码在VB6.0测试通过>
    此时,各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下的语句组。
    展开全文
  • 可视化编程VB Select Case语句 案例.pdf
  • 1.Select Case结构格式: Select Case e Case e1 A组语句 Case e2 B组语句 …… Case Else n组语句 End Select 2.说明 ?e为测试表达式,可以是算术表达式或字符表

    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.例题

    题目:根据学生的成绩,判断其等级:

    条件成绩≥9080≤成绩<9070≤成绩<8060≤成绩<70成绩<60
    等级优秀良好中等及格不及格
    程序界面:

     理解VB中选择语句Select Case结构的最好例子 - wuhua_csy - wuhua_csy的博客

    程序代码:

    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

    展开全文
  • If 语句 VS Select Case 语句

    千次阅读 2018-01-24 21:16:17
    在“研磨”百例的过程中,突然发现"If 语句" 和 "Select Case 语句"有异曲同工之妙,于是果断把实例2“蹂躏”一番。 实例:要求用Select Case 语句实现成绩等级优、良、中、差、不及格,90分以上是优、80-90是良、...

        在“研磨”百例的过程中,突然发现"If 语句" 和 "Select Case 语句"有异曲同工之妙,于是果断把实例2“蹂躏”一番。

    实例:要求用Select Case 语句实现成绩等级优、良、中、差、不及格,90分以上是优、80-90是良、70-79是中、60-69是差、60分以下是不及格。

    Select Case 语句

    Option Explicit
    
    Dim x
    
    Private Sub Form_Load()
    
     x = Val(InputBox("请输入0-100中的数值:", "成绩等级"))
    
     Select Case x
    
     Case 90 To 100
    
      lblscore.Caption = "优" & Chr(13) & "成绩不错,要保持!"
    
     Case 80 To 89
    
      lblscore.Caption = "良" & Chr(13) & "还可以,要继续努力,向优靠近呐!"
    
     Case 70 To 79
    
      lblscore.Caption = "中" & Chr(13) & "要努力了,不然就要不及格了!"
    
     Case 60 To 69
    
      lblscore.Caption = "差" & Chr(13) & "努力呀,不然就要不及格了!"
    
     Case 0 To 59
    
      lblscore.Caption = "不及格" & Chr(13) & "胜不骄,败不馁,只要你肯努力,下次一定会成功的!"
    
     End Select
    
    End Sub

    综上为电子教材的模板~

    以下是JunH的另一种解法:

    If 语句

    Option Explicit
    
    Dim x
    
    Private Sub Form_Click()
    
        x = InputBox("请输入数字")
    
         If x >= 90 And x <= 100 Then
    
        Print "优" & Chr(13) & "成绩不错,要保持啊!"
    
         ElseIf x >= 80 And x <= 89 Then
    
        Print "良" & Chr(13) & "还可以,要继续努力,向优靠近呐!"
    
         ElseIf x >= 70 And x <= 79 Then
    
        Print "中" & Chr(13) & "要努力了,不然就落后啦"
    
         ElseIf x >= 60 And x <= 69 Then
    
        Print "差" & Chr(13) & "努力呀,不然就要不及格了!"
    
         ElseIf x >= 0 And x <= 59 Then
    
        Print "不及格" & Chr(13) & "胜不骄,败不馁,只要你肯努力,下次一定会成功的!"
    
     End If
    
    End Sub

        需要注意的是If 语句中是窗体单击事件,而Select Case语句中是窗体加载事件,二者的区别就是在If语句中需单击后才可运行。

        其实代码写到这儿小程序基本上是可以运行的,但美中不足的是这个标签框中的文字并没有居中显示,我根据Select  Case语句的设置方法改了一下,但是没有用,后来就去找了度娘,毕竟我们要“站在巨人的肩膀上”。度娘告诉我在VB中print如果输出不指定的话,输出一直在屏幕左上角。

    解决方法如下:

    Private Sub Form_Load()
    
    ScaleMode = 3
    
    CurrentX = 100
    
    CurrentY = 100
    
    Print "X:100,Y:100"
    
    End Sub

        但此种方法还是没有达到我预想的结果,虽然位置改变,但仍处于左侧。我猜测应该是解决方法中的数字问题,后续有待考究,或者是有哪位大佬指点一二,谢谢思密达!

     

    展开全文
  • vbselect case 语句

    2021-07-27 08:21:40
    select casecase 90to 80类似的界一比界二大的吗
  • 我们可以使用条件语句完成这个工作。i=5 '定义I等于5if i<10 then '如果I小于10的话 msgbox "I小于10" '结果显示else'否则 msgbox "I大于10"'结果显示end If 以上实例告诉我们结果,I是小于10的,因为I本身...
  • 正常的Select 语句如下: Dim status As Integer = 5 Select Case status Case 0 Console.WriteLine("状态是:0") Case 1 Console.WriteLine("状...
  • 跟我学vb--第10课时-select-case语句.doc
  • vb select case 基本语句用法

    千次阅读 2010-11-04 16:49:10
    vb select case 基本语句用法 今天我们学习 select case 这个语句的用法 也给出了个 例子来 用下 这个 基本语句的 方法 看 以下的 解释 以下是引用片段: Option Expli...
  • 运行效果 代码 Dim i As Integer Dim str As String Private Sub Command1_Click() '接收 str = Text1.Text ... 'i = InputBox("男生输入1,女生输入2") '弹出一个(自动生成的)输入框 ... Select ...
  • 运行效果: 程序代码: Private Sub Command1_Click()  If IsNumeric(Text1.Text) ... Select Case CInt(Text1.Text)    Case Is &gt;= 85      Label2.Caption = "成绩:" &am...
  • VBA-Select Case语句教程

    千次阅读 2012-04-24 10:00:32
    Select Case语句教程 [日期:2008-03-01] 来源: 作者:admin [字体:大 中 小] 为了避免难以弄清的复杂的嵌套的If语句,你可以使用Select Case语句代替。它的语法为: Select Case 测试表达式 Case ...
  • 一、运行效果 ...SelectCase多分支选择结构语句看着有点头晕,主要是字太多,可以适当精简。 四、程序附件   源程序下载地址:http://pan.baidu.com/s/1slTd7Xj 密码:58id
  • selectCase的应用实例,学生成绩分数判断VB6.0源代码.
  • VB使用select case选择法实现课程表查询,原以为这是一个数据库程序,后来发现是把查询的内容写入case语句中,主要练习Vb中的select case语句的用法,下载后,直接在VB6.0下编译即可看到效果。
  • ACCESS支持标准SQL语句SELECT CASE 语句SELECT CASE Transact-SQL (t_sql),用于MS SQL SERVER ,它不是标准的sql语句。 在纯 ACCESS 环境可以将 select (case 小组名 WHEN '01' THEN 'FA' WHEN '...
  • 运行效果: 程序代码: Private Sub Command1_Click() If IsNumeric(Text1.Text) Then ... Select Case CInt(Text1.Text) Case Is >= 85 Label2.Caption = "成绩:" & "优秀" ...
  • ExcelVBA 之Select Case

    2020-06-06 02:47:52
    Select Case语句里,VB将每个表达式和测试表达式相比较。 Sub TestButtons() Dim question As String Dim bts As Integer Dim myTitle As String Dim myButton As Integer question = "Do .
  • vb select case

    2012-05-09 09:26:00
    Select Case &lt;变量名&gt; case &lt;变量值&gt; 进行的事件... case &lt;变量值&gt; 进行的事件... case &lt;变量值&gt; 进行的事件... case &lt;变量值&gt...
  • 同系列的第三篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9455721。连接数据库与SQL语句Select语句初步。这一章将介绍如何使用ADO对象连接数据库,以及使用SQL语句打开表。
  • select case用法课程表查询系统,VB6.0源代码
  • VBA-判断语句Select

    千次阅读 2018-11-08 16:01:46
    Select Cate 语句 根据表达式的值, 来决定执行几组语句中的其中之一。 Sub select单条件判断() i = 1 Select Case i Case Is &gt; 0 MsgBox "正数" Case Else MsgBox "负数" End ...
  • VB学习之路 ——基本语句

    万次阅读 多人点赞 2019-07-04 22:22:47
    1. 一个很简单的 If(表达式) ........Then的问题,在VB的程序编写时候 ,如果在if....Then后面只有一条需要执行的语句,并且将执行的一条语句直接放在了Then的后面,则不需要后面加上End If,加上就报错 。...
  • 比如如下语句 select case i case 0 代码段a case 1 代码段b 代码段a 怎么才能在case 1的代码部分写完代码段b后,直接调用case 0的代码?而不用重复再把代码段a写一遍?
  • 连接数据库与SQL语句Select语句初步 ”前文再续,书接上一回“我就不说了(额~不知不觉间说了,失误……)。数据库我们已经建好了,重提一下上一章的结果,我们最后建立了一张Student的表,其中有StudentID...
  • select 客户名称,客户基本信息.客户ID, 注册资金= case when 客户基本信息.注册资金>=800 then '5' when 客户基本信息.注册资金<800 and 客户基本信息.注册资金>=600 then '4' when 客户基本信息.注册...
  • select语句中的条件判断

    千次阅读 2016-01-24 21:20:54
     在数据库select查询语句中,我们可以使用判断语句,对查询的结果集数据进行转换处理。下面介绍各类判断语法的使用。  //语法一:CASE WHEN condition1 THEN result1 WHEN condition2 THEN result2 ELSE result.....
  • VB编程:IF语句判断成绩优良-8

    千次阅读 2016-11-16 09:47:08
    运行效果: 源代码: Private Sub Command1_Click()  Dim i As Integer  i = Val(Text1)  If i = 100 Then    MsgBox "满分"  ElseIf i &gt;= 85 Then    MsgBox "......
  • case when语句的使用

    2019-09-24 18:31:19
    用一条sql语句将下面scales表内的数据,查询为图二... select year 年,sum(case when month=1 then scale else 0 end) 一月, -> sum(case when month=2 then scale else 0 end) 二月, -> sum(case when mo...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,932
精华内容 1,972
关键字:

case语句vb的select