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

     

    展开全文
  • VB中的IF语句

    2019-11-29 22:52:00
    Private Sub Command1_Click() Dim a As String, b As String ...If Val(a) = Val(b) Then MsgBox "a与b输入点相同", 64, "提示" Else If Val(a) < Val(b) Then MsgBox "a小于b输入点", 6...
    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输入点相同", 64, "提示"
    Else
    
     If Val(a) < Val(b) Then
     MsgBox "a小于b输入点", 64, "提示"
     
      Else
      If Val(a) > Val(b) Then
      MsgBox "a大于b输入点", 64, "提示"
      End If
     End If
    End If
    
    
    End Sub
    
    展开全文
  • 1. 应用窗体单击事件从键盘输入两个数分别放在x和y变量中比较它们大小要求将大数放在x中小数放在y中 分析两个变量交换必须借助第三个变量并且注意赋值语句的写法等价的行是 x的命令按钮输入以下代码 新建一个名称为...
  • 运行效果: ... If Text1.Text ... If CLng(Text1.Text) > A Then ...编写程序的时候,代码语句经常需要在前面加空格,四个字节的空格需要按4下Spase空格键,其实只要按1次Tab制表键即可。
    运行效果:
    VB编程:IF语句嵌套实例猜数小游戏-9

    程序代码:
    Public A As Long                                                           '定义全局变量,用于储存生成的随机数
    Private Sub Command1_Click()
        Randomize                                                                 '生成随机数
        A = CLng(1000 * Rnd)                                                'CLng()函数,强制转换为长整型
    End Sub

    Private Sub Command2_Click()
        Static B As Integer                                                        '申明静态变量用于计数
        If Text1.Text <> "" And IsNumeric(Text1.Text) Then     '判断是否是空值或者是数值
            B = B + 1
            If CLng(Text1.Text) > A Then                                       '比较数据
                MsgBox "大了.", , "信息提示"
            ElseIf CLng(Text1.Text) < A Then
                MsgBox "小了.", , "信息提示"
            Else
                MsgBox "猜对了,这个数是:" & A, , "信息提示"
                B = 0
                Exit Sub
            End If
        End If
        Label3.Caption = "这是第" & B & "次猜想"                   '记录猜想次数
    End Sub

    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
            Call Command2_Click                                                 'Enter回车键的ASCII是13
        End If
    End Sub

    小技巧:
          编写程序的时候,代码语句经常需要在前面加空格,四个字节的空格需要按4下Spase空格键,其实只要按1次Tab制表键即可。
    展开全文
  • 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中的If语句,很简单,用于判断。  If语句花样: 如果 条件1 成立 做 代码1 否则 做 代码2 完毕  If Val(Text1.Text) Mod 2 = 1 Then  Label1.Caption =
  • VB编程:IF语句判断成绩优良-8

    千次阅读 2016-11-16 09:47:08
    运行效果: 源代码: Private Sub Command1_Click()  Dim i As Integer ... If i = 100 Then    MsgBox "满分"  ElseIf i &gt;= 85 Then    MsgBox "优秀"  ElseIf i &gt;...
  • VB程序设计IF语句PPT教案学习.pptx
  • 运行效果: 源代码: 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...
  • 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常用语句

    热门讨论 2021-02-27 15:41:04
    1、输入语句 变量名 = InputBox(“请输入变量的值”) 2、输出语句 Print 表达式 3、声明语句 Dim 变量名 As 数据类型 Dim 变量名1 As 数据类型,变量名2 As 数据类型,… Dim 数组名(1 To n) As 数据类型 4、赋值...
  • 条件语句的if语句的5种替代方法

    千次阅读 2020-09-12 04:22:27
    Conditional branching is when a segment of code is executed or evaluated based on a condition, typically implemented using an if...else construct. 条件 分支是根据条件执行或评估一段代码时的条件 分支 ,...
  • VBA嵌套if语句

    千次阅读 2019-09-28 00:14:36
    一个If或ElseIf语句可以嵌套在另一个If或ElseIf语句中。内部的If语句是根据最外层的If语句执行的。这使得VBScript能够轻松处理复杂的条件。 语法 以下是VBScript中嵌套的If语句的语法。 If(boolean_...
  • 在SQL语句中,经常遇到where条件有多个,而且,这些条件并不会同时出现在where语句中。 Java开发,经常使用来控制。 在VS开发的时候,发现不使用也可以实现这种效果, 那就是使用LIKE语句 Private ReadOnly ...
  • 这是一段简单的while和if语句嵌套使用的C++代码,使用与初学者对while和if语句的理解,加深C++程序编译的思想!
  • If 语句 VS Select Case 语句

    千次阅读 2018-01-24 21:16:17
    在“研磨”百例的过程中,突然发现"If 语句" 和 "Select Case 语句"有异曲同工之妙,于是果断把实例2“蹂躏”一番。 实例:要求用Select Case 语句实现成绩等级优、良、中、差、不及格,90分以上是优、80-90是良、...
  • if语句实现判断学生等级

    千次阅读 2018-12-24 21:41:16
    * B:通过简单的分析,我们决定采用if语句格式3来实现 * * 程序一定要考虑周全了。 * 安全数据 * 边界数据 * 错误数据 */ public class IfTest2 { public static void main(String[] args) { //创建对象 ...
  • if语句的用法是什么

    2021-08-28 00:11:14
    if语句的用法:if语句是指编程语言(包括c语言、C#、VB、java、汇编语言等)中用来判定所给定的条件是否满足,根据判定的结果(真或假)决定执行给出的两种操作之一。if语句概述if语句...
  • For a = 0 To struser.Count – 1If a = 0 Thenstrruser = “‘” & struser.Item(a).ToString.Trim & “‘”Elsestrruser = strruser & ” , ” & “‘” & struser.Item(a).ToString.Trim & “‘”End IfNext ...
  • if条件语句应用——数值大小的比较

    千次阅读 2019-03-07 15:15:05
    (1)if语句 (2)if…else语句 (3)if…else if…else语句 下面采用三种语句分别进行数值大小的比较(java语言为例) if语句实例 package com.student.choose; public class Ifcode { /** * if条件...
  • VB学习之路 ——基本语句

    万次阅读 多人点赞 2019-07-04 22:22:47
    1. 一个很简单的 If(表达式) ........Then的问题,在VB的程序编写时候 ,如果在if....Then后面只有一条需要执行的语句,并且将执行的一条语句直接放在了Then的后面,则不需要后面加上End If,加上就报错 。...
  • for语句与if语句嵌套的简单应用

    千次阅读 2017-04-16 22:22:00
    1.循环语句 for(初始条件;循环条件;状态改变) { 循环体 ...break为跳出循环,... if(判断) { break } } 凑钱问题 用一元,两元,五元三种面值的钱凑20元有几种方法。 <script> ...
  • 双路径决策--If语句

    2013-09-23 16:33:35
    vb三大流程之一--关于双路径决策IF语句的教案
  • VB中如何使用select case语句

    千次阅读 2020-01-04 14:46:35
    近来,在网上找了一些关于VB选择语句的代码样例讲解,不过可惜关于Select case的讲解甚少(可能是查找方向有误),遂,作此,如有不足还望评论去添补 语法 Select Case <指示变量或表达式> Select Case...
  • IF语句.xls

    2011-12-13 14:36:18
    IF语句,简简单单的一个小文档,大家看看学习学习
  • VB三角形判断 (if)

    2010-07-27 07:12:29
    利用VB实现三角形的判断 用户只需将三角形的三条边长输入,点击“判断”键就可以判断是否能构成三角形,何种三角形
  • if not 语句用法

    千次阅读 2020-03-13 12:33:20
    首先,if语句大家都会用,就不多说了直入if not 首先如果一个变量中储存的值是 空字符串"", 0, 空列表[], 空字典{}, 空元组()或者是False 那么用if not就会传递True相反就会传递False 举个例子: a=0 b="" c={} d...
  • Vb.net 中条件分支语句

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

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 24,509
精华内容 9,803
关键字:

vb块if语句