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

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

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

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

通俗点讲: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语言(其他语言也差不多)并不像现在这样有结构化、模块化的事件驱动的概念,那时候的程序几...

exit for命令 k不可能=j 吧?

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