精华内容
下载资源
问答
  • VBif语句的常见形式

    千次阅读 2019-09-08 18:20:42
    VB种,if语句的形式为: if 条件 then 语句1 else 语句2 end if '满足条件时,则执行语句1;否则执行语句2. 下面用例子说明常见的三种形式: Private Sub Command1_Click() '形式1,标准形式 x = InputBox("请...
    VB种,if语句的形式为:
    if 条件 then
        语句1
    else 
        语句2
    end if
    '满足条件时,则执行语句1;否则执行语句2.
    
    
    下面用例子说明常见的三种形式:
    
    Private Sub Command1_Click()
    '形式1,标准形式
    x = InputBox("请输入一个整数")
    y = InputBox("请输入一个整数")
    
    If x > y Then
        Print "较大的数为:" & x
    Else
        Print "较大的数为:" & y
    End If
    
    End Sub
    
    
    Private Sub Command2_Click()
    '形式2,省略了else部分
    x = InputBox("请输入一个整数")
    
    If x >= 0 Then
        Print "您输入的数" & x
    End If
    
    End Sub
    
    
    Private Sub Command3_Click()
    '形式3,多分支
    x = InputBox("请输入您的成绩")
    
    If x >= 60 And x < 80 Then
        MsgBox "成绩及格"
    ElseIf x >= 80 And x < 90 Then
        MsgBox "成绩良好"
    ElseIf x >= 90 And x <= 100 Then
        MsgBox "成绩优秀,很棒"
    Else
        MsgBox "成绩不及格!!!"
    End If
    
    End Sub
    
    
    

     

    展开全文
  • VBifelseif

    2016-08-11 19:35:00
    VBifelseif的用法是: if...then...elseif...then...else...endif 切记在then的后面不要加冒号,加了冒号出现else没有if的错误,因为加了冒号表示这个if只是执行then的语句就算执行完了,因此如下 1 Sub ...

    VB中if和elseif的用法是:

    if...then...elseif...then...else...endif

    切记在then的后面不要加冒号,加了冒号出现else没有if的错误,因为加了冒号表示这个if只是执行then的语句就算执行完了,因此如下

     1 Sub test()
     2 Dim i As Integer
     3 Dim j As Integer
     4 Dim a
     5 For i = 1 To 2:
     6     Debug.Print ("这是第" & Str(i) & "次循环")
     7     a = InputBox("请输入")
     8     
     9     If a = "1" Then
    10         MsgBox ("执行1")
    11         Debug.Print ("执行1")
    12     ElseIf a = "20" Then
    13         MsgBox ("执行2")
    14         Debug.Print ("执行2")
    15     ElseIf a = "40" Then
    16         MsgBox ("执行3")
    17         Debug.Print ("执行3")
    18     ElseIf a = "100" Then
    19         MsgBox ("执行4")
    20         Debug.Print ("执行4")
    21     ElseIf a = "300" Then
    22         MsgBox ("执行5")
    23         Debug.Print ("执行5")
    24     Else:
    25         MsgBox ("什么都没有执行")
    26         Debug.Print ("什么都没有执行")
    27     End If
    28 Next i
    29 End Sub

    如果是加了冒号那么只能是一个if:

     1 Sub test()
     2 Dim i As Integer
     3 Dim j As Integer
     4 Dim a
     5 For i = 1 To 2:
     6     Debug.Print ("这是第" & Str(i) & "次循环")
     7     a = InputBox("请输入")
     8     
     9     If a = "1" Then:
    10         MsgBox ("执行1")
    11         Debug.Print ("执行1")
    12 
    13 Next i
    14 End Sub

    如果是以下这样子就会报错:

     1 Sub test()
     2 Dim i As Integer
     3 Dim j As Integer
     4 Dim a
     5 For i = 1 To 2:
     6     Debug.Print ("这是第" & Str(i) & "次循环")
     7     a = InputBox("请输入")
     8     
     9     If a = "1" Then:
    10         MsgBox ("执行1")
    11         Debug.Print ("执行1")
    12     ElseIf a = "2" Then:
    13         MsgBox ("执行2")
    14 Next i
    15 End Sub

     

    转载于:https://www.cnblogs.com/TTyb/p/5762324.html

    展开全文
  • VB中的IF语句

    2019-11-29 22:35:53
    Private Sub Command1_Click() Dim a As String, b As String a = Me.Text1.Text b = Me.Text2.Text If Val(a) = Val(b) Then MsgBox “a与b输入点相同” ...Else ...If Val(a) <...If Val(a) ...

    `

    Private Sub Command1_Click()
    Dim a As String, b As String
    a = Me.Text1.Text
    b = Me.Text2.Text
    If Val(a) = Val(b) Then
    MsgBox "a与b输入点相同"
    Else
    
     If Val(a) < Val(b) Then
     MsgBox "a小于b输入点"
     
      Else
      If Val(a) > Val(b) Then
      MsgBox "a大于b输入点"
      End If
     End If
    End If
    
    
    End Sub`
    
    展开全文
  • vb 简单If条件语句

    万次阅读 2013-05-16 11:17:46
    一、简单If条件语句   使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。... If Condition Then Statement[Else statement]  注意:“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编程:IF语句判断成绩优良-8

    千次阅读 2016-11-16 09:47:08
    运行效果: 源代码: Private Sub Command1_Click()  Dim i As Integer  i = Val(Text1)  If i = 100 Then ... ElseIf i &gt;= 85 Then    MsgBox "优秀"  ElseIf i &gt;...
  • vb常用语句

    热门讨论 2021-02-27 15:41:04
    1、输入语句 变量名 = InputBox(“请输入变量的值”) 2、输出语句 Print 表达式 3、声明语句 Dim 变量名 As 数据类型 Dim 变量名1 As 数据类型,变量名2 As ...Else 语句组B EndIf 7、循环语句 ①Do循环语句 Do While
  • mysql 里面的流程控制语句vb里面的有点像,此处介绍 mysql 里面的 ifelse while 结合 自定义函数实现一个 求阶乘的函数实现 1,创建函数 创建语法 create function 函数名([形参列表]) returns 数据类型 -- ...
  • 运行效果: 源代码: Private Sub Command1_Click() Dim i As Integer i = Val(Text1) If i = 100 Then MsgBox "满分" ElseIf i >= 85 Then MsgBox "优秀" ElseIf i >= 75 The...
  • delphi if else

    2013-06-19 10:32:00
    其实delphi中的IF语句VB中的语句有点相像,都是IF .... THEN...不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧,呵呵。下边写几个IF语句的例子":1、IF.. THENif 1=1 thenbegin//...
  • VB6.0中的编译预处理——#IF语句

    千次阅读 2006-04-22 19:35:00
    大家都知道C语言中的编译预处理,这是一项十分实用的...其实VB中也有类似于C语言编译预处理中的条件编译语句——#If语句。 语法如下: #If 条件 Then 程序语句 [#ElseIf 条件n Then 程序语句] [#Else 程序语句] 
  • Delphi 中if else 的用法

    万次阅读 2012-05-07 11:41:30
    其实delphi中的IF语句VB中的语句有点相像,都是IF .... THEN... 不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧,呵呵。 下边写几个IF语句的例子": 1. IF.. THEN ...
  • VB if多条件语法

    千次阅读 2017-09-11 16:59:10
    VB if多条件语法基本格式If [判断条件] Then [执行语句] ElseIf [判断条件] Then [执行语句] Else [执行条件] End If '跳出If判断 假设A条件是a=1、B条件是b=1以此类推 c=1 d=1 假设执行某某1和2分别是 MsgBox ...
  • VB中如何使用select case语句

    千次阅读 2020-01-04 14:46:35
    近来,在网上找了一些关于VB选择语句的代码样例讲解,不过可惜关于Select ...Select Case不是循环语句,是条件选择语句,与IF...ELSEIF...ELSEIF...END IF类似 <默认语句组,以上语句组都因情形不符合实际时执...
  • if-else和try-catch

    千次阅读 热门讨论 2016-02-26 11:03:41
    开始的时候不知道if-else语句和try-catch语句有何区别,只看到表面的。起初我的理解是:如果....就....。感觉这两个语句实现的代码后的功能差不多呀。 if-else语句 首先要明确if-else语句是流
  • VB6 执行String语句

    2013-12-15 16:05:27
    首先:Imports System.Runtime.InteropServices 然后: Private Declare Function EbExecuteLine Lib "VBA6.DLL" (ByVal pStringToExec ... Else Debug.Print(i + 1 & vbTab & "行代码错误") End If Next End Sub
  • vb语句片段转为delphi

    2017-06-21 11:51:47
    帮我将下面语句转为delphi 感激不尽! function MB(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall; external user32 name 'MessageBoxA Private Sub Command1_Click() Dim C(1 To...
  • AJAX内部if语句

    2015-08-17 01:43:48
    else if (SBMT == '0'){ alert("NO"); } }; </code></pre> <p><strong>SQL</strong></p> <pre><code>strWhere = " where acti= '1' " strSQL = "select task,ddat,ddat-trunc(sysdate) as days,prog,pnam,remk,...
  • Vb.net 中条件分支语句

    千次阅读 2009-08-21 17:12:00
    一、简单If条件语句使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执行的操作。最简单的...
  • VB支持的选择结构有: If...Then; If...Then...Else;lf...Then...Elseif;Select Case; iif函数1、单分支结构If...Then.首先判断表达式的值,如果是True,就执行then后的一条或多条语句,然后选择结构结束。如果是False...
  • VB.NET中UPDATE语句执行后没有报错,数据库也没有更新,但是把语句放在Textbox中提出来,在SQL Server中直接执行是成功的 与数据库是可以连接的,在其他窗体中也可以执行UPDATE语句、INSERT语句,SELECT语句 ``` ...
  • VB这行代码能不能简化下:If X (0 - X)+1 Else X=Int(X)
  • 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。...类似于下面的If语句: IF 判断语句=True Then 变量=值1 Else 变量=值2 看以下代码: Sub Main() ...
  • VB中提供了IF 条件表达式1 then [代码部分]elseIf 条件表达式2 then [代码部分]else [代码部分]end IF 的控制流程来控制程序的执行结构。条件表达式决定了执行条件的判断。这里我们来举个例子说明该控制流程的
  • 10 then '如果I小于10的话 msgbox "I小于10" '结果显示else'否则 msgbox "I大于10"'结果显示end If 以上实例告诉我们结果,I是小于10的,因为I本身就是5,大家可以练习一下这个条件语句具体...
  • vb6.0 第二课

    2019-10-18 09:54:07
    vb6.0 第二课 一、算法 主要特性:有穷性、确定性、可行性、输入、输出 二、顺序结构 1、赋值语句 2、inputbox 3、msgbox 4、print 三、选择结构 (1) if 条件 then 语句1 else 语句2 end if (2) if 条件 then ...
  • ASP.NET Razor – VB 逻辑条件 编程逻辑:根据条件执行代码。 If 条件 VB 允许根据条件执行代码。 使用 if 语句来判断条件。根据判断结果,if 语句返回 true 或者 ...if 语句可以包含 else 条件。 else 条件定义了当
  • Else    ' MsgBox "连接成功" 'End If <p>    sSql = "get foo"     adoRst = adoConn.Execute(sSql)  </p>
  • 语句第一类:判断语句If...Then...Else...End If Select Case... Case... ... Case Else ... End Select第二类:循环语句。 Do [While | Until]... ... [Exit Do] Loop While... ... Wend

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 135
精华内容 54
关键字:

ifvbif语句else