以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  FOXTABLE有没有跳转语句?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8268)
--  作者：飞鱼
--  发布时间：2010/9/26 9:48:00
--  FOXTABLE有没有跳转语句?
就是有一段代码,在几个IF ..... END IF里面都用到,又比较长,如果能公用,使用跳转语句就好了.
--  作者：狐狸爸爸
--  发布时间：2010/9/26 9:58:00
--  
Dim number As Integer = 1
Dim sampleString As String
If number = 1 Then
    GoTo Line1
End If
number =2
Line1:
sampleString = "Number equals 1"
--  作者：lihe60
--  发布时间：2010/9/26 10:05:00
--  
以下是引用狐狸爸爸在2010-9-26 9:58:00的发言：
Dim number As Integer = 1
Dim sampleString As String
If number = 1 Then
    GoTo Line1
End If
number =2
Line1:
sampleString = "Number equals 1"

Line1:

什么地方结束呀。用return吗？

[此贴子已经被作者于2010-9-26 10:05:44编辑过]
--  作者：飞鱼
--  发布时间：2010/9/26 10:05:00
--  
运行提示"line1" 没有定义
--  作者：狐狸爸爸
--  发布时间：2010/9/26 10:06:00
--  
line1后面有冒号
--  作者：狐狸爸爸
--  发布时间：2010/9/26 10:08:00
--  

GoTo Line1

表示跳转到Line1标记，标记区分大小写，用冒号结尾。
--  作者：lihe60
--  发布时间：2010/9/26 10:20:00
--  
Dim number As Integer = 1
Dim sampleString As String
If number = 1 Then
    GoTo Line1
End If
Line1:
sampleString = "Number equals 1"
Line2:
sampleString = "Number equals 2" 
output.show(sampleString)
--  作者：lihe60
--  发布时间：2010/9/26 10:29:00
--  

Dim number As Integer
Dim sampleString As String
For number=1 To 2 Step 1
    GoTo Line1
    \'GoTo Line" & number & "
    messagebox.show(sampleString)
    \'messagebox.show(1)
Next

Line1:
sampleString = "Number equals 1"
Return
Line2:
sampleString = "Number equals 2"
Return

 

 

这个代码怎么没有反应呀？
--  作者：飞鱼
--  发布时间：2010/9/27 9:26:00
--  
我在使用GOTO时也发现问题,就是把要跳转的代码挪出去后,代码中涉及到的一些变量,运行时系统提示没有定义,而这些变量在跳转前都已经定义过了的.
--  作者：狐狸爸爸
--  发布时间：2010/9/27 9:30:00
--  
请参考帮助“变量的作用范围”