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

     

     

     

     

    展开全文
  • VB.NETTextBox的selectselectall的比较

    千次阅读 热门讨论 2016-08-10 11:26:31
    vb.net textbox select selectall

    楔子

        IDE:VS2013
        语言:VB.NET

    Select和SelectAll

    select

        功能:在选中文本框的同时,将光标移动到文本框内容的末尾

    selectall

        功能:只是选中文本框,且没有明显的提示。


    比较

        相对于SelectAll,Select多了一个Focus的功能。
    感谢您的宝贵时间,祝生活愉快,谢谢~~
                                                —joker
    展开全文
  • 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下的语句组。
    展开全文
  • 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

    展开全文
  • Text = Val(a) / Val(b) End Select If IsNumeric(Text1。 Text) Then Text1。Text = Text1。Text End If End Sub Private Sub Command4_Click() If Text1。 Text = "" Then Exit Sub a = Text1。Text Text1。Text =...
  • 运行效果: 程序代码: Private Sub Command1_Click()  If IsNumeric(Text1.Text) ... Select Case CInt(Text1.Text)    Case Is &gt;= 85      Label2.Caption = "成绩:" &am...
  • VB数据库程序设计经常要检索记录,常用的是把一条SELECT语句传送给Recordset对象的Open方法或Execute方法。下面就SELECT语句做一比较全面的阐述。 1.简单SELECT语句 “SELECT *” 的意思是:返回在所指定...
  • 昨天才解决了SELECT中的时间变量语法,今天又碰到了字符串变量的问题。在进行了N次尝试后得出了以下的可以得出正确结果的语法。同时也是一个双重SELECT的语法。 Dim d1, d2 As Date d1 = Date_quest_buy_buybl_...
  • 以下是引用片段:Option Explicit'*********...-----------条件值带有Is关键字'企业发放奖金要根据利润提成:'利润高于10万元时,奖金可提成10%'利润高于10万元,低于或等于20万元的部分,可提成7.5%'利润高...
  • VB使用select case选择法实现课程表查询,原以为这是一个数据库程序,后来发现是把查询的内容写入case语句,主要练习Vb中select case语句的用法,下载后,直接在VB6.0下编译即可看到效果。
  • selectCase的应用实例,学生成绩分数判断VB6.0源代码.
  • 很简单的:窗口放入四个COMMAND控件(Caption属性分别为+、-、X、÷),三个TEXT控件,再放入三个Label控件(Caption属性分别为:操作数1、操作数2和计算结果),窗口的Caption属性改为“四则运算”代码如下:Private ...
  • 关于vb中删除数据库记录的语句Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"rsd.Open Sql, conn, adOpenStatic, adLockOptimisticYN = MsgBox("确定删除", vbYesNo)If YN = 6 ...
  • vb中实现下拉列表多选!在组态软件适用
  • VB-Select语句实现动画

    2011-05-25 09:58:30
    VB-Select语句实现飞行动画,使用两个Timer控件,适于初学者学习多分支语句。
  • Dim Conn As OleDb.... Dim adp As New OleDb.OleDbDataAdapter("select count(*) from 事故案例统计 where 等级 = '一般事故' ", Conn) adp.Fill(dt) TextBox1.Text = dt.Rows.Count 为何返回值总是一
  • 运行效果 代码 Dim i As Integer Dim str As String Private Sub Command1_Click() '接收 str = Text1.Text ... 'i = InputBox("男生输入1,女生输入2") '弹出一个(自动生成的)输入框 ... Select ...
  • rs.Open "select * from YJCS where XLEFT, And XRIGHT>"&X,and YLEFT, And YRIGHT>"&Y ", cnn, adOpenKeyset, adLockOptimistic (上面第二个AND位置显示缺少表达式) rs.Fields("X1") = xnow + x2 - x1 rs.Fields...
  • 三角函数演示,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...
  • 我正在使用以下代码试图从两个表检索数据并使用该信息填充ComboBox。然后,当用户从ComboBox选择一个值时,我想用从ComboBox的值匹配的数据库检索到的数据填充表单上的所有控件(仍然没有...这是抛出的VB异常:...
  • 在本文我将介绍如何使用VB.NET连接到MySQL数据库并且执行SQL语句(SELECT,UPDATE,DELETE),同时我会展示如何将MySQL连接器导入(connectors)到Visual Studio 2012。 使用代码  你须要从...
  • select 语句的一般格式

    千次阅读 2018-06-01 18:31:13
    select 语句是sql的核心语句,语句成分丰富多样,总结如下: select语句的一般格式: select 【all/distinct】目标列表达式 别名,。。。。from 表名或视图名或者(select语句)as 表名(属性)where 条件表达式...
  • 用datagrid控件,下面是一篇控件使用方法,你可以看看使用 DataGrid 控件DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一... 本文来自-编程入门网: http://www.bianceng.cn/Programming/vb/200705/550.htm
  • VBCombox实现下拉

    2014-03-11 20:05:39
    可以实现vb的Combox自动下拉,用了别人的代码修改了一下。
  • VB中sql查询语句理解

    热门讨论 2019-01-19 20:04:16
    在我敲机房的时候发现有的人对VB中sql查询语句中大的双引号的理解存在误解。 首先是说明一下,其实我想也不用说明,我想大家都知道,在VB中字符串使用双引号引起来的,然而在sql字符串是用单引号引起来的。所以...
  • 经典之作,我是根据已有的程序...该实例我编写了一个类ClsSetAccess,主要包括两个函数:1.执行数据不返回任何值mdbExecuteNonQuery 2.执行数据返回单个值mdbExecuteNonQuery。如果你需要可以下载,里面注释得很清楚
  • VB6 DataGrid的数据导出到Excel

    热门讨论 2013-03-05 09:24:42
    把DataGridView导出到Excel文件的示例,己经经过调试,下载即可使用~
  • 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
  • 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_...

空空如也

空空如也

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

vb中select