精华内容
下载资源
问答
  • VB中Exit For与Exit Function

    千次阅读 2019-02-18 09:13:53
    1.Exit for 为直接退出循环,例如编写程序 for i= 1 to 5 if n=i then exit for end if 若n=2, 那么在n=i=2时,就直接退出FOR循环,不在进行后面的循环。 2.Exit Function 在调用函数过程时,function返回的...

    1.Exit for 为直接退出循环,例如编写程序
    for i= 1 to 5
    if n=i then
    exit for
    end if
    若n=2,
    那么在n=i=2时,就直接退出FOR循环,不在进行后面的循环。
    2.Exit Function 在调用函数过程时,function返回的是一个结果,例如编写一个函数过程suv,
    For i=1 to 5
    if n=i then
    suv=n
    exit function
    end if
    suv=0 当运行函数过程后,同样在n=i时suv=n,直接退出了函数,但是最终结果suv=0

    展开全文
  • VB中Exit try及CheckBox的lost-focus事件简介

    Exit Try

    立即退出所在的 Try 或 Catch 块。 如果存在 Finally 块,则将继续执行该块;否则,将继续执行 End Try 语句之后的语句。 只能在 Try 或 Catch 块内使用 Exit Try,不能在 Finally 块内使用它。

    ---------

    Q:  Iwould like to disable a checkbox from focusing, so that even user tabbed to orclicked on that checkbox, the checkbox still would not accept the focus, andthe focus remains where it previously is.

    Possible? Thanks...

    A1:  Ifyou want to skip the control while tabbing, use control's TabStop property andset it to false. Still, if clicked with mouse, it will still get focus. If youwant to disable the checkbox, set it's Enabled property to false. And in caseyou don't want to disable the checkbox but still don't want it to take focus,use it's GotFocus event to set Focus to any else control.

    A2:  ActuallyI would like to prevent previously focused control to issue lost-focus event.

    But, that seems impossible. So, I wouldlike to try different approach to solve the problem.

    Anyway, thank you all.

    展开全文
  • VB中End sub和Exit sub

    千次阅读 热门讨论 2017-12-30 10:13:50
    End Sub是一个过程的结束代码,每一个SUB必须应对一个END SUB。 Exit Sub是在过程内代码执行时,可选择性的退出过程执行,既不执行Exit sub之后的代码,相当于中途退出的意思,这不是必须的。 private sub ceshi...

    End Sub是一个过程的结束代码,每一个SUB中必须应对一个END SUB。

    Exit Sub是在过程内代码执行时,可选择性的退出过程执行,既不执行Exit sub之后的代码,相当于中途退出的意思,这不是必须的。

    private sub ceshi()
    Dim i as integer 
    For i=0 to 10
    if i mod 3=0 then
    Exit sub

    这里就是可选择性的退出过程的执行,这句至四年过后,最后的Msgbox就不会执行了

    Else
    Msgbox i
    End if 
    Next i mgsbox"ceshi"
    end sub

    过程结束代码,这是sub必须的。
    展开全文
  • 为什么这个Exit For一定要加,不加还出错啊,求大神指导一下,想了一晚上了,不是说如果加了Exit For就立即跳出循环嘛,那如果我选择两项,按道理来说,执行到第一项剪切到其他LIST里面就停止了嘛,但是程序跑完,两...
  • 循环控制的 Continue 和 Exit Continue 可以从 Do、 For 循环内部调用到该循环的下一个迭代 Do循环是Continue Do;For循环是Continue For Exit 使用场景多点,都是退出该语句块。例如: Exit Do :退出...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
    循环控制中的 Continue 和 Exit

     

    Continue 可以从 Do、 For 循环内部调用到该循环的下一个迭代
    Do循环中是Continue Do;For循环中是Continue For

     

    Exit 使用场景多点,都是退出该语句块。例如:
    Exit Do :退出所在的Do循环。
    Exit For:退出所在的 For 循环。
    Exit Select:退出所在的 Select Case 块。
    Exit Function :退出所在的 Function 过程。
    Exit Sub :退出所在的 Sub 过程。
    ……

     

    循环内使用Continue 和 Exit的区别,我用下图表示:

     

    演示代码如下:

        Sub Main()
            Dim s As Integer
            s = 0
            For i As Integer = 0 To 100
                If i Mod 2 = 0 Then Continue For
                s += i
            Next
            Console.WriteLine("0-100所有奇数之和为{0}", s)
    
            s = 0
            Dim j As Integer = 0
            Do While j < 100
                j += 1
                If j Mod 2 = 1 Then Continue Do
                s += j
            Loop
            Console.WriteLine("0-100所有偶数之和为{0}", s)
    
            Console.ReadKey()
        End Sub

    运行结果如下:

     

    需要注意的是,多重循环中使用Continue和Exit只对最内的循环语句有效,考虑以下代码:

        Sub Main()
            Dim student1() As String = {"张三", "李四", "王五", "赵六"}
            Dim student2() As String = {"小明", "李四", "李梅", "张三"}
    
            For i As Integer = 0 To student1.Length - 1
                For j As Integer = 0 To student2.Length - 1
                    If student2(j) = student1(i) Then
                        Console.WriteLine("找到相同的学生 " & student2(j))
                        Exit For
                    End If
                Next
            Next
            Console.ReadKey()
        End Sub

     

    外层循环枚举出student1中的每个学生,内层循环枚举出student2中的每个学生,并与外层循环中的学生姓名做对比,如果相同,则输出到屏幕,

    且由于已经找到了相同的学生,不再考虑student2中还存在同名学生的情况,所以退出内层循环。

     

    由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

    学习更多vb.net知识,请参看 vb.net 教程 目录

     

    展开全文
  • VB中求素数

    千次阅读 2020-04-20 18:01:51
    Private Sub Command1_Click() n = Val(Text2.Text) For i = 2 To n Dim flag As Boolean flag = True For j = 2 To i - 1 If i Mod j = 0 Then ...Exit For End If Next j If flag Then Text1.Text = Tex...
  • vb中for循环

    2013-12-03 14:00:14
    5.在循环中途退出循环Exit For">1 FOR为循环说明语句 由它说明循环变量的初值 终值 2 FOR与NEXT之间的为循环体 表示重复执行的部分 3 NEXT为循环终端语句 程序每执行到此表示完成了一次循环 这时循环变量就要增 ...
  • 2.不管错误处理程序还是正常的程序,vb是不识别的,即使程序有标识符的错误处理程序,vb依然采用的是顺序执行法,而我们的错误处理程序通常都放在程序末尾,所以,在正常程序结束后,都应该加一个exit sub或者exit...
  • Private Function TraceabilityZCheck() As String ... Exit Do End If m_rs.MoveNext Loop Call ReleaseRecordset(m_rs) TraceabilityZCheck = ChkStr Exit Function End Function 'TraceabilityZCheck
  • 一个是退出整个应用程序,一个是关闭其中一个form。 转载于:https://www.cnblogs.com/mianshi/archive/2010/12/07/1898596.html
  • 这是模块引用的代码: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_...
  • '在VB6删除ListView的某一行是个随意的操作,如下: If LVTranPrice.ListItems.Count = 0 Then Exit Sub Dim tmpItem As ListItem Set tmpItem = LVTranPrice.SelectedItem Dim iRes As Integer iRes = ...
  • 今天我们学习dos命令exit这个命令,退出 CMD.EXE 程序(命令解释器)或当前批处理脚本。这里我准备了一个批处理脚本test.bat,在第三行使用了exit这个命令,而且使用了参数b,退出代码使用了123。 /B 指定要退出...
  • 只要点mshflexgrid控件getfocus事件就会被触发,而cellLeave事件只有改变单元格时才会被触发,而且cellLeave事件要比getfocus事件先执行,如果cellLeave事件有msgbox或exit sub,那么getfocus就不会再执行。...
  • VB中删除数组重复元素

    千次阅读 2010-01-22 15:36:00
    Option ExplicitFunction Delete3(Arr As Variant) As Variant Dim i As Integer For i = LBound(Arr) To UBound(Arr) If i > UBound(Arr) Then Exit For If Arr(i) = 3 Then
  • 不管你是用的vb.net, C#,还是C++,都可以直接调用。 它会自见access数据库,用了存放控件名称,控件名是在程序递归读出的。用户在数据库里把中文名称翻译成你想要的英文就可以实现英文转换了。 重要的是如果你的...
  • 没搞过VB 现在给我一串VB中的base64编码,移植到Android中,按照我的想法写好之后,发现编码之后的结果并不一样,请大家给我看看。 VB: ``` Set m_oXMLElement = m_oXMLDoc.createElement("TmpBase64") m...
  • VB6处理程序错误

    2008-12-19 10:18:27
    VB6,可以使用如下语句处理程序错误,以避免程序突然中途退出。 1 On   Error   goto  errHandler: 2 ' Input your code here  3 Exit   Sub 4 5 errHandler: 6   MsgBox  Err....
  • 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 ...
  • Exit Function End If Next Errd: End Function 为啥这句 oCatalog.InstallComponent sComFolder, sTargetPath & sFileName, "", "" 会报“对象’InstallComponent‘的方法‘IComAdminCatalog2’失败“呢? ...
  • 这里是我用的代码,估计对你有用:'On Error Resume NextDim fileadd As StringCommonDialog1.ShowOpenCommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件fileadd = Common..."" Then Exit SubSet xlA...
  • MsgBox "数据已经导出到Excel。", vbInformation, "成功" Exit Function ErrHandler: '用户按了“取消”按钮 If Err.Number <> 32755 Then MsgBox "数据导出失败!", vbInformation, "失败" End If End ...
  • vb.net的碎片发生器

    2006-02-23 09:05:59
    ) Exit Sub End If For pY = 0 To NY - 1 Y = YMin + pY * (YMax - YMin) / (NY - 1) For pX = 0 To NX - 1 X = (XMin + pX * (XMax - XMin) / (NY - 1)) Iterations = Mandelbrot(X, Y, maxIterations) Dim clr As ...
  • Function getDate(a As String) As String On Error GoTo ToExit '打开错误陷阱 '------------------------------------------------ Dim b As String, ok1 As Integer For i = 1 To Len(a) ...
  • If frm基础数据_添加套餐项目.cbo套餐类型.Text = "" Then GoTo Proc_Exit '根据用户选择项目类型进行加载类型项目 If frm基础数据_添加套餐项目.cbo套餐类型 = "全部" Then strsql = "select * from 基础数据...
  • 1.退出系统Application.Exit() 2.窗体横向平铺Me.LayoutMdi(MdiLayout.TileHorizontal) 3.窗体纵向平铺Me.LayoutMdi(MdiLayout.TileVertical) 4.层叠显示Me.LayoutMdi(MdiLayout.Cascade) 5.排列窗体Me....
  • Private Sub SetListItemColor()Sub SetListItemColor() If mlvwPlayList.ListItems.Count = 0 Then Exit Sub If picBgBox Is Nothing Then Err.Raise vbObjectError + 1001, "Object PlayList...
  • VB.NETUPDATE语句执行后没有报错,数据库也没有更新,但是把语句放在Textbox提出来,在SQL Server直接执行是成功的 与数据库是可以连接的,在其他窗体也可以执行UPDATE语句、INSERT语句,SELECT语句 ``` ...
  • 我想提取下这个网页下一页的网址,但是提取失败,代码如下:有一些网页是可以提取的,我对比了下,觉得应该是GetAttribute("title")title的问题,只要把它换了就行了,但是不知道应该换成什么,我试了不行...

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 142
精华内容 56
关键字:

vb中exit