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

  勇芳 2020-3-16 11361

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

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


循环内控制语句,就是循环内使用的语句,例: Exit For

VB6:Exit For | Do | While    就是退出循环
VFB:Exit For | Do | While | Select    退出循环 
         Continue For | Do | While        下一个循环

表面上看去,只是多了 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,会给你新的编程世界。

因国家互联网安全管理要求,关闭回帖功能。大家需要留言,请使用【勇芳软件客服】即时联系勇芳点此打开->>勇芳软件客服
返回
联系勇芳
发新帖 搜索 反馈 回顶部