VisualFreeBasic:VisualBasic6望尘莫及之循环内控制

勇芳软件

VisualBasic6：微软出品、简单易用，虽然几十年前的，依旧生命顽强，以下简称：VB6

VisualFreeBasic：集合VB6的易用和采用c语言的优点及编程底层操作，VB6高手的进阶语言，以下简称：VFB

循环内控制语句，就是循环内使用的语句，例： Exit For

1. VB6：Exit For | Do | While    就是退出循环
   
2. VFB：Exit For | Do | While | Select    退出循环
   
3.          Continue For | Do | While        下一个循环

复制代码

表面上看去，只是多了 Continue ，但实际上还有更强大的功能：
Exit For,For     可以退出多级循环
例题：

1. Dim As Integer i, j
   
2. For i = 1 To 10
   
3.     For j = 1 To 10
   
4.         Exit For, For  '直接退出2个循环，当然支持N级循环。
   
5.     Next j
   
6.     Print "我永远不会被显示出来"
   
7. Next i

复制代码

'直接退到这里
Continue {Do | For | While}  是 控制流程语句继续循环的下一个迭代

1. Dim As Integer n
   
2. Print "这是0到10之间的奇数！"
   
3. Print
   
4. For n = 0 To 10
   
5.   If ( n Mod 2 ) = 0 Then
   
6.     Continue For  '就是直接返回到 For n = 0 To 10  这行执行，效果同 Next n
   
7.   End If
   
8.   Print n
   
9. Next n

复制代码

当然还支持 N级跳转

1. ''简单素数查找器
   
2. Print "这是1到20之间的素数！"
   
3. Print
   
4. Dim n As Integer, d As Integer
   
5. For n = 2 To 20
   
6.     For d = 2 To Int(Sqr(n))
   
7.         If ( n Mod d ) = 0 Then 'd划分n
   
8.             Continue For, For 'n不是素数，所以请尝试下一个n
   
9.         End If
   
10.     Next d
    
11.     Print n
    
12. Next n

复制代码

是不是看到这里，VFB写代码比VB6简单方便多了，这只是部分，更多请亲自尝试下VFB，会给你新的编程世界。

xiawan

啥也不说了，感谢楼主分享哇！