精华内容
下载资源
问答
  • 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: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`
    
    展开全文
  • VBIf语句的使用 判断奇偶

    千次阅读 2014-05-08 23:18:54
     本节介绍VB中的If语句,很简单,用于判断。  If语句格式: 如果 条件1 成立 做 代码1 否则 做 代码2 结束  代码格式: If 条件1 Then  语句1  这样使用If语句,就可以使程序有选择性的执行代码。

    声明:本文属于原创,本人精心制做,欢迎人人转载,但转载请注明本文出自http://blog.163.com/kam_1993/ 

       本节介绍VB中的If语句,很简单,用于判断。

        If语句格式: 如果 条件1 成立 做 代码1 否则 做 代码2 结束

        代码格式:

    If 条件1 Then

        语句1

        这样使用If语句,就可以使程序有选择性的执行代码。

        语句2

    If 条件1 Then 语句1

    Else

        注意,If语句必然要有判断条件和执行语句,最后用 End If 结尾。但如果执行语句只有一条,就可以缩成一行,不必再写End If。

    End if

        好,下面我们来做这样一个题:输一个数,判断奇数还是偶数。

        创建一个窗体如下图(我不美化了,你们可以自己美化)

    【VB】If语句的使用 判断奇偶 - Kam - KamのWorkingspace

        这时,我们可以使用一个新的运算符——Mod。Mod可以对一个数取余数。比方 10 / 3 = 3……1

    则10 Mod 3 = 1。所以如果任意一个数 n Mod 2 = 1 这个数就是奇数了(奇数除以2肯定余1啊)所以源代码十分简单:

    Private Sub Command1_Click()
        If Val(Text1.Text) Mod 2 = 1 Then
            Label1.Caption = "这是奇数"
        Else
            Label1.Caption = "这是偶数"
        End If
    End Sub

        使用 And 逻辑运算符链接两个条件。必须两个条件同时成立,才能算是整条语句成立。

        我们可以这样想,先判断是不是奇数,在判断是不是偶数,如果两者都不是,那就是非奇非偶了!这样的话,我们就要使用到多层次的函数了。把这个想法翻译过来,就是




        测试完之后,是不是发现两段代码的效果完全一样呢。实在,这就是将多层次的If条件语句合并。目的是减少代码的长度,增加可读性。

        这段代码应该很容易读懂了。但是有的朋友会说如果想加上判断非奇非偶的判断,怎么办呢?



        这样,我们就可以判断非奇非偶的数了。

        另外,刚才的If语句还有一种写法,就是 ElseIf。最终可以写成如下形式,人人可以对比一下上下两段。

        If Val(Text1.Text) Mod 2 = 1 Then
            Label1.Caption = "这是奇数"
        Else
            If Val(Text1.Text) Mod 2 = 0 Then
                Label1.Caption = "这是偶数"
    &nbs5173p;       Else
                Label1.Caption = "非奇非偶"
            End If
        End If

    Private Sub Command1_Click()
        If Val(Text1.Text) Mod 2 = 1 And Val(Text1.Text) = Int(Val(Text1.Text)) Then
            Label1.Caption = "这是奇数"
        ElseIf Val(Text1.Text) Mod 2 = 0 And Val(Text1.Text) = Int(Val(Text1.Text)) Then
            Label1.Caption = "这是偶数"
        Else
            Label1.Caption = "非奇非偶"
        End If
    End Sub

    By:Kam

        做着做着发现,当我们输入小数的时候,程序依然会输出奇偶,可小数无奇偶之分!所以我们要用一条函数来判断是不是整数——Int()。该函数可以将一个数变为整数。所以如果 n = Int(n)那么这个数就是整数了。为了把这个条件加入判断,则应该使用逻辑运算符(详见逻辑运算符介绍,此处我直接使用)。

        当然,至于上面所讲过的If语句精简法,这里不可以使用,记住必须是只有一条代码执行的时候才可以精简。

     

    Private Sub Command1_Click()
        If Val(Text1.Text) Mod 2 = 1 And Val(Text1.Text) = Int(Val(Text1.Text)) Then
            Label1.Caption = "这是奇数"
        Else
            If Val(Text1.Text) Mod 2 = 0 And Val(Text1.Text) = Int(Val(Text1.Text)) Then
                Label1.Caption = "这是偶数"
            Else
                Label1.Caption = "非奇非偶"
            End If
        End If
    End Sub


    展开全文
  • 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、赋值...

    1、输入语句

    变量名 = InputBox(“请输入变量的值”)

    2、输出语句

    Print 表达式

    3、声明语句

    Dim 变量名 As 数据类型

    Dim 变量名1 As 数据类型,变量名2 As 数据类型,…

    Dim 数组名(1 To n) As 数据类型

    4、赋值语句

    变量名 = 表达式

    5、注释语句

    ‘注释文字

    6、分支语句

    ①单分支语句

    If 条件 Then

    语句组

    EndIf

    ②双分支语句

    If 条件 Then

    语句组A

    Else

    语句组B

    EndIf

    7、循环语句

    ①Do循环语句

    Do While 循环条件

    语句组

    Loop

    ②For循环语句

    For 循环变量 = 初值 to 终值 Step 步长

    语句组

    Next 循环变量

    展开全文
  • vb 简单If条件语句

    万次阅读 2013-05-16 11:17:46
    一、简单If条件语句   使用在称之为分支结构的特殊语句块中的条件表达式控制了程序中哪些语句被执行以及什么样的执行次序执行。“If...Then”分支结构在程序中计算条件值,并根据条件值决定下一步执行的操作。最...
  • 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;...
  • 1. 应用窗体单击事件从键盘输入两个数分别放在x和y变量中比较它们大小要求将大数放在x中小数放在y中 分析两个变量交换必须借助第三个变量并且注意赋值语句的写法等价的行是 x的命令按钮输入以下代码 新建一个名称为...
  • 视频内容:本视频是给学生复习If语句时的授课内容,长长的寒假过后,很多学生连最基本的东西的忘记了,只好从最简单的开始复习。本视频讲解了使用嵌套If和多分支语句解决的两个问题,讲解非常详细,基础不够扎实的...
  • If语句格式: 如果 条件1 成立 做 代码1 否则 做 代码2 结束代码格式:If 条件1 Then语句1Else语句2End if这样使用If语句,就可以使程序有选择性的执行代码。注意,If语句一定要有判断条件和执行语句,最后用 End If...
  • 运行效果: ... If Text1.Text ... If CLng(Text1.Text) > A Then ...编写程序的时候,代码语句经常需要在前面加空格,四个字节的空格需要按4下Spase空格键,其实只要按1次Tab制表键即可。
  • VB循环语句

    千次阅读 2014-12-02 22:15:36
    1.While...Wend 语句 只要指定的条件为 True,则会重复执行一系列的语句。 语法 While condition [statements] .. Wend 2.Do...Loop 2.1 第一种用法 用 Do 循环重复执行一语句块...如同 If...Then condition 必须是一个
  • VB2010(9)_IF语句

    2020-01-17 19:01:47
    Public Class Form1 Private Sub btnIf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIf.Click Dim intNumber As Integer = 27 If intNumber = 1000 Then...
  • IF语句

    2020-08-21 16:45:01
    if语句是指编程语言(包括c语言、C++、C#、java、VB、汇编语言等)中用来判定所给定的条件是否满足,根据判定的结果(真或假)决定执行给出的两种操作之一。if的返回值为真或假,可以用bool型变量进行存储,占用一字...
  • Private Sub cmd_add_Click() ... Dim dr As New ADODB.Recordset If Len(newuser.Text) = 0 ...[b][size=18px]上面有3个IF判断语句,请问各位大神,要怎么顺序写才对??求直接修改代码贴代码,谢谢啦!![/size] [/b]
  • delphi if 语句循环语句

    2019-10-08 19:47:22
    if语句-----------------------------------------------------------------------------------------------------------------------------------...其实delphi中的IF语句VB中的语句有点相像,都是IF .... THEN.....
  • 关于vb中删除数据库记录的语句Sql = "select * from 班级信息where 姓名='" & Trim(Text1.Text) & "'"rsd.Open Sql, conn, adOpenStatic, adLockOptimisticYN = MsgBox("确定删除", vbYesNo)If YN = 6 ...
  • VB6.0中的编译预处理——#IF语句

    千次阅读 2006-04-22 19:35:00
    大家都知道C语言中的编译预处理,这是一项十分实用的...其实VB中也有类似于C语言编译预处理中的条件编译语句——#If语句。 语法如下: #If 条件 Then 程序语句 [#ElseIf 条件n Then 程序语句] [#Else 程序语句] 
  • 运行效果: 源代码: 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...
  • --- D:\Moontest\ConsoleApplication1\Module1.vb --------------------------------- 2 Dim i As Integer = 1 3 00000000 push ebp 4 00000001 mov ebp,esp 5 00000003 push edi 6 ...
  • 但是当实际运行中发现,if语句所限制的条件根本对Asc(g)不起作用,例如,当g为 a 的时候,其ASCII码应该是97,应该进入if语句的第二个条件,但是运行中程序却还是进入了if语句的第一个条件并且运算了里面的代码,...
  • 视频内容:本视频是给学生复习If语句时的授课内容,长长的寒假过后,很多学生连最基本的东西的忘记了,只好从最简单的开始复习。本视频讲解了使用嵌套If和多分支语句解决的两个问题,讲解非常详细,基础不够扎实的...
  • KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Call Command2_Click 'Enter回车键的ASCII是13 End If End Sub 小技巧: 编写程序的时候,代码语句经常需要在前面加空格,四个字节的空格需要...
  • 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 ...
  • If Dir(App.Path & "\Temp", vbDirectory) = "" Then '文件夹不存在 MkDir App.Path & "\Temp" '在应用程序根目下,创建文件夹Backup End If ozip.DeCompress App.Path & "\Tb.dat", App.Path & "\Temp\ItemImg....
  • 展开全部VB 里的636f707962616964757a686964616f31333433623665 select 语句和 C++ 里的 switch 语句相同,不过 每一个"Case"结束时无需 。相对于 if 语句而言,switch 语句可以更方便地应用于多个分支的控制流程。C...

空空如也

空空如也

1 2 3 4 5 ... 19
收藏数 374
精华内容 149
关键字:

vbif语句