技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 73|回复: 0
收起左侧

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

[复制链接]

51

主题

80

帖子

642

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
502 个
贡献
1 次
宅之契约
0 份
在线时间
22 小时
注册时间
2017-12-26
发表于 2020-3-19 22:08:55 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

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

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

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

[AppleScript] 纯文本查看 复制代码
VB6:Exit For | Do | While    就是退出循环
VFB:Exit For | Do | While | Select    退出循环 
         Continue For | Do | While        下一个循环


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

[AppleScript] 纯文本查看 复制代码
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}  是 控制流程语句继续循环的下一个迭代

[AppleScript] 纯文本查看 复制代码
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级跳转

[AppleScript] 纯文本查看 复制代码
 ''简单素数查找器
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,会给你新的编程世界。
回复

使用道具 举报

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图  

GMT+8, 2020-4-8 22:29 , Processed in 0.087442 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表