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

vB中goto怎么用

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

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...

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

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

行号和行标签(应该就是你说的标号)其实是一样的。都是需要事先定义的。 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

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语句会破坏程序的结构性,所以建议尽可能不用Goto。VB中保留这个命令只不过是为了与上古时代的Basic语言保持兼容性。早期的Basic语言(其他语言也差不多)并不像现在这样有结构化、模块化的事件驱动的概念,那时候的程序几...

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