精华内容
下载资源
问答
  • 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,不是表述具体情况的值或者范围。

     

     

     

     

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

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

    万次阅读 2015-09-12 23:02:41
    注明:百度百科上Select Case语句的最新版本亦是我的作品。 语法 Select Case Case ...Case ...Case ...Case Else ...当省略Case Else语句并且语句组都因情形不符合实际时,语句的执行,会直接到达End Se

    注明:百度百科上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下的语句组。
    展开全文
  • Case Else: MsgBox ("你输入的是 " & str & " 输入错误!!") End Select Text1.Text = "" '返回时自动清空输入框 End Sub 实验二 使用局部静态变量制作计数器 【实验内容】 掌握使用局部静态变量的...

    实验一

    运行效果
    在这里插入图片描述
    在这里插入图片描述
    在这里插入图片描述

    代码
    在这里插入图片描述

    Dim i As Integer
    Dim str As String
    
    Private Sub Command1_Click()
    
        '接收
        str = Text1.Text
        i = Val(Text1.Text)
        
        'i = InputBox("男生输入1,女生输入2")    '弹出一个(自动生成的)输入框
    
        Select Case i
        Case 1:
        MsgBox ("男生")
        Case 2:
        MsgBox ("女生")
        Case Else:
        MsgBox ("你输入的是 " & str & " 输入错误!!")
        End Select
    
        Text1.Text = ""     '返回时自动清空输入框
        
    End Sub
    

    实验二 使用局部静态变量制作计数器

    【实验内容】

    1. 掌握使用局部静态变量的使用方法及if 语句、select case语句的使用方法
    2. 掌握MsgBox、InputBox的使用方法
      完成简单的记录次数程序并且正确地运行。
      根据输入的
      “1”、“2、“3”用Msgbox相应的输出“一”、“二”、“三”,
      如果是其他的输入,则输出“我只认识1至3”,
      只运行三次,之后弹出消息框——“我只能运行3次”

    在这里插入图片描述
    代码

    Private Sub Command1_Click()
    
        Static total As Integer
        Dim num As Integer
        Dim str As String
        
        '判断次数
        If total > 2 Then
         MsgBox ("我只能运行三次")
         Exit Sub                   '超过3次退出函数
        End If
        
        total = total + 1
        str = InputBox("请输入数字")
        i = Val(str)
        'i = InputBox("请输入数字")
        
        '判断输入的数字
        Select Case i
        Case 1:
            MsgBox ("一")
        Case 2:
            MsgBox ("二")
        Case 3:
            MsgBox ("三")
        Case Else:
            MsgBox ("我只认识1至3,你输入的是:" & str)
        End Select
        
        Label1.Caption = "你已经运行了 " & total & " 次"
    
    End Sub
    
    
    展开全文
  • 运行效果: 程序代码: Private Sub Command1_Click()  If IsNumeric(Text1.Text) ... Select Case CInt(Text1.Text)    Case Is &gt;= 85      Label2.Caption = "成绩:" &am...
  • VBA的分支结构,最常用的就是IF…Then…Else结构,这个结构在所有的编程语言的逻辑都是一致的,哪怕是Excel的函数都一致,唯一需要注意的区别,就是在各种语言的形式,其语法为 If condition Then [statements...
  • vb net 与 c 的switch case 的一个重要区别
  • 运行效果: 程序代码: Private Sub Command1_Click() If IsNumeric(Text1.Text) Then ... Select Case CInt(Text1.Text) Case Is >= 85 Label2.Caption = "成绩:" & "优秀" ...
  • Sub case的使用() '1、to的使用:相当于“大于等于,且小于等于”。左右边界都包含 score = 100 Select Case score Case 90 To 100 '等价于[90, 100] MsgBox "优秀" Case 60 To 89 MsgBox "及格" Case ...
  • Dim a As Double, b As Double, c As String Private Sub Command1_Click() Text1。... ") > 0 Then KeyAscii = 0: Exit Sub Else Exit Sub End If End If If KeyAscii >= 48 And KeyAscii 。 全部
  • 2006-04-18在VB中的按纽命令,如何写入格式化命令,是什么代码?用VB格式化硬盘:在新建工程添加表单一个;命令按钮一个为CmdFormatDisk;驱动器列表控件一个为Drive1然后添加如下代码:Option ExplicitPrivate ...
  • As Byte 'Resume on error in case someone inputs text with accents 'that should have been encoded as UTF-8 On Error Resume Next TopIndex = Len(sUTF8) ' Number of bytes equal TopIndex+1 If TopIndex = 0 ...
  • 说说VB中的语法规则

    2020-07-11 18:24:21
    VB程序的一行代码称为一条程序语句,简称为语句。 语句是构成程序的基本单位,是执行具体操作的指令,每条语句以ENTER键结束。 注释语句 在使用注释语句之前必须先了解注释的作用,注释不仅仅是对程序的解释,...
  • VB中MSHFlexGrid用法详解.pdfMSHFlexGrid 用法详解MSHFlexGridMMSSHHFFlleexxGGrriidd发布者: 编程网发布时间: 浏览总数51 2009-6-11 17:58:22添加MSHFlexGrid 将Name 改成flex1添加text 将name 改成txtedi...
  • 正常的Select 语句如下: Dim status As Integer = 5 Select Case status Case 0 Console.WriteLine("状态是:0") Case 1 Console.WriteLine("状...
  • "虎是百兽之王,寅虎相配,甲骨文“寅”字如箭矢状,《说文》“寅”意为“阳气上升,虽上有冻土,必破土而出”,与虎的凶猛刚阳之气契合。如果说商代铜器虎食人卣反映古人对虎的畏惧,那在战争的虎烙印,则代表对...
  • 关于C语言if,elseif和else的区别在哪里if是条件判断语句,只有if的条件成立(表达式的值为真)后,才会执行if部分的代码,否则将会执行else的代码。如果是if...else if,则满足第一个if执行第一个...
  • Load() shili(1) = "吴国" shili(2) = "魏国" shili(3) = "蜀国" shili(4) = "群雄" For i = 1 To 4 Combo1.AddItem shili(i) Next i End Sub VB提示说在对应所需名称或序数的集合,未找到项目。 Adodc1.Recordset...
  • VB中对EXCEL的各种操作

    万次阅读 多人点赞 2017-02-08 15:20:15
    VB操作excel方法汇总 Private Sub Command3_Click()    Dim i As Long  Dim j As Long  Dim objExl As Excel.Application '声明对象变量  Me.Mouse...
  • VB中函数表

    2021-07-28 09:09:08
    VB.NET函数表(2009-03-21 14:48:02)转载var$tag='it'; var $tag_code='0f51bb338ff0e9134e095b3b11d3ee5d'; var$r_quote_bligid='4d93071c0100ckub'; var $worldcup='0'; var$worldcupball='0'; 标签:itS...
  • [摘要:]在实际开发,许多人不喜欢使用TreeView,主要是由于默认的TreeView是“只读”的,不支持添加、删除、编辑、调整节点位置等操作。本文通过一个TVEdit工程说明如何解决这些问题。TreeView是最灵活的...
  • @(黑线)以前貌似看到if这里,就直接跳了,可是今天再读文档,又发现了点...单句可以不用花括号包裹这是摘录官方文档的话Note: 必须要注意的是 elseif 与 else if 只有在类似上例使用花括号的情况下才认为是完全相...
  • VB常用函数(很全)

    2020-12-20 14:31:12
    VB常用函数(很全)》由会员分享,可在线阅读,更多相关《VB常用函数(很全)(7页珍藏版)》请在人人文库网上搜索。1、VB常用函数Time返回系统时钟的当前时间。Date返回系统时钟的当前日期。Now返回代表当前日期和时间...
  • 0 If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then KeyAscii = KeyAscii Else KeyAscii = 0 End If Case 0 If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Then KeyAscii = KeyAscii Else Key...
  • Case IP_GENERAL_FAILURE: msg = "ip general failure" Case IP_PENDING: msg = "ip pending" Case PING_TIMEOUT: msg = "ping timeout" Case Else: msg = "unknown msg returned" End Select GetStatusCode = ...
  • 这里涉及到一开始接触VB有代码基础的人观看 涉及VB中的基本常用操作 首先是碰到的问题 VB程序在导入数据的过程出现数据丢失的情况 这里VB系统可以通过断点 F5 运行 F8逐步调试去试验代码流程 1、表格的选择 ...
  • 10 then '如果I小于10的话 msgbox "I小于10" '结果显示else'否则 msgbox "I大于10"'结果显示end If 以上实例告诉我们结果,I是小于10的,因为I本身就是5,大家可以练习一下这个条件语句具体...
  • ExcelVBA之Case语句

    千次阅读 2020-06-06 03:32:57
    关键字Is使你能够在Case子句里使用条件表达式。使用关键字Is的SelectCase语句的语法如下: Select Case myNumber Case Is <10 MsgBox "The number is less than 10" Case 11 MsgBox "You entered ...
  • ExcelVBA 之Select Case

    千次阅读 2020-06-06 02:47:52
    子句Case Else是可选的,当你希望可能有条件表达式返回假时使用它。在Select Case语句里,VB将每个表达式和测试表达式相比较。 Sub TestButtons() Dim question As String Dim bts As Integer Dim myTitle As...
  • VB 控件数组画图.rar

    2019-07-10 09:37:47
    VB 控件数组画图,每次输出新图形,前面的清除,可以画直线、矩形、圆。具体的代码操作,请看如下:  Private Sub Form_Load() ... Case Else '用户单击控件数组里第一个命令按钮  End  End Select  End Sub

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 14,826
精华内容 5,930
关键字:

elsevb中case