VB For 循环语句的用法_VB教程_网络编程_码蚁之家_www.codes51.com
返回首页
专题
网络编程
ASP教程 .NET教程 PHP教程 JSP教程 C#教程 Java教程 Delphi教程 VB教程 C/C++教程 Android开发 IOS开发 Windows Phone开发 Python教程 Ruby教程 移动开发 其他编程教程
网页制作
HTML教程 CSS教程 Dreamweaver教程 FrontPages教程 Javascript教程 web前端
数据库
SqlServer MySql Oracle Access DB2 SQLite 其他数据库
图形设计
photoshop教程 Fireworks教程 CorelDraw教程 Illustrator教程 AutoCad教程 FLASH教程
操作系统
Windows xp教程 Windows 7教程 Windows 8教程 Windows 2003教程 Windows Server 2008教程 Linux教程 Windows 10
网站运营
建站经验 SEO优化 站长心得 网赚技巧 网站推广 站长故事
手机学院
手机速递 安卓教程 iphone教程 手机评测 手机技巧 手机知识 手机应用 手机游戏 手机导购
网店宝典
开店指导 开店经验 网店装修 网店推广 网店seo 网购技巧
软件教程
办公软件 系统工具 媒体工具 压缩工具 图文处理 文件管理
范文之家
自我介绍 自我鉴定 写作模板 合同范本 工作总结 贺词祝福语 演讲致辞 思想汇报 入党申请书 实习报告 心得体会 工作计划 简历模板 工作报告 导游词 评语寄语 口号大全 策划书范文
信息工程
软件工程 企业开发 系统运维 软件测试
移民之家
移民动态 移民政策 移民百科 移民生活 技术移民 投资移民
知识大全
母婴 数码 摄影 装修 美文 常识 时尚 婚嫁 美食 养生 旅游 兴趣 职场 教育 文学 健康
问答大全
电脑网络 手机数码 QQ专区 生活 游戏 体育运动 娱乐明星 休闲爱好 文化艺术 社会民生 教育科学 健康医疗 商业理财 情感家庭 地区问题 其他
编程问答
IOS Android .NET Java C/C++ Delphi VC/MFC 其他语言 PHP MSSQL MYSQL Oracle 其他数据库 Web开发 Windows Linux 硬件/嵌入开发 网络通信 移动开发 云计算 企业IT 游戏开发
笑话大全
幽默笑话 爱情笑话 成人笑话 校园笑话 爆笑笑话 综合笑话 古代笑话 现代笑话 国外笑话

VB For 循环语句的用法

来源:互联网  时间:2017/3/15 17:49:15

For循环的格式:

For 循环变量 = 初值 To 终值 [Step 步长]   step 2 就是i=i+2

[循环体]

Next [循环变量]

注意:

1) 当步长 > 0 时

循环执行的条件:循环变量 <= 终值

2) 当步长 < 0 时

循环执行的条件:循环变量 >= 终值

强行退出 For 循环,请使用 Exit For。

举例1: 单击命令按钮 Command1 后,先后弹出很多消息框,消息内容一开始是 1,最后是 100,每弹出一次,消息内容加 1,也就是 1; 2; 3; ...; 98; 99; 100。

VB 代码如下:

Private Sub Command1_Click()

Dim i As Long

For i = 1 To 100

MsgBox i

Next

End Sub


如果使用 For 语句,代码如下:

Private Sub Form_Load()

For i = 1 To 100

MsgBox i, vbInformation      /vbInformation 指显示图标,下同

Next

MsgBox "Finished", vbCritical

End Sub


举例2,While格式

如果不用 For 语句,我们可以这样做:

Private Sub Form_Load()

Dim i As Long

i = 1

While i <= 100 '使用 While 语句

MsgBox i, vbInformation

i = i + 1 '这句话千万不能少!否则会造成死循环!!

Wend   '不能用end while

MsgBox "Finished", vbCritical

End Sub

举例3,Do while

Private Sub Form_Load()

Dim i As Long

i = 1

Do While i <= 100 '使用 Do While 语句

MsgBox i, vbInformation

i = i + 1 '这句话千万不能少!否则会造成死循环!!

Loop

MsgBox "Finished", vbCritical

End Sub


举例3 do until

如果连 Do While 都不能用,我们还可以这样做:

Private Sub Form_Load()

Dim i As Long

i = 1

Do Until i > 100 '使用 Do Until 语句

MsgBox i, vbInformation

i = i + 1 '这句话千万不能少!否则会造成死循环!!

Loop

MsgBox "Finished", vbCritical

End Sub



上一篇VB原代码之QQ尾巴(全注释)
下一篇VB键盘输入一个数求阶乘的和
明星图片
相关文章
《 VB For 循环语句的用法》由码蚁之家搜集整理于网络,
联系邮箱:mxgf168#qq.com(#改为@)