大虾们,偶想把goto与for套用,比如说套用4个循环但都要它们不一样该怎么做?
或者直接告诉我goto的用法和格式也可以啊~
或者直接告诉我goto的用法和格式也可以啊~
解决方案 »
- 我是初学者,我想不出来!请好心人帮忙做题!有点着急!~
- 怎么系统安装在哪个盘符里?
- 求阴阳历转换的源代码或者算法
- 我的程序用了中文,但在英文的操作系统显示乱码,请问怎样解决?
- 如何使用这段代码=>弹出选择窗体时,该窗体位于所有者中心?
- 急急急!!!98下运行通过2000下出现“连接由远程端重新设置”错误,高手请进!!
- 怎样才能用VB将WINDOWS的开始菜单隐藏及显示
- vb的listview中如何添加列标题啊?
- 使用ADO对象连接数据库,与vb连接数据库相比有什么优点?
- 能不能给根烟~~~~~~~~~~~~~~~~~~~~~~~~
- 急!有高分送!
- 做了一个上网的监控软件,但是只能监视ie,客户还是能在资源浏览器的地址中输入网址上网。如何禁止在资源浏览器中输入网址上网?
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
无条件地转移到过程中指定的行。语法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
问题就再这里:
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
其他仿此。
ll:
Next lnn:
Next nmm:
Next m
在循环中,只能从循环里往外跳,不能从外往里跳.
goto haha
……
……
……
haha:
……
………………
…………
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
goto:行号
不就行了?goto是一个非常好的语句,少量使用会使程序的效率更高。支持goto!
、、、、
、、、、
语句
、、、、
、、、、
、、、、
aaa:
语句
、、、、