nynw.net
当前位置:首页 >> VB中,GOTO语句 >>

VB中,GOTO语句

设定一个标号,然后直接goto 标号 比如 Sub GotoStatementDemo() Dim Number, MyString Number = 1 ' 设置变量初始值。 ' 判断 Number 的值以决定要完成那一个程序区段(以“程序标签”来表式)。 If Number = 1 Then GoTo Line1 Else GoTo Line2 L...

行号和行标签(应该就是你说的标号)其实是一样的。都是需要事先定义的。 Sub a() If Date Mod 2 = 0 Then GoTo 30 '跳到行号为30的代码行 Else GoTo LineInput1 '跳到行标签为 LineInput1 的代码行 End If 10: MsgBox "10" 20: MsgBox "20" 30:...

比如:1) private sub Command1_click() on error goto ErrHandle '遇到错误转移 ... exit sub ErrHandle: '错误处理语句. end sub 2) if n>5 then goto aa: '转到标号aa 处 无条件跳转 else endif aa: ……

用for循环: a=text1.text for i = 1 to listbox1.count fun=listbox1.list(i) if fun(a)=条件 then 满足条件后执行内容 exit for end if next i

GoTo 语句 无条件地转移到过程中指定的行。 语法 GoTo line 必要的 line 参数可以是任意的行标签或行号。 说明 GoTo 只能跳到它所在过程中的行。 注意 太多的 GoTo 语句,会使程序代码不容易阅读及调试。尽可能使用结构化控制语句(Do...Loop、Fo...

举个例子: Sub example() Dim a As Integer a = 0LineLabel: '行标签 a = a + 1 If a = 10 Then Exit Sub '防止死循环 GoTo LineLabel '跳转到名为 LineLabel 的行标签处End Sub

On Error 语句 启用或禁用错误处理程序。 On Error Resume Next On Error GoTo 0 说明 如果在您的代码中未使用 On Error Resume Next 语句, 所发生的运行时错误 将显示错误信息,同时,代码的执行也随之终止。但是具体操作由运行代码的主机决定...

通俗点讲:Goto语句只能“去”,但不能返回。 而GoSub不仅仅可以去,还可以通过Return返回到Gosub语句后面。 例如: Sub xx() Dim i as long i = 1 Goto iNext i = 100 Msgbox i Exit Sub '通常Goto或者Gosub语句,如果跳转后代码在末尾,为防止多...

用一个变量作为开关 if xxx then bln=true end if if bln=true then 15 行代码 end if

在insert:前加一句 exit sub

网站首页 | 网站地图
All rights reserved Powered by www.nynw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com