goto语句是怎样执行的

[zmhui2050]

Private Sub Command18_Click()
If lf = 1 Then
GoTo 10
End If
Call num_load(".")
10:
End Sub
假如lf=1时
是不是就不执行Call num_load(".")
直接10：

[akunkeji]

是

[爱我的人请呼吸]

是这样的

[SYSSZ]

没错.

[dingyanwei]

尽量不用或少用goto

[bob008]

咋没逻辑

[akunkeji]

"这里面执行完20： 语句之后
返回去执行，还是直接执行10："
-----会直接执行10：

[zmhui2050]

Sub num_load(n As String)
If lf = 1 Then
GoTo 10
End If
If d_data = "0" Or tf = 1 Then
d_data = n
GoTo 20
End If
l1 = Len(d_data)
l1 = l1 - 1
End If
If InStr(d_data, ".") > 0 Then
l1 = l1 - 1
End If
If l1 > 14 Then
GoTo 10
End If
d_data = d_data + n
If InStr(d_data, ".") > 0 Then
Text1.Text = d_data
End If
20:
If InStr(d_data, ".") = 0 Then
Text1.Text = d_data + "."
End If
cf = 0
tf = 0
10:
End Sub


这里面执行完20： 语句之后
返回去执行，还是直接执行10：

[fvflove]

看你的代码,好乱.逻辑性不强.

能说一说代码的功能吗?

不定有高手能帮你重写.

你的代码也有问题:

If d_data = "0" Or tf = 1 Then
d_data = n
GoTo 20
End If '这里有 End if
l1 = Len(d_data)
l1 = l1 - 1
End If '这里也有End if 有上一个End if 结果后没有If与此End if 配套,出错.

[zmhui2050]

Private Sub Command19_Click()
If cf = 1 Then
GoTo 10
End If
Call num_compute("/")
10:
fuhao = "/"
End Sub
这段代码
假如cf=1
执行了10：
是不是要返回来执行Call num_compute("/")
？

[熊孩子开学喽]

这种GOTO跳转是没有必要的:
Private Sub Command18_Click()
If lf = 1 Then
GoTo 10
End If
Call num_load(".")
10:
End Sub

你直接写:
Private Sub Command18_Click()
If lf <> 1 Then Call num_load(".")
End Sub
或者写成:
Private Sub Command18_Click()
If lf = 1 Then Exit Sub
Call num_load(".")
End Sub
不就可以了么,你那种写法简直是自讨苦吃

[熊孩子开学喽]

在VB里面,除了ON ERROR语句后面,其它地方不应该出现GOTO

[zhzboy]

其实也不尽然,根据实际情况,例如VB中循环没有C里的Continue功能,我常常用GOTO来模似,避免一个长长的IF判断,当然,这些要加注释说清楚的

[熊孩子开学喽]

[Quote=引用 12 楼 zhzboy 的回复:]
其实也不尽然,根据实际情况,例如VB中循环没有C里的Continue功能,我常常用GOTO来模似,避免一个长长的IF判断,当然,这些要加注释说清楚的
[/Quote]
VB里面是没有Continue, 在C里面Continue是用来提前结束当前循环, 但是在逻辑上,Continue也只等同于一个IF判断,因此是可以避免的.

[6742]

是的，要少用GOTO，或者尽是不用GOTO

而且GOTO后面所跟的最好也不要用什么10,20之类，最好用一个有意义的词


如跟个有实际意义的词，如GOTO EXITSUB，就表示退出子程序，时间长了后，看到这句一下了就明白是干什么用的

[游子]

很准确的告诉你 是的

[zhangchaokun]

是的

[fvflove]

'将楼盖这么高,不怕楼主摔到了.

'下面代码我帮楼主改好了.用什么Goto 啊.


Sub num_load(n As String)

  If lf = 1 Then Exit Sub

  If d_data = "0" Or tf = 1 Then
 
    d_data = n
    
    If InStr(d_data, ".") = 0 Then
       Text1.Text = d_data + "."
    End If
    
    cf = 0
    tf = 0
    Exit Sub
  Else
 
    l1 = Len(d_data)
    l1 = l1 - 1
     
  End If
   
  If InStr(d_data, ".") > 0 Then
     l1 = l1 - 1
  End If

  If l1 > 14 Then Exit Sub
  
  d_data = d_data + n
  
  If InStr(d_data, ".") > 0 Then
     Text1.Text = d_data
  End If
  
End Sub

[熊孩子开学喽]

又仔细看了下楼主中间的一大段代码,似乎有种隐隐约约的熟悉感.
想了半天终于想起来哪里眼熟了.

弱问一句:楼主之前是否只接触过APPLE II上的ROM BASIC?