大虾们,偶想把goto与for套用,比如说套用4个循环但都要它们不一样该怎么做?
或者直接告诉我goto的用法和格式也可以啊~

解决方案 »

  1.   

    不知道可以这样吗?我用了但是有问题。得出的结果不对
    For k = 1 To 4
     For m = 1 To 4
      If m = k Then
       GoTo mm
      End If
      For n = 1 To 4
       If n = k Or n = m Then
        GoTo nn
       End If
       For l = 1 To 4
        If l = k Or l = m Or l = n Then
         GoTo ll
        End If
         st = a(k) + b(m) + c(n) + d(l)
         If st > s Then
          s = st
          kc = k
          mc = m
          nc = n
          lc = l
         End If
    ll: Next l
    nn: Next n
    mm: Next m
    Next k
      

  2.   

    GoTo 语句
          无条件地转移到过程中指定的行。语法GoTo line必要的 line 参数可以是任意的行标签或行号。说明GoTo 只能跳到它所在过程中的行。GoTo 语句示例
    本示例使用 GoTo 语句在一个过程内的不同程序段间作流程控制,不同程序段用不同的“程序标签”来区隔。Sub GotoStatementDemo()
    Dim Number, MyString
       Number = 1    ' 设置变量初始值。
       ' 判断 Number 的值以决定要完成那一个程序区段(以“程序标签”来表式)。
       If Number = 1 Then GoTo Line1 Else GoTo Line2
       
    Line1:
       MyString = "Number equals 1"
       GoTo LastLine   ' 完成最后一行。
    Line2:
       ' 下列的语句根本不会被完成。
       MyString = "Number equals 2"
    LastLine: 
       Debug.Print MyString   ' 将“"Number equals 1"”显示在“立即”窗口。
    End Sub
      

  3.   

    for.....next是一种基本的语句结构,不能拆分成两部分!
    问题就再这里:
    ll: Next l
    nn: Next n
    mm: Next m
    如果要满足条件就如何如何时,你可以这样写:For n = 1 To 4
       If n = k Or n = m Then
        exit for           '############注意此处!!!
       End If
    ....
    ...
    next
    其他仿此。
      

  4.   

    ll: Next l
    ll:
    Next lnn:
    Next nmm:
    Next m
    在循环中,只能从循环里往外跳,不能从外往里跳.
      

  5.   

    用goto 强制执行标签后面的语句
    goto haha
    ……
    ……
    ……
    haha:
    ……
    ………………
    …………
      

  6.   

    无条件地转移到过程中指定的行。语法GoTo line必要的 line(传递给一个过程的常数、变量或表达式) 参数可以是任意的行标签或行号。说明GoTo 只能跳到它所在过程中的行。注意 太多的 GoTo 语句,会使程序代码不容易阅读及调试。尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else、Select Case)。GoTo 语句示例本示例使用 GoTo 语句在一个过程内的不同程序段间作流程控制,不同程序段用不同的“程序标签”来区隔。Sub GotoStatementDemo()
    Dim Number, MyString
       Number = 1    ' 设置变量初始值。
       ' 判断 Number 的值以决定要完成那一个程序区段(以“程序标签”来表式)。
       If Number = 1 Then GoTo Line1 Else GoTo Line2
       
    Line1:
       MyString = "Number equals 1"
       GoTo LastLine   ' 完成最后一行。
    Line2:
       ' 下列的语句根本不会被完成。
       MyString = "Number equals 2"
    LastLine: 
       Debug.Print MyString   ' 将“"Number equals 1"”显示在“立即”窗口。
    End Sub
      

  7.   

    行号:程序
          goto:行号
    不就行了?goto是一个非常好的语句,少量使用会使程序的效率更高。支持goto!
      

  8.   

    goto aaa
    、、、、
    、、、、
    语句
    、、、、
    、、、、
    、、、、
    aaa:
      语句 
    、、、、