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

本文链接：https://blog.youkuaiyun.com/yfvb2010/article/details/104978315

VisualFreeBasic（VFB）结合了VB6的易用性和C语言的底层操作，为VB6程序员提供了进阶选择。VFB在循环控制上比VB6更加强大，支持Exit For、Do、While等退出循环，以及Continue For、Do、While用于下一个循环。VFB的特色在于能退出多级循环，并且支持N级跳转，让编程更为灵活便捷。想要体验更多VFB的魅力，不妨亲自尝试。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

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

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

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

Continue {Do | For | While} 是控制流程语句继续循环的下一个迭代

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

当然还支持 N级跳转

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

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