精华内容
下载资源
问答
  • 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 语句

    2021-07-27 08:21:40
    select casecase 90to 80类似的界一比界二大的吗
  • VB Select Case

    千次阅读 2017-11-20 15:01:50
    Sub gantest()  rr = 10  ir = 2  MsgBox ("OK") ... i = Sheets("Sheet1").Cells(rr, 2)... Select Case Sheets("Sheet1").Cells(rr, 2).Value Case Is 'Print i MsgBox ("こちらは設置1のデータ") Case
    Sub gantest()
    


       rr = 10
        ir = 2
     MsgBox ("OK")
     i = Sheets("Sheet1").Cells(rr, 2).Value
      Select Case Sheets("Sheet1").Cells(rr, 2).Value
    Case Is < 50
    'Print i
    MsgBox ("こちらは設置1のデータ")
    Case 50 To 60
    'Print i ^ 2
    MsgBox (i ^ 2)
    'MsgBox (i)
    MsgBox ("test2です")
    Case Is > 60
    'Print "wrong!"
    MsgBox ("wrong!")




    End Select
    End Sub
    展开全文
  • 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

    展开全文
  • VB使用select case选择法实现课程表查询,原以为这是一个数据库程序,后来发现是把查询的内容写入case语句,主要练习Vb中select case语句的用法,下载后,直接在VB6.0下编译即可看到效果。
  • 运行效果 代码 Dim i As Integer Dim str As String Private Sub Command1_Click() '接收 str = Text1.Text ... 'i = InputBox("男生输入1,女生输入2") '弹出一个(自动生成的)输入框 ... Select ...
  • 主讲老师:郭盛华经常地,当我们编写代码时,我们需要根据不同的判断执行不同操作。我们可以使用条件语句完成这个工作。i=5 '定义I等于5if i<10 then '如果I小于10的话 msgbox "I小于10" '结果显示else'否则 ...
  • 三角函数演示,VB6.0源代码,Select Case i Case 1 For x = 0 To 6.282 Step 0.001 y = Sin(2 * Pi * w * x) + Fi Picture1.PSet (x, y) Next x Case 2 For x = 0 To 6.282 Step 0.001 y = Cos(2 * Pi * w * x...
  • 运行效果: 程序代码: Private Sub Command1_Click()  If IsNumeric(Text1.Text) ... Select Case CInt(Text1.Text)    Case Is &gt;= 85      Label2.Caption = "成绩:" &am...
  • selectCase的应用实例,学生成绩分数判断VB6.0源代码.
  • 可视化编程VB Select Case语句 案例.pdf
  • 一、运行效果 ...SelectCase多分支选择结构语句看着有点头晕,主要是字太多,可以适当精简。 四、程序附件   源程序下载地址:http://pan.baidu.com/s/1slTd7Xj 密码:58id
  • 正常的Select 语句如下: Dim status As Integer = 5 Select Case status Case 0 Console.WriteLine("状态是:0") Case 1 Console.WriteLine("状...
  • 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 基本语句用法

    千次阅读 2010-11-04 16:49:10
    vb select case 基本语句用法 今天我们学习 select case 这个语句的用法 也给出了个 例子来 用下 这个 基本语句的 方法 看 以下的 解释 以下是引用片段: Option Expli...
  • 运行效果: 程序代码: Private Sub Command1_Click() If IsNumeric(Text1.Text) Then ... Select Case CInt(Text1.Text) Case Is >= 85 Label2.Caption = "成绩:" & "优秀" ...
  • 跟我学vb--第10课时-select-case语句.doc
  • If 语句 VS Select Case 语句

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

    千次阅读 2009-11-26 16:31:00
     OleDb_quest_taobao_buybl.SelectCommand.CommandText = "select * from buy_bl where [blno] like '%" + key + "%' " ‘作用是提取blno包含key变量字符串的项  OleDb_quest_taobao_buybl.Fill(DataSet_quest_...
  • select case用法课程表查询系统,VB6.0源代码
  • VB2010(10)_SelectCase

    2020-01-17 19:44:11
     Select Case strName.ToLower  Case "bryan"  strFavoriteColor = "Madras Yellow"  Case "jenifer"  strFavoriteColor = "Sea Blue"  Case "eddie", "katelyn"  strFavoriteColor = "Passionate ...
  • Sub calculateTheGrade() Dim point As Integer point = CInt(InputBox("请输入你的... Select Case point Case 100 MsgBox "还算凑合", vbOKOnly, "Calculate the Grade" Case 90 To 99 MsgBox "啥也不是,就
  • SELECT CASE WHEN 的用法

    2011-12-20 22:57:19
    selectcase结合使用最大的好处有两点,一是在显示查询结果时可以灵活的组织格式,二是有效避免了多次对同一个表或几个表的访问。下面举个简单的例子来说明。例如表 students(id, name ,birthday, sex, grade),...
  • vb net 与 c 的switch case 的一个重要区别
  • VBA-Select Case语句教程

    千次阅读 2012-04-24 10:00:32
    Select Case语句教程 [日期:2008-03-01] 来源: 作者:admin [字体:大 小] 为了避免难以弄清的复杂的嵌套的If语句,你可以使用Select Case语句代替。它的语法为: Select Case 测试表达式 Case ...
  • 比如如下语句 select case i case 0 代码段a case 1 代码段b 代码段a 怎么才能在case 1的代码部分写完代码段b后,直接调用case 0的代码?而不用重复再把代码段a写一遍?
  • 小写金额转换为大写金额程序,select case的应用,小写金额转换为大写金额,当输入数字时就会对应产生大写金额。(VB6.0源代码编写)

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 11,223
精华内容 4,489
关键字:

casevb中的select