精华内容
下载资源
问答
  • VB中If与ElseIf的区别

    千次阅读 2019-02-28 15:39:12
    Private Sub Form_Click()  Sum=0  For k=1 To 3  If k&... ElseIf k<=2 Then  x=2  ElseIf k<=3 Then  x=3  Else  x=4  End If  Sum=Sum+x  Next k  ...

    Private Sub Form_Click()
      Sum=0
      For k=1 To 3
        If k<=1 Then
          x=1
        ElseIf k<=2 Then
          x=2
        ElseIf k<=3 Then
          x=3
        Else
          x=4
        End If
        Sum=Sum+x
      Next k
      Print Sum
    End Sub
    注意:当此程序运行后,从If开始判定条件是否满足,依次判定,条件满足立即再次循环。
    程序执行过程如下:
    k=1,k<=1成立,执行x=1,sum=sum+x=1
    k=2,k<=2成立,执行x=2,sum=sum+x=1+2=3
    k=3,k<=3成立,执行x=3,sum=sum+x=3+3=6,循环结束。因此最后输出Sum的值为6。

    展开全文
  • vb elseif的使用

    2011-11-24 22:17:45
    vb elseif的相关使用 简易窗口应用程序
  • 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
    
    
    

     

    展开全文
  • 运行效果: 程序代码: Private Sub Command1_Click()  Dim bo, ba, st As String  st = Text1.Text  bo = st Like "[a-z]" ... If IsNumeric(st) Then    MsgBox "输...
    运行效果:
    VB编程:If-ElseIf判断输入的字符是数字还是字母-10

    程序代码:
    Private Sub Command1_Click()
        Dim bo, ba, st As String
        st = Text1.Text
        bo = st Like "[a-z]"
        ba = st Like "[A-Z]"
        If IsNumeric(st) Then
            MsgBox "输入的是数字", vbOKOnly, "信息提示"
        ElseIf bo Then
            MsgBox "输入的是小写字母", vbOKOnly, "信息提示"
        ElseIf ba Then
            MsgBox "输入的是大写字母", vbOKOnly, "信息提示"
        Else
            MsgBox "输入的既不是数字也不是字母", vbOKOnly, "信息提示"
        End If
    End Sub

    VB编程:If-ElseIf判断输入的字符是数字还是字母-10


    展开全文
  • 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`
    
    展开全文
  • 在Java多个 if-else 之间的执行顺序有什么区别呢? 对于 if-else 语句,它是 单条件双分支语句,即程序的执行流程是根据 一个条件来控制的; 如下代码演示了存在多个 if - else 时的执行顺序: int test11 = ...
  • vb 简单If条件语句

    万次阅读 2013-05-16 11:17:46
    一、简单If条件语句   使用在称之为分支结构的特殊语句块的条件表达式控制了程序哪些语句被执行以及什么样的执行次序执行。... If Condition Then Statement[Else statement]  注意:“If...Then”
  • C# ifelse if(八)

    千次阅读 热门讨论 2019-03-30 17:16:42
    if 结构 if() { } if后面的括号里放入的是bool值或者是条件 如果为true,则执行大括号里面的内容,如果不为true的话,则不执行大括号里面的内容 举例: Console.WriteLine("你今年多大了?"); string age=Console...
  • * 使用ifelse ifelse语句实现判断95分对应的等级。 */ public class Classify{ public static void main(String[] args) { int score=95; if(score>=90&&score) { System.out.println("A级"); } ...
  •  ElseIf CLng(Text1.Text)    MsgBox "小了.", , "信息提示"    Else    MsgBox "猜对了,这个数是:" & A, , "信息提示"    B = 0    Exit Sub    End If  End If  Label3.Caption ...
  • vb代码-在 VB.Net 的编译器指令 The #Const 指令 The #ExternalSource 指令 The #If...Then...#Else 指令 The #Region 指令
  • 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 if多条件语法

    万次阅读 2017-09-11 16:59:10
    ElseIf [判断条件] Then [执行语句] Else [执行条件] End If '跳出If判断 假设A条件是a=1、B条件是b=1以此类推 c=1 d=1 假设执行某某1和2分别是 MsgBox “XX1” 和Msgbox “XX2”If a=1 Or b=1 Then MsgBox
  • 多个if判断和if-else-if判断的区别

    千次阅读 2019-05-20 10:27:22
    当输入一个比矩阵右下角的元素还要大的整数时,使用方法一也就是多个if进行判断的时候会抛出数据越界的异常,因为方法一将一次循环进行多次判断,当判断到最后一行的最大元素也就是右下角的元素也比输入的整数小的...
  • 我们将判断机制写入到按钮事件,用户单击按钮,则执行级别判断,主要是使用if elseif来判断等级,如下示:  Private Sub Command1_Click()  x = Val(Text1) '取文本框的值进行判断  If x 利用多分支结构的多行...
  • if else的常见错误

    千次阅读 2018-02-26 15:14:26
    第一个错误,if(age &gt; 60)这里加了一个逗号,程序却没有报错...编译器并不会报错,并且b的值发生了改变代码风格在ifelse语句之后必须加上大括号,便于同行理解,代码本来就不是写给自己一个人看的;注意...
  • VB6 判断文件是否存在,使用VB内置的函数FileExists来实现,可以说实现方法简单,直接调用函数(文件路径)即可,至于返回的结果,这里有两种形式,一种是以MsgBox的方式弹出窗口告之,另一种是返回布尔值,True或...
  • Delphi 中if else 的用法

    万次阅读 2012-05-07 11:41:30
    其实delphiIF语句和VB中的语句有点相像,都是IF .... THEN... 不过DELPHI的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA的{}吧,呵呵。 下边写几个IF语句的例子": 1. IF.. THEN ...
  • VB编写完整源码判断字符串某一字符是否大写,执行下面的代码,这个例子简单哦,不多介绍了,直接看代码吧:  If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1))  Label2.Caption = ...
  • 太冗余了....Private Sub Check1斜体_Click()If Check1斜体.Value = 1 ThenText1.FontItalic = TrueElse: Text1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check2粗体_Click()If Check2粗...
  • VB中如何使用select case语句

    千次阅读 2020-01-04 14:46:35
    近来,在网上找了一些关于VB选择语句的代码样例讲解,不过可惜关于Select ...Select Case不是循环语句,是条件选择语句,与IF...ELSEIF...ELSEIF...END IF类似 <默认语句组,以上语句组都因情形不符合实际时执...
  • VB调用显示Windows控制面板各个模块,也就是vb操作控制面板,把Windows控制面板的内容全部显示在本程序的窗口,像键盘设置、区域设置、网络、显示、多媒体等各个模块的显示。本例主要是通过rundll32.exe shell...
  • VB语言输出杨辉三角形的方法

    千次阅读 2020-12-20 18:53:52
    赖润平摘 要:对VB语言、杨辉三角形以及VB语言输出杨辉三角形作了简单分析,结合输出杨辉三角形的实例,探讨了利用VB语言输出杨辉三角形的方法,希望能够为学生更好地学习VB程序设计提供一定的帮助。关键词:VB...
  • VB 记录鼠标行为,记录用户是单击了鼠标右键或是左键,监控鼠标被单击了哪个键,核心的代码如下: ... ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then  Text1.Text = Text1.Text " 鼠标右键 "  End If
  • DoEvents 函数会返回一个 Integer,以代表 Visual Basic 独立版本打开的窗体数目,例如,Visual Basic,专业版,在其它的应用程序,DoEvents 返回 0。 DoEvents 会将控制权传给操作系统。当操作系统处理完...
  • VB 检测文件是否存在,操作时请输入文件所在路径及文件名:单击操作按钮后,将执行以下的代码:  Private Sub Command1_Click()  X% = jc%(Text1.Text) '调用自定义函数返回检测结果  If X% = True Then '判断...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 56,384
精华内容 22,553
关键字:

vb中elseif