分享

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

 nxhujiee 2021-12-28

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

VB6:Exit For | Do | While    就是退出循环
VFB:Exit For | Do | While | Select    退出循环 
         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
  8. '直接退到这里

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,会给你新的编程世界。

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多