精华内容
下载资源
问答
  • vb 简单If条件语句

    万次阅读 2013-05-16 11:17:46
     使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执行的操作。最简单的“If...Then”分支...


    一、简单If条件语句 

     使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执行的操作。最简单的“If...Then”分支结构可以只写在一行:

     If Condition Then Statement[Else statement] 

         注意:“If...Then”分支结构用于给程序添加逻辑控制能力。这里,“Condition”是个条件表达式,“Statement”是条件有效的Visual Basic语句。例如: 

         If Score>=20 Then Label1.Text="You Win!"是个使用了下述条件表达式的分支结构:Score>=20  根据这个表达式的值,程序决定是否把Label1对象的“Text”属性设置为“You Win!”。如果“Score”变量的值大于等于20,Visual Basic设置该属性的值,否则,Visual Basic跳过这条赋值语句,然后执行事件过程中的下一行语句。这类比较运算的结果不是“True”就是“False”,条件表达式从来不会产生模棱两可的值。

    二、If...Then...Else语句 

    Visual Basic还支持另一种格式的“If...Then”分支结构,该结构中包含几个条件表达式,由多行语句组成,其中包含了重要关键字“ElseIf”、“Else”以及“End If”。 

    If Condition1 Then 
    
    	Statements 
    
    ElseIf Condition2 Then 
    
     	Statements  
    
    	[其他ElseIf子句及其相应的执行语句] 
    
    Else    
    
    	Statements  
    
    End If

    这个结构中,“Condition1”首先被计算。如果这个条件表达式的值为“True”,那么这个条件表达式下的语句被执行;如果第一个条件的值不是“True”,那么计算第二个表达式(Condition2)的值,如果第二个条件的值为“True”,那么这个条件表达式下的语句块被执行(如果要判断更多的条件,那么继续增加“ElseIf”子句及该子句下的语句块);如果所有条件表达式的值都不是“True”,那么执行“Else”子句下的语句块;最后,整个结构使用“End If”关键字结束。多行“If...Then”结构特别适合于分段计算问题,比如税费方面的计算。

    下面的代码展示了如何使用多行“If...Then”结构来确定递进税计算问题(收入和税率的对应关系取自美国国内收入服务1997年税率表):

    If AdjustedIncome<=24650 Then
    	'15%税段     
    	TaxDue=AdjustedIncome*0.15
    ElseIf AdjustedIncome<=59750 Then    
    	'28%税段     
    	TaxDue=3697+((AdjustedIncome-24650)*0.28) 
    ElseIf AdjustedIncome<=124650 Then   
    	'31%税段     
    	TaxDue=13525+((AdjustedIncome-59750)*0.31) 
    ElseIf AdjustedIncome<=271050 Then    
    	'36%税段     
    	TaxDue=33644+((AdjustedIncome-124650)*0.36) 
    Else    
    	'39.6%税段     
    	TaxDue=86348+((AdjustedIncome-271050)*0.396)
    End If

    注意:总是可以添加更多的“ElseIf”块到“If...Then”结构中去。但是,当每个“ElseIf”都将相同的表达式比作不同的数值时,这个结构编写起来很乏味。在这种情况下可以使用“Select Case”判定结构。  

     

      三、Select Case结构 

    Visual Basic还支持在程序中使用“Select Case”分支结构来控制语句的执行。 “Select Case”结构与“If...Then...Else”结构相似,但在处理依赖于某个关键变量或称作测试情况的分支时效率更高。并且,使用“Select Case”结构可以提高程序的可读性。“Select Case”结构的语法如下所示:

    Select Case Variable     
        Case Value1          
    	Statements      
        Case Value2          
    	Statements      
        Case Value3          
    	Statements      
    	...  
    End Select

    “Select Case”结构以关键字“Select case”开始,以关键字“End Select”结束。“Select Case”结构中的“Variable”可以是变量、属性或者是表达式,“Value1”、“Value2”,“Value3”可以是数值、字符串或与要测试的其他情况相关的其他值,如果其中某个值与变量相匹配,那么该“Case”子句下的语句被执行,然后Visual Basic执行“End Select”语句后面的语句。“Select Case”结构中可以使用任意多个“Case”子句,“Case”子句中也可以包括多个“Value”值,多个“Value”值之间使用逗号分隔。 

     下面示例展示了程序中如何使用“Select Case”结构打印与某人年龄相关的信息。当“Age”变量与某个“Case”值匹配时,相应的信息显示在标签对象中。

    Select Case Age 
        case 16      
    	Label1.Text="You can drive now!" 
        Case 18      
    	Label1.Text="You can vote now!" 
        Case 21      
    	Label1.Text="You can drink wine with your meals." 
        Case 65      
    	Label1.Text="Time to retire and have fun!" 
    End Select
    

    注意:“Select Case”结构比功能等效的“If...Then”结构更清晰易读。“Select Case”结构还支持“Case Else”子句,该子句可用于当不满足所有“Case”条件时显示信息。下面是说明“Case Else”子句用法的一个示例:

    Select Case Age 
        Case 16      
    	Label1.Text="You can drive now!" 
        Case 18      
    	Label1.Text="You can vote now!" 
        Case 21      
    	Label1.Text="You can drink wine with your meals." 
        Case 65      
    	Label1.Text="Time to retire and have fun!" 
        Case Else      
    	Label1.Text="You're a great age!Enjoy it!" 
    End Select
    

    注意:“Select Case”结构每次都要在开始处计算表达式的值,而“If...Then...Else”结构为每个“ElseIf”语句计算不同的表达式,只有在“If”语句和每个“ElseIf”语句计算相同的表达式时,才能使用“Select Case”结构替换“If...Then...Else”结构。 

     

      本文来自编程入门网:http://www.bianceng.cn/Programming/VB_NET/200705/1268.htm 

    展开全文
  • VB各种循环语句

    千次阅读 2011-01-18 16:08:00
    condition [statements] .. Wend 2.Do...Loop 2.1 第一种用法 用 Do 循环重复执行一语句块,且重复次数不定。Do...Loop 语句有几种演变形式,但每种都计算数值条件以决定是否继续...

    1.While...Wend 语句
    只要指定的条件为 True,则会重复执行一系列的语句。
    语法
    While condition
    [statements]
    ..
    Wend

    2.Do...Loop

    2.1 第一种用法
    用 Do 循环重复执行一语句块,且重复次数不定。Do...Loop 语句有几种演变形式,但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True(非零)或 False(零)的表达式。
    在下面的 Do...Loop 循环中,只要 condition 为 True 就执行 statements。
    Do While condition
    statements
    ..
    Loop

    2.2 第二种用法
    Do...Loop 语句的另一种演变形式是先执行语句,然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次:
    Do
    statements
    Loop While condition
    注:其它两种演变形式类似于前两个,所不同的是,只要 condition 为 False 而不是 True,它们就执行循环。
    循环零次或多次
    Do Until condition
       statements
    Loop
    至少循环一次
    Do
       statements
    Loop Until condition

    3.For...Next

    在不知道循环内需要执行多少次语句时,宜用 Do 循环。但是,在知道要执行多少次时,则最好使用 For...Next 循环。与 Do 循环不同, For 循环使用一个叫做计数器的变量,每重复一次循环之后,计数器变量的值就会增加或者减少。For 循环的语法如下:
    For counter = start To end [Step increment]
    statements
    Next [counter]
    参数 Counter、Start、end 和 increment 都是数值型的。
    注意 increment 参数可正可负。如果 increment 为正,则 Start 必须小于等于 end,否则不能执行循环内的语句。如果 increment 为负,则 Start 必须大于等于 end,这样才能执行循环体。如果没有设置 Step,则 increment 缺省值为 1。
    实例:
    以下代码打印出所有有效的屏幕字体名:
    Private Sub Form_Click ()
    Dim I As Integer
    For i = 0 To Screen.FontCount
       Print Screen.Fonts (i)
    Next
    End Sub

    4.For Each...Next

    For Each...Next 循环与 For...Next 循环类似,但它对数组或对象集合中的每一个元素重复一组语句,而不是重复语句一定的次数。如果不知道一个集合有多少元素, For Each...Next 循环非常有用。
    For Each...Next 循环的语法如下:
    For Each element In group
    statements
    Next elementt
    例如,下面的子过程打开 Biblio.mdb,把每一个表的名字加到列表框中。
    Sub ListTableDefs ()
    Dim objDb As Database
       Dim MyTableDef as TableDef
    Set objDb = OpenDatabase("c:/vb/biblio.mdb", _
    True, False)
    For Each MyTableDef In objDb.TableDefs ()
       List1.AddItem MyTableDef.Name
    Next   MyTableDef
    End Sub
    请记住使用 For Each...Next 时的几点限制:
    对集合,element 只能是 Variant 变量,或一般的 Object 变量,或“对象浏览器”中列出的对象。
    对数组,element 只能是 Variant 变量。
    For Each...Next 不能与用户自定义类型的数组一起使用,因为 Variant 不可能包含用户自定义类型。

    展开全文
  • VB循环语句

    千次阅读 2014-12-02 22:15:36
    1.While...Wend 语句 只要指定的条件为 True,则会重复...用 Do 循环重复执行一语句块,且重复次数不定。Do...Loop 语句有几种演变形式,但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个

    1.While...Wend 语句
    只要指定的条件为 True,则会重复执行一系列的语句。
    语法
    While condition
    [statements]
    ..
    Wend
    2.Do...Loop
    2.1 第一种用法
    用 Do 循环重复执行一语句块,且重复次数不定。Do...Loop 语句有几种演变形式,但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True(非零)或 False(零)的表达式。
    在下面的 Do...Loop 循环中,只要 condition 为 True 就执行 statements。
    Do While condition
    statements
    ..
    Loop
    2.2 第二种用法
    Do...Loop 语句的另一种演变形式是先执行语句,然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次:
    Do
    statements
    Loop While condition
    注:其它两种演变形式类似于前两个,所不同的是,只要 condition 为 False 而不是 True,它们就执行循环。
    循环零次或多次 
    Do Until condition
      statements
    Loop
    至少循环一次 
    Do
      statements
    Loop Until condition 
    3.For...Next
    在不知道循环内需要执行多少次语句时,宜用 Do 循环。但是,在知道要执行多少次时,则最好使用 For...Next 循环。与 Do 循环不同, For 循环使用一个叫做计数器的变量,每重复一次循环之后,计数器变量的值就会增加或者减少。For 循环的语法如下:
    For counter = start To end [Step increment]
    statements
    Next [counter]
    参数 Counter、Start、end 和 increment 都是数值型的。
    注意   increment 参数可正可负。如果 increment 为正,则 Start 必须小于等于 end,否则不能执行循环内的语句。如果 increment 为负,则 Start 必须大于等于 end,这样才能执行循环体。如果没有设置 Step,则 increment 缺省值为 1。
    实例:
    以下代码打印出所有有效的屏幕字体名:
    Private Sub Form_Click ()
       Dim I As Integer
       For i = 0 To Screen.FontCount
          Print Screen.Fonts (i)
       Next
    End Sub
    4.For Each...Next
    For Each...Next 循环与 For...Next 循环类似,但它对数组或对象集合中的每一个元素重复一组语句,而不是重复语句一定的次数。如果不知道一个集合有多少元素, For Each...Next 循环非常有用。
    For Each...Next 循环的语法如下:
    For Each element In group
    statements
    Next elementt
    例如,下面的子过程打开 Biblio.mdb,把每一个表的名字加到列表框中。
    Sub ListTableDefs ()
       Dim objDb As Database
          Dim MyTableDef as TableDef
    Set objDb = OpenDatabase("c:\vb\biblio.mdb", _
       True, False)
       For Each MyTableDef In objDb.TableDefs ()
          List1.AddItem MyTableDef.Name
       Next  MyTableDef
    End Sub
    请记住使用 For Each...Next 时的几点限制: 
    对集合,element 只能是 Variant 变量,或一般的 Object 变量,或“对象浏览器”中列出的对象。
    对数组,element 只能是 Variant 变量。
    For Each...Next 不能与用户自定义类型的数组一起使用,因为 Variant 不可能包含用户自定义类型。

    展开全文
  • vb.net条件分支语句

    2011-10-06 08:33:33
    使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执行的操作。最简单的“If...Then”分支...
     
    

    一、简单If条件语句
    使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执行的操作。最简单的“If...Then”分支结构可以只写在一行:
        If Condition Then Statement[Else statement]
    注意:“If...Then”分支结构用于给程序添加逻辑控制能力。这里,“Condition”是个条件表达式,“Statement”是条件有效的Visual Basic语句。例如:
        If Score>=20 Then Label1.Text="You Win!"是个使用了下述条件表达式的分支结构:Score>=20
    根据这个表达式的值,程序决定是否把Label1对象的“Text”属性设置为“You Win!”。如果“Score”变量的值大于等于20,Visual Basic设置该属性的值,否则,Visual Basic跳过这条赋值语句,然后执行事件过程中的下一行语句。这类比较运算的结果不是“True”就是“False”,条件表达式从来不会产生模棱两可的值。
    二、If...Then...Else语句
    Visual Basic还支持另一种格式的“If...Then”分支结构,该结构中包含几个条件表达式,由多行语句组成,其中包含了重要关键字“ElseIf”、“Else”以及“End If”。

    If Condition1 Then
       Statements
    ElseIf Condition2 Then
       Statements
    [其他ElseIf子句及其相应的执行语句]
    Else
       Statements
    End If这个结构中,“Condition1”首先被计算。如果这个条件表达式的值为“True”,那么这个条件表达式下的语句被执行;如果第一个条件的值不是“True”,那么计算第二个表达式(Condition2)的值,如果第二个条件的值为“True”,那么这个条件表达式下的语句块被执行(如果要判断更多的条件,那么继续增加“ElseIf”子句及该子句下的语句块);如果所有条件表达式的值都不是“True”,那么执行“Else”子句下的语句块;最后,整个结构使用“End If”关键字结束。多行“If...Then”结构特别适合于分段计算问题,比如税费方面的计算。下面的代码展示了如何使用多行“If...Then”结构来确定递进税计算问题(收入和税率的对应关系取自美国国内收入服务1997年税率表):

    If AdjustedIncome<=24650 Then
       '15%税段
       TaxDue=AdjustedIncome*0.15
    ElseIf AdjustedIncome<=59750 Then
       '28%税段
       TaxDue=3697+((AdjustedIncome-24650)*0.28)
    ElseIf AdjustedIncome<=124650 Then
       '31%税段
       TaxDue=13525+((AdjustedIncome-59750)*0.31)
    ElseIf AdjustedIncome<=271050 Then
       '36%税段
       TaxDue=33644+((AdjustedIncome-124650)*0.36)
    Else
       '39.6%税段
       TaxDue=86348+((AdjustedIncome-271050)*0.396)
    End If注意:总是可以添加更多的“ElseIf”块到“If...Then”结构中去。但是,当每个“ElseIf”都将相同的表达式比作不同的数值时,这个结构编写起来很乏味。在这种情况下可以使用“Select Case”判定结构。

    三、Select Case结构
    Visual Basic还支持在程序中使用“Select Case”分支结构来控制语句的执行。 “Select Case”结构与“If...Then...Else”结构相似,但在处理依赖于某个关键变量或称作测试情况的分支时效率更高。并且,使用“Select Case”结构可以提高程序的可读性。“Select Case”结构的语法如下所示:

    Select Case Variable
         Case Value1
             Statements
         Case Value2
             Statements
         Case Value3
             Statements
         ...
    End Select“Select Case”结构以关键字“Select case”开始,以关键字“End Select”结束。“Select Case”结构中的“Variable”可以是变量、属性或者是表达式,“Value1”、“Value2”,“Value3”可以是数值、字符串或与要测试的其他情况相关的其他值,如果其中某个值与变量相匹配,那么该“Case”子句下的语句被执行,然后Visual Basic执行“End Select”语句后面的语句。“Select Case”结构中可以使用任意多个“Case”子句,“Case”子句中也可以包括多个“Value”值,多个“Value”值之间使用逗号分隔。
    下面示例展示了程序中如何使用“Select Case”结构打印与某人年龄相关的信息。当“Age”变量与某个“Case”值匹配时,相应的信息显示在标签对象中。

    Select Case Age
    case 16
        Label1.Text="You can drive now!"
    Case 18
        Label1.Text="You can vote now!"
    Case 21
        Label1.Text="You can drink wine with your meals."
    Case 65
        Label1.Text="Time to retire and have fun!"
    End Select注意:“Select Case”结构比功能等效的“If...Then”结构更清晰易读。“Select Case”结构还支持“Case Else”子句,该子句可用于当不满足所有“Case”条件时显示信息。下面是说明“Case Else”子句用法的一个示例:

    Select Case Age
    Case 16
        Label1.Text="You can drive now!"
    Case 18
        Label1.Text="You can vote now!"
    Case 21
        Label1.Text="You can drink wine with your meals."
    Case 65
        Label1.Text="Time to retire and have fun!"
    Case Else
        Label1.Text="You're a great age!Enjoy it!"
    End Select注意:“Select Case”结构每次都要在开始处计算表达式的值,而“If...Then...Else”结构为每个“ElseIf”语句计算不同的表达式,只有在“If”语句和每个“ElseIf”语句计算相同的表达式时,才能使用“Select Case”结构替换“If...Then...Else”结构。

    本文来自编程入门网:http://www.bianceng.cn/Programming/VB_NET/200705/1268.htm

    展开全文
  • Vb.net 中条件分支语句

    千次阅读 2009-08-21 17:12:00
    一、简单If条件语句使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执行的操作。最简单的...
  • 1、条件语句为true 时,就执行 处理语句块 If 条件语句 Then 处理语句块 End If 当处理语句块只有一句代码的时候,此形式可简化为 If 条件语句 Then 处理语句 例如: Dim age As Intege...
  • 本人在学习的时候 ,发现有的语言必须要写 “end if”,有的语言压根就没提这个语句。所以有点混乱。恳请各位大神指导一些,谢谢!</p>
  • if 语句开始一个代码 条件写在 if 和 then 之间 如果条件为真,if … then 和 end if 之间的代码被执行 实例 @CodeDim price=50End Code @If price>30 Then @ The price is too high. End If Else 条件 if ...
  • ASP.NET Razor - VB 逻辑条件 编程逻辑:根据条件执行代码。 ...If 条件 ...if 语句开始一个代码 条件写在 if 和 then 之间 如果条件为真,if ... then 和 end if 之间的代码被执行
  • ASP.NET Razor - VB 逻辑条件 编程逻辑:根据条件执行代码。...if 语句开始一个代码 条件写在 if 和 then 之间 如果条件为真,if … then 和 end if 之间的代码被执行 实例 @Code Dim price=50 End C...
  • VB后c#语言

    2019-01-26 12:14:08
    前言 学习了VB语言一年,有了VB的基础去学习C#语言,刚开始还是有点糊里糊涂的,但随着看着视频敲代码,慢慢懂了一些,自己也领悟了一些. ...语句块1&gt; Else &lt;语句块2&gt; End If VB: Sel...
  • 编程逻辑:执行基于条件的代码。 If 条件 VB 允许您执行基于条件...if 语句启动代码 条件位于 if 和 then 之间 如果条件为真,则执行 if … then 与 end if 之间的代码 实例 @Code Dim price=50 End Code
  • VB常见错误和难点分析

    千次阅读 2018-09-10 19:41:42
    对多行式的If语句中,应有配对的End If语句结束。否则,在运行时系统会显示” If没有End If”的编译错误。同样对Select Case语句也应有与其相对应的End Select语句。 2.多边选择ElseIf关键字的书写和条件...
  • vb循环回顾

    2012-07-15 18:24:50
    1.If语句 行:If 条件 then 语句组1 [else 语句组2] :if 条件 then  [语句组1]  [else  [语句组2]  ]  end if  2.Select case  select case 表达式:  [case 表达式列表1
  • vb学习之七

    2016-02-11 21:02:14
    选择控制结构 (一)单行结构条件语句 ... 单行条件语句比较简单,其格式如下:If条件Then then部分[Else else部分] ... 该语句的功能是:如果“条件”为True,则执行“then部分”,否则执行... If Then 语句块
  • 1,begin…end语句 功能:将多个transact_ SQL语句组成一个语句块,并将它们视为一个单元...if…else语句是条件判断语句,else可选,跟vb中的使用方法一样 3,if…exists语句 if后面的布尔表达式可含有select...
  • 1. 多行文本, 使用三个单引号括起2. 语句,复合语句使用冒号... 语句块,缩进一致就是同一block,比如:if a > b :print("big")print("yes,goold")else :print("small")print("no good")4. 列表:a=[1,3,5,7,9]b=['...
  • VB算法;1;算法概念及特征;流程图基本符号;基本数据类型;类对象属性;...块If;For循环;Do While 循环;For和Do的相互改写;3;枚举算法;第一题;第二题;第三题;第三题;第四题;第五题;第五题;第六题;第六题;第六题
  • VB新手入门之二

    千次阅读 2007-02-20 12:18:00
    lt;数字类型变量>,值为1的...在选择结构中缺少配对的结束语句对多行式的If语句中,应有配对的End If语句结束。否则,在运行时系统会显示" If没有End If"的编译错误。同样对Select Case语句也应有与其相对应的End
  • ×在C#程序中使用循环和语句指定执行流条件语句1)if语句if(condition) statement(s)else statement(s)如果要在条件中执行多个语句,就需要用花括号({…})把这些语句组成一个。与VB不同的,C#中没有EndIF对应...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    并且使上面的方块自由下落,其中,方块向下的速度是有时钟控件控制的,在游戏中,用户也可以使用向下键加快下落速度,定义一个变量,对消除的函数进行记录,最后就可以得出用户的分数,用if 语句对分数判断,达到...
  • vb 编 码 规 则 》

    2010-02-08 16:09:46
     语句(如:X=X+5 、 IF……ELSE……END IF)等组成。 2. VB代码书写规则  (1) 程序中不区分字母的大小写,Ab 与AB等效;  (2) 系统对用户程序代码进行自动转换:  1) 对于VB中的关键字,首字母被转换成...
  • vb Script参考文档

    2009-07-28 22:13:02
    If...Then...Else 语句 根据表达式的值,有条件地执行一组语句。 IgnoreCase 属性 设置或返回 Boolean 值,指示模式搜索是否区分大小写。 Imp 运算符 执行两个表达式的逻辑隐含。 初始化事件 发生在创建相关类的...
  • 条件语句也称if 语句,他有两种结构,一种是单行结构,一种是结构。  一、单行结构条件语句  单行条件语句比较简单,其格式如下:  if 条件 then then部分[Else else部分]  如果“条件”为 true,则执行...
  • 练习请在下列表格中填入相应的数据或数据类型名 数据 数据类型名 -125 2007-1-1 5.5 Boolean 65536 " abc " Integer/Long Date Single/Double ...块IF语句 语句格式 执行过程 1一个行if语句必须在一行上写完没有endi

空空如也

空空如也

1 2 3
收藏数 59
精华内容 23
关键字:

vb块if语句