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

    展开全文
  • VB.NET的程序流控制

    2017-12-03 11:15:47
    if语句If 表达式 Then ...IIF(表达式1,表达式2,表达式3)dim a AS Integer = IIF(1>0,1,2) '/ 此时a=1 等同于java的三目运算符Select … Case 语句 Select…Case语句是分支选择语句,它通过表达式的 值与多个不同

    if语句

    If 表达式 Then
        '/语句
    ELSEIF Then
        '/语句
    ELSE
        '/语句
    END IF

    IIF函数
    IIF(表达式1,表达式2,表达式3)

    dim a AS Integer = IIF(1>0,1,2)  '/ 此时a=1 等同于java中的三目运算符

    Select … Case 语句
    Select…Case语句是分支选择语句,它通过表达式的 值与多个不同值进行比较选择相应的case语句来处理多个选择。表达式必须计算为某个基本数据类型。Select…Case语句的一般格式为:

    Select Case 表达式
        Case 表达式列表1
            语句
        Case 表达式列表n
            语句n
        Case Else
            语句n
    End Select
    

    等同于java中的switch语句

    复合赋值运算符
    x op =y
    op代表二元修饰符(+、-、*、/,MOD)
    例如:x+=y 等同于 x=x+y
    条件逻辑运算符和逻辑运算符

    • AND(逻辑AND,逻辑与)、AndAlso(条件AND,条件与)
    • Or(逻辑OR,逻辑或)、OrElse(条件OR,条件或)
    • Not(逻辑NOT,逻辑非) Xor(逻辑XOR,逻辑异或)

      a=true –> Not a =false

      (a=true,b=false)–> a Xor b=true
      (a=false,b=true)–> a Xor b=true
      如果a、b都为true或false,则a Xor b =false

    短路计算:
    x AndAlso y 运算相对于x And y运算不同的是,如果x 为false 则不计算 y
    x OrElse y 运算相对于x Or y 运算,如果x为 true ,则不计算y的值

    循环语句

    while 语句:

    While(布尔表达式)
        嵌入语句
    End While
    

    Do/Loop While语句

        Do
            嵌入语句
        Loop While(布尔表达式)
    

    执行方式如下:
    先执行嵌入语句。然后计算布尔表达式的值,如果为true,则继续执行嵌入语句。否则结束执行

    For…Next语句
    For…Next语句根据某个条件重复执行某个嵌套语句。

    For counter=start To end Step step
        嵌入语句
    Next counter
    

    变量counter通常为integer或任何基本的数值数据类型
    迭代值start、end、step是必须计算为数据类型的表达式,通常计算为Integer类型的表达式
    可选项step可正可负,如果省略,则采用1

    跳转语句

    goto语句
    goto语句可将程序控制直接传递给标记语句。
    语法为:goto 标识符

    如 :

    if(a>b) Then
        goto found
    end if
    
    found:
        Console.WriteLine("1")
    

    Exit语句
    Exit语句退出最近的封闭语句

    • Exit Select
    • Exit Do
    • Exit While
    • Exit For

    如果要在多个嵌套层之间转移控制,必须使用goto语句

    展开全文
  • 这是等号部分。。其中 m3,m4的初值都设置为0 ,现在问题是 比如1+2,连续两次等于,结果是3,4,5,6而不是3,5,7....Else Text1.Text = m1 / m2 m4 = m1 / Val(Text1.Text) End If End Select End Sub ```
  • vb.net的碎片发生器

    2006-02-23 09:05:59
    Next PictureBox1.Invalidate() Application.DoEvents() If breaknow Then breaknow = False Exit Sub End If Next End Sub Private Function PaintPixel(ByVal clr As Integer) As Color Select Case clr Case 0 To...
  • ElseIf (Label1.Top >= Me.Height - Label1.Height And Label1.Left >= Me.Width - Label1.Width) Then flag = 2 End If Select Case flag Case 0 x = 100 * m y = 0 Case 1 x = -100 * m y = 100 Case 2...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    随着21世纪信息社会的到来,计算机在人们的工作和生活的深入,要求我们越来越多地与计算机打交道,为了使用户在繁忙的日程工作得到放松,于是出现了各种各样的休闲软件,如聊天工具,游戏等等。于是我们小组着手设计...
  • VB常见错误和难点分析

    千次阅读 2018-09-10 19:41:42
    同样对Select Case语句也应有与其相对应的End Select语句。 2.多边选择ElseIf关键字的书写和条件表达式的表示 多边选择ElseIf子句的关键字ElseIf之间不能写有空格,即不能写成Else If。 在多个条件表...

    1.在选择结构中缺少配对的结束语句

    对多行式的If块语句中,应有配对的End If语句结束。否则,在运行时系统会显示”块 If没有End If”的编译错误。同样对Select Case语句也应有与其相对应的End Select语句。

    2.多边选择ElseIf关键字的书写和条件表达式的表示

    多边选择ElseIf子句的关键字ElseIf之间不能写有空格,即不能写成Else If。

    在多个条件表达式的表示时,应从最小或最大的条件依次表示,以避免条件的过滤。例如,已知输入某课程的百分制成绩mark,要求显示对应五级制的讦定,评定条件如下:

    有以下几种表示方式,语法上都没有错,但执行后结果有所不同,请分析哪些正确? 哪些错误?

    下面给出的答案中,方法一、二、五正确,其余错误,请分析各自的原因。
    这里写图片描述

    3.Select Case语句的使用

    (1) “表达式列表i” 中不能使用”变量或表达式”中出现的变量。

    例如,上述多边选择的例子改为Select Case语句实现,方法一Case子句中出现变量mark,运行时不管mark的值多少,始终执行Case Else子句,运行结果不正确;方法二、方法三正确。

    这里写图片描述
    (2) 在”变量或表达式”中不能出现多个变量。

    实验三第5题对三门课程奖学金的判断,只能用If语句的多边选择,而不能用SelectCase语句实现。例如,有人用如下语句表示:

       Select Case markl,mark2,mark3
    
              Case (markl+mark2+mark3)/3>=95
    
                     Print"一等奖"
    
       End Select
    

    这样就会在 “Select Case markl,mark2,mark3” 语句行出现编辑错误, 同时

    Case (markl+mark2 +mark3)/3>=95书写也错误。

    第四章 常见错误和难点分析

    1. 不循环或死循环的问题主要是循环条件、循环初值、循环终值、循环步长的设置有问题。

    例如,以下循环语句不执行循环体:

    For i=10 To 20 Step-1 ’ 步长为负,初值必须大于等于终值,才能循环

    For i=20 To10 ’ 步长为正,初值必须小于等于终值,才能循环

    Do While False ’ 循环条件永远不满足,不循环

    例如,以下循环语句死循环:

    For i=10 To 20 Step 0 ’ 步长为零,死循环

    Do While 1 ’ 循环条件永远满足,死循环

    2.循环结构中缺少配对的结束语句

    For…Next语句没有配对的Next语句;Do语句没有一个终结的Loop语句等。

    3.循环嵌套时,内外循环交叉

       For I=1 to 4
    
              For j=1 to 5
    
              …
    
              Next i
    
       Next j
    

    上述循环的交叉运行时显示”无效的Next控制变量引用”。

    4.累加、连乘时,存放累加、连乘结果的变量赋初值问题

    (1) 一重循环

    在一重循环中,存放累加、连乘结果的变量初值设置应在循环语句前。

    例如,求1~100的3的倍数和,结果放入Sum变量中,如下程序段,输出结果如何?应作如何改进?

       Private SubForm_Click()
    
              For i=3 To 100 Step 3
    
                     Sum=0
    
                     Sum=Sum+i
    
              Next i
    
              Print Sum
    
       End Sub
    

    (2) 多重循环

    在多重循环中,存放累加、连乘结果的变量初值设置放在外循环语句前,还是内循环语句前,这要视具体问题分别对待。

    例如,期末30位学生参加三门课程的考试,求每个学生的三门课程的平均成绩如下程序能否实现?

       aver=0
    
       For i=1 To 30
    
              For j=1 To 3
    
                     m=InputBox("输入第"&j&"门课的成绩")
    
                     aver=aver+m
    
              Next j
    
              aver=aver/3
    
              Print aver
    
       Next I
    

    第五章 常见错误和难点分析

    1.Dim数组声明

    有时用户为了程序的通用性,声明数组的上界用变量来表示,如下程序段:

     n=InputBox("输入数组的上界")
    
     Dim a(1 To n) As Integer
    

    程序运行时将在Dim语句处显示”要求常数表达式”的出错信息。即Dim语句中声明的数组上,下界必须是常数,不能是变量。

    解决程序通用的问题,一是将数组声明的很大,这样浪费一些存储空间;二是利用动态数组,将上例改变如下:

    Dim a() As Integer
    
     n=InputBox ("输入数组的上界")
    
     ReDim a(1 To n)As Integer
    

    2.数组下标越界

    引用了不存在的数组元素,即下标比数组声明时的下标范围大或小即为越界。例如,要形成有如下30项的斐波那契数列:

    1,1,2,3,5,8,13,21,34,…,317811,514229,832040

    正确的程序段如下:

    Dim a(1 To 30) As Long, i%

    若将For i=3 To 30改为For i=1 To 30,程序运行时会显示”下标越界”的出错信息,因为开始循环时i=l,执行到循环体语句a(i)=a(i-2)+a(i-1),数组下标i-2、i-1均小于下界1。

    同样若将上例:a(i)+a(i-2)+a(i-1) 语句改为:a(i+2)=a(i)+a(i+1)

    程序运行时也会显示”下标越界”的出错信息,这时是数组下标大于上界30。

    3.数组维数错

    数组声明时的维数与引用数组元素时的维数不一致。例如,下程序段为形成和显示3×5的矩阵:

      Dim a(3,5) As Long
    
              For i=1 To 3
    
                     For j=1 To 5
    
                            a(i)=i*j
    
                            Print a(i);"";
    
                     Next j
    
              Print
    
       Next i
    

    程序运行到a(i)=i*j语句时出现”维数错误”的信息,因为在Dim声明时是二维数组,引用时的一个下标。

    4.Aarry函数使用问题

    Aarry函数可方便地对数组整体赋值,但此时只能声明Variant的变量或仅由括号括起的动态数组。赋值后的数组大小由赋值的个数决定。

    例如,要将1,2,3,4,5,6,7这些值赋值给数组a,下表列出了三种错误及相应正确的赋值方法。

    Aarry函数表示方法
    这里写图片描述
    Dim aa=Array(1,2,3,4,5,6,7)

    5.如何获得数组的上界、下界

    Aarry函数可方便地对数组整体赋值,但在程序中如何获得数组的-上界、下界,以保证访问的数组元素在合法的范围内,可使用UBound和LBound函数来决定数组访问。

    在上例中,若要打印a数组的各个值,可通过下面程序段实现:

    For i=Lbound(A) To Ubound(A)

          Print a(i)
    

    Next l

    6.给数组赋值

    VB6.0提供了可对数组整体赋值的新功能,方便了数组对数组的赋值操作。但真正使用不那么方便,有不少限制。数组赋值形式如下:数组名2=数组名1

    这里的数组名2,实际上在前面的数组声明时,只能声明为Varian的变量,赋值后的数组2的大小、维数、类型同数组名1;否则,若声明成动态或静态的数组,例如:

    Dim数组名2() 或Dim数组名2 (下标)

    程序在运行到上述赋值语句时显示”不能给数组赋值”的出错信息。

    第五章 数 组

    5.1 知识要点

    1.数组的概念

    数组:存放具有相同性质的一组数据,也就是数组中的数据必须是同一个类型和性质。

    数组元素:数组中的某一个数据项。数组元素的使用同简单变量的使用。

    2.静态数组的声明

    静态数组:在声明时已确定了数组元素个数。

    声明形式:Dim数组名([下界To]上界[,[下界To]上界[,…]])As 类型

    此语句声明了数组名、数组维数、数组大小、数组类型。

    [注意] 下界、上界必须为常数,不能为表达式或变量:省略下界,默认为0,也可用Option Base语句重新设置下界的值。

    3.动态数组的声明

    声明形式: Dim数组名 ()

            ReDim  [Preserve]数组名([下界To]上界[,[下界To]上界[,…]])
    

    [注意]

    此时的上界、下界可以是赋了值的变量或表达式。若有Preserve关键字,表示当改变原有数组最末尾的大小时,使用此关键字可以保持数组中原来的数据。

    4.控件数组

    即相同类型的控件组成的数组。

    控件数组的建立:在设计时的窗体上,通过对某控件的复制和粘贴操作:在程序运行时通过Load方法实现。

    控件数组元素:由控件的Index属性值表示数组的F标。

    5.数组的操作

    应掌握的基本操作有:数组初始化、数组输入、数组输出、求数组中的最大(最小)元素及下标、求和、平均值、排序和查找等。

    5.2 常见错误和难点分析

    1.Dim数组声明

    有时用户为了程序的通用性,声明数组的上界用变量来表示,如下程序段:

     n=InputBox("输入数组的上界")
    
     Dim a(1 To n) As Integer
    

    程序运行时将在Dim语句处显示”要求常数表达式”的出错信息。即Dim语句中声明的数组上,下界必须是常数,不能是变量。

    解决程序通用的问题,一是将数组声明的很大,这样浪费一些存储空间;二是利用动态数组,将上例改变如下:

    Dim a() As Integer
    
     n=InputBox ("输入数组的上界")
    
     ReDim a(1 To n)As Integer
    

    2.数组下标越界

    引用了不存在的数组元素,即下标比数组声明时的下标范围大或小即为越界。例如,要形成有如下30项的斐波那契数列:

    1,1,2,3,5,8,13,21,34,…,317811,514229,832040

    正确的程序段如下:

    Dim a(1 To 30) As Long, i%

    若将For i=3 To 30改为For i=1 To 30,程序运行时会显示”下标越界”的出错信息,因为开始循环时i=l,执行到循环体语句a(i)=a(i-2)+a(i-1),数组下标i-2、i-1均小于下界1。

    同样若将上例:a(i)+a(i-2)+a(i-1) 语句改为:a(i+2)=a(i)+a(i+1)

    程序运行时也会显示”下标越界”的出错信息,这时是数组下标大于上界30。

    3.数组维数错

    数组声明时的维数与引用数组元素时的维数不一致。例如,下程序段为形成和显示3×5的矩阵:

      Dim a(3,5) As Long
    
              For i=1 To 3
    
                     For j=1 To 5
    
                            a(i)=i*j
    
                            Print a(i);"";
    
                     Next j
    
              Print
    
       Next i
    

    程序运行到a(i)=i*j语句时出现”维数错误”的信息,因为在Dim声明时是二维数组,引用时的一个下标。

    4.Aarry函数使用问题

    Aarry函数可方便地对数组整体赋值,但此时只能声明Variant的变量或仅由括号括起的动态数组。赋值后的数组大小由赋值的个数决定。

    例如,要将1,2,3,4,5,6,7这些值赋值给数组a,下表列出了三种错误及相应正确的赋值方法。

    Aarry函数表示方法

    这里写图片描述

    5.如何获得数组的上界、下界

    Aarry函数可方便地对数组整体赋值,但在程序中如何获得数组的-上界、下界,以保证访问的数组元素在合法的范围内,可使用UBound和LBound函数来决定数组访问。

    在上例中,若要打印a数组的各个值,可通过下面程序段实现:

    For i=Lbound(A) To Ubound(A)

          Print a(i)
    

    Next l

    6.给数组赋值

    VB6.0提供了可对数组整体赋值的新功能,方便了数组对数组的赋值操作。但真正使用不那么方便,有不少限制。数组赋值形式如下:数组名2=数组名1

    这里的数组名2,实际上在前面的数组声明时,只能声明为Varian的变量,赋值后的数组2的大小、维数、类型同数组名1;否则,若声明成动态或静态的数组,例如:

    Dim数组名2() 或Dim数组名2 (下标)

    程序在运行到上述赋值语句时显示”不能给数组赋值”的出错信息。

    申明
    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!
    博文欢迎转载,但请给出原文连接。
    转自:http://wwww.hyit.edu.cn/edu/vb/study/index.htm

    展开全文
  • vb贪食蛇源代码

    2012-04-21 16:52:54
    vb小游戏定义蛇的运动速度枚举值 Private Enum tpsSpeed QUICKLY = 0 SLOWLY = 1 End Enum '定义蛇的运动方向枚举值 Private Enum tpsDirection D_UP = 38 D_DOWN = 40 D_LEFT = 37 D_RIGHT = 39 End Enum '...
  • ---- 在VB6.0除了原来的Clear、Remove 方法外(很奇怪,为什么微软在VB5.0 只提供这两种方法,而没有提供Add方法,因为没有Add,这两种方法也就没什么用处), 增加了Add方法,该方法就是用于动态加载控件的: ...
  • vb Script参考文档

    2009-07-28 22:13:02
    Select Case 语句 根据表达式的值,在若干组语句选择一组执行。 Set 语句 将对象引用赋予变量或属性。 Sgn 函数 返回表示数的符号的整数。 Sin 函数 返回角度的正弦值。 Source 属性 返回最早出错的对象或应用...
  • vb学生成绩管理系统

    2013-06-28 08:55:24
    或者称为VB程序的逻辑数据库,通过它可以非常方便地访问其中的数据。换句话说,ADOcn是VB程序的后台数据库交互的通道。 2.设置窗体间的调用关系 2.设置窗体间的调用关系 ’调用增加课程窗体 Private ...
  • VB自动关机源码.rar

    2009-10-23 11:58:28
    Case Else tempStr &= ComboBox2.SelectedItem End Select ListBox1.Items.Add(tempStr) End Sub '点击清除按钮 Private Sub clearButton_Click(ByVal sender As System.Object, ByVal e As System....
  • vb 与单片机串口通信程序

    热门讨论 2010-08-11 18:53:47
    //---------------------------------------SComm控件的常用属性和方法----------------------------- Commport;设置或返回串口号。 SettingS:以字符串的形式设置或返回串口通信... Case Else End select End Sub
  • VB串口编程--测量程序

    2017-03-27 02:06:19
    程序功能,按下键盘 空格键,测量一次数据,返回10进制实际数据值,显示在text1,第二次按下空格键,测量值显示在text2,依次类推......每4次一个循环。 ![图片说明]...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    4.3.5 Select Case中的不同数据类型 96 4.4 循环 96 4.4.1 For…Next 循环 96 4.4.2 For Each…Next循环 100 4.4.3 Do…Loop循环 101 4.4.4 嵌套循环 107 4.4.5 提前退出循环 108 4.4.6 死循环 110 4.5 小结 111 4.6...
  • 4.3.5 Select Case中的不同数据类型 96 4.4 循环 96 4.4.1 For…Next 循环 96 4.4.2 For Each…Next循环 100 4.4.3 Do…Loop循环 101 4.4.4 嵌套循环 107 4.4.5 提前退出循环 108 4.4.6 死循环 110 4.5 小结 111 4.6...
  • 4.3.5 Select Case中的不同数据类型 96 4.4 循环 96 4.4.1 For…Next 循环 96 4.4.2 For Each…Next循环 100 4.4.3 Do…Loop循环 101 4.4.4 嵌套循环 107 4.4.5 提前退出循环 108 4.4.6 死循环 110 4.5 小结 111 4.6...
  • 思路是这样的:在线程使用threading.timer,1ms执行一次,使GLO_TICK++。Calculate_Interval 用来计算间隔时间。 实际上TimerTask不是1ms执行一次,这是为什么? ``` Module Module1 Class StateObjClass ' ...
  • Dim _Table As DataTable = Nothing '表示内存一个数据表 oraDApter = New OracleDataAdapter(_sql, oraCon) oraDSet = New DataSet() oraDApter.Fill(oraDSet, "[HLAWVCKC]") _Table = oraDSet.Tables(0) ...
  • .NET 4的模式匹配

    2009-05-30 22:31:00
    case语句可以看作是if/else语法的特别版。他们的功能和作用是一样的,但有时case语句会令代码看起来更加清爽。考虑下面的C#和VB示例。\double CaclRateByDate(DayOfWeek day)\ {\ if (day == DayOfWeek.Monday)\ {\ ...
  • 数据库之SQL(Transact-SQL分支结构)

    千次阅读 2018-07-29 20:22:07
    大家还记得VB中的分支结构是什么吗? ①单行结构条件语句 if....then...(else...) ②块结构条件语句 if...... elseif..... else..... end if ③多分支选择语句 select case &lt;测试表达式&gt; ...
  • The forum should be accessible from different domains which are locale based, and in each case the logo must be different. <p>As I figured it out, the vBulletin system holds all it's templates in ...
  • ftp下载文件过程,对v3格式文件进行转换,转成wav格式,并返回给页面,下载和播放。 怎么实现。网上的本地转换代码确实可用,但是我对字节流、转码这一块不太懂,不知道有 没有大神来看看,怎么写? 下面是本地v3...
  • else { return $arr; //echo "<font color=red>**</font> Username & Password is wrong"; } } $HTTP_RAW_POST_DATA = isset($HTTP_RAW_POST_DATA) ? $HTTP_RAW_POST_DATA : ''; $server->...
  • 要想使用QTP进行自动化测试,必须了解VBScript这门语言,对于使用过ASP或VB开发的人来说,VBScript已经再熟悉不过了,但是没有接触过VBScript的同学也不要灰心,因为这门...If…Then…Else语句Select Case语句 7.1. If
  • 表驱动法(Table-Driven Approach)

    千次阅读 2008-10-09 16:20:00
    一个简单的小例子: 《CodeComplete》定义:从表里面查找信息而不...比如计算每个月中的天数的js(修改自《CodeComplete》VB代码):switch(month){case 1,3,5,7,8,10,12:day=31;break;case 4,6,9,11:day=30;br

空空如也

空空如也

1 2 3
收藏数 57
精华内容 22
关键字:

elsevb中case