GoTo语句无条件地将控制传递到过程中的特定行。
GoTo语句的语法是:
GoTo label
Dim a As Integer = 10 Line1: Do If (a = 15) Then '跳过迭代 a = a + 1 GoTo Line1 End If Proj.MsgDebug.Add("value of a: {0}", a) a = a + 1 Loop While (a < 20) '返回结果:value Of a: 10 '返回结果:value Of a: 11 '返回结果:value Of a: 12 '返回结果:value Of a: 13 '返回结果:value Of a: 14 '返回结果:value Of a: 16 '返回结果:value Of a: 17 '返回结果:value Of a: 18 '返回结果:value Of a: 19 |