nynw.net
当前位置:首页 >> vB中goto怎么用 >>

vB中goto怎么用

A:private sub command1_click()B:dim n as integer,s as stringC:n=1D:if n>1 then goto 11 else goto 12E:11:F:s="n大于1"G:goto 13H:12:I:s="n小于等于零"J:13:K:msgbox sL:end subgoto跳转的意思,代码编号A-L.方便为您解释: A...

比如: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: ……

设定一个标号,然后直接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:...

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

Private Sub Command1_Click() Text3.Text = Text1.Text / Text2.Text End Sub '如果你改成这样,那一出错会继续执行跳转的那一行去执行的 Private Sub Command1_Click() On Error GoTo e1 Text3.Text = Text1.Text / Text2.Text

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

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

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

goto Num语句格式: goto 标号1 ...... ...... ...... 标号1: ...... ...... ...... Gosub 语句格式: gosub 标号2 语句1 ...... ...... ...... 标号2: ...... ...... ...... Return 两者的相同处,都可以实现转移;区别在于,Gusub语句可以带...

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