Exit语句的语法是:
Exit { Do | For | Function | Property | Select | Sub | Try | While }
Dim a As Integer = 10 '执行while循环体 While (a < 20) Proj.MsgDebug.Add("value of a: {0}", a) a = a + 1 If (a > 15) Then '使用exit语句终止循环 Exit While End If End While '返回结果:value Of a: 10 '返回结果:value Of a: 11 '返回结果:value Of a: 12 '返回结果:value Of a: 13 '返回结果:value Of a: 14 '返回结果:value Of a: 15 |