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

    2016-08-11 19:35:00
    VB中if和elseif的用法是: 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.NET中IF与IIF的区别

    2019-09-24 14:47:46
    大家看看这两个函数功能上有什么不同的地方1. PrivateFunctionGeteachQty()FunctionGeteachQty(ByValobjAsObject)AsIntegerIfIsDBNull(obj)=FalseThenReturnConvert.ToInt32(obj)Else...
    大家看看这两个函数功能上有什么不同的地方
    1.
    ExpandedBlockStart.gifContractedBlock.gif Private Function GeteachQty()Function GeteachQty(ByVal obj As ObjectAs Integer
    InBlock.gif        
    If IsDBNull(obj) = False Then
    InBlock.gif            
    Return Convert.ToInt32(obj)
    InBlock.gif        
    Else
    InBlock.gif            
    Return 0
    InBlock.gif        
    End If
    ExpandedBlockEnd.gif    
    End Function
    2.
    ExpandedBlockStart.gifContractedBlock.gif Private Function GeteachQty()Function GeteachQty(ByVal obj As ObjectAs Integer
    InBlock.gif 
    InBlock.gif     
    Return IIF(IsDBNull(obj),0,Convert.ToInt32(obj))

    ExpandedBlockEnd.gif    
    End Function

    相同,不同,相同,不同........

    我认为不同,根据我的测试结果,我猜测代码2更接近代码3

    3.
    ExpandedBlockStart.gifContractedBlock.gif Private Function GeteachQty()Function GeteachQty(ByVal obj As ObjectAs Integer
    InBlock.gif        
    Dim resule as Integer=Convert.ToInt32(obj)
    InBlock.gif        
    If IsDBNull(obj) = False Then
    InBlock.gif            
    Return resule 
    InBlock.gif        
    Else
    InBlock.gif            
    Return 0
    InBlock.gif        
    End If
    ExpandedBlockEnd.gif    
    End Function


    如果我的猜测没错的活,那么IF与IIF就有着本质上的区别,根本不能互换,各位在使用过程中一定要小心。

    转载于:https://www.cnblogs.com/weisai/archive/2005/09/26/244454.html

    展开全文
  • Delphi 中if else 的用法

    万次阅读 2012-05-07 11:41:30
    其实delphi中的IF语句和VB中的语句有点相像,都是IF .... THEN... 不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧,呵呵。 下边写几个IF语句的例子": 1. IF.. THEN ...
  • 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//...
  • VB.NETIIF和IF使用效率分析

    千次阅读 2012-07-27 15:29:07
    这个三目运算符在某种情况下可以视作精简版的"if ... else...". 例如: if(strTemp=="Test") strTemp="Yes"; else strTemp="No"; 如果使用”?:“三目运算符后,可以用如下的方式:
  • VB6.0的编译预处理——#IF语句

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

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

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

    2016-05-19 17:41:56
    Private Sub Command1_Click() Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 230: b = 16 While a ...If yushu s = yushu & s Else s =
  • 太冗余了....Private Sub Check1斜体_Click()If Check1斜体.Value = 1 ThenText1.FontItalic = TrueElse: Text1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check2粗体_Click()If Check2粗...
  • VB.NET的程序流控制

    2017-12-03 11:15:47
    ELSEIF Then '/语句 ELSE '/语句 END IFIIF函数 IIF(表达式1,表达式2,表达式3)dim a AS Integer = IIF(1>0,1,2) '/ 此时a=1 等同于java的三目运算符Select … Case 语句 Select…Case语句是分支选择语句,它...
  • VB自带:Atn ArcSin: Function ArcSin(X As Doule) As Double Dim Temp As Double If X = 0 Then Temp=0 Else Temp = Atn(X/Sqr(1-X*X)) End If ArcSin=Temp End Function ArcCos: Function ArcCos(X As ...
  • vb中动画程序设计

    2012-05-08 20:46:26
    学习这个还挺有意思的!  编写程序代码如下: Public TopBottom, LeftRight As String Private Sub Form_Click()... If Timer1.Enabled = False Then  Timer1.Enabled = True  Else  Timer1.Enabled = False
  • 这是模块引用的代码:Public Function executesql(ByVal sql As String, msgstring As String) Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim stokens() As String On Error GoTo executesql_...
  • VB这行代码能不能简化下:If X (0 - X)+1 Else X=Int(X)
  • VB中基于Text1文本框的PasswordChar属性

    千次阅读 2019-03-04 09:26:45
    此程序Text的属性栏PasswordChar属性设置为 * Private Sub C1_Click() If Text1.Text = “123456” Then Text1.Text = “口令正确” Text1.PasswordChar = “” Else Text2.Text = Text2.Text - 1 If Text2.Text &...
  • 2016年6月15日14:26:27——... 原先我的做法是一大串if……elseif ……elseif……elseif……end if 不但麻烦,而且在添加新radiobutton(或者删除、升级)后,容易忘记添加分支语句,导致bug。 现以radiobutton为例,给
  • If Mid(strData, 1, 1) = "," Then '第一个字符为" If InStr(Trim(strData), "SRFF File:") > 0 Then strData = UCase(strData) Me.lblJobcode = pJobCode ... Else pStage = ">" Lstage.Caption = "B
  • Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 230: b = 16 While a ...If yushu s = yushu & s Else s = Chr(yushu + 55) &
  • VB.net死循环使用UI

    2015-11-30 13:44:40
    要实现的功能:在死循环使用VB的UI界面 窗体构成:1个Form(Form1):包含两个Button(Button1&&Button2)和一个List(LIstBox1) 运行环境:VS2012 VB代码: Imports System.Threading Public Class Form1 ...
  • 用循环判断checkbox的值是真和假在把他们放到数据库里~ 回答者: ssq1314 - 助理 三级 9-14 15:01 检查.value属性就可以了。 ...Private Sub Check1_Click() ...If Check1.Value = ...ElseIf Check1.Valu...
  • VB编写完整源码判断字符串某一字符是否大写,执行下面的代码,这个例子简单哦,不多介绍了,直接看代码吧:  If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1))  Label2.Caption = ...
  • Vb.net 条件分支语句

    千次阅读 2009-08-21 17:12:00
    一、简单If条件语句使用在称之为分支结构的特殊语句块的条件表达式控制了程序...最简单的“If...Then”分支结构可以只写在一行: If Condition Then Statement[Else statement] 注意:“If...Then”分支结构用于给程
  • VB6.0编译环境能打开excel ,但生成exe文件后,就报错![图片说明](https://img-ask.csdn.net/upload/201705/17/1495000293_517657.jpg) ``` Option Explicit Dim newxls As New Excel.Application Dim ...

空空如也

空空如也

1 2 3 4 5 ... 13
收藏数 242
精华内容 96
关键字:

vb中elseif