- 1、本文档共31页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第章循环结结构
第6章 循环结结构
在Visual Basic程序的三种结构中,循环结构是一种重要结构。
循环的本质:不断地重复某种动作。
对计算机程序而言,循环必须具备两个重要因素:
1. 在一定的条件下,重复执行一组语句
2. 必然出现不满足条件的情况,使循环终止
VB中提供了两种类型的循环语句:一种是计数循环语句;另一种是条件循环语句。Visual Basic 支持的循环结构有:
☆ Do…Loop
☆ For...Next
☆ While…Wend
重点掌握: Do…Loop、 For.Next、 While…Wend等前三种循环
6.1 Do…Loop循环结构
6.1.1 当型循环结构
Do…Loop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式:
⑴ . Do While … Loop 语句
⑵ . Do … Loop While 语句
⑶ . Do Until …Loop 语句
⑷ . Do …Loop Until 语句
⑴. Do While … Loop语句
语法格式:
Do While 〈条件表达式〉
循环体〉
[Exit Do]
〈循环体〉
Loop
说明:
① 条件表达式可以是一个逻辑表达式,也可以是一个关系表达式,其值应是逻辑型。
② Do While和Loop应成对出现。
③ 循环体中要有控制循环的语句,以避免出现死循环。
④ 由于该循环的特点是先判断条件,然后再决定是否要执行循环体里的语句。所以,这种循环可以一次也不执行循环体。
⑤ Exit Do 表示当遇到该语句时,强制退出循环,执行Loop后的下一条语句
例6-1 求1+2+3+……+100
Private Sub Form_Click()
Dim sum, n As Integer
sum = 0: n = 1
Do While n = 100
sum = sum + n
n = n + 1
Loop
Text1.Text = Str(sum)
End Sub
例6-2 计算若干各个学生每门课的平均平均分。
Private Sub Form_Click()
Dim score, sum, N As Integer
Dim average As Single
N = 0
sum = 0
score = InputBox(请输入第 N + 1 个同学的成绩, 成绩输入)
Do While score -1
sum = sum + score
N = N + 1
score = InputBox(请输入第 N + 1 个同学的成绩, 成绩输入)
Loop
average = sum / N
Print 平均分=; average
End Sub
例6-2a 使用exit do的程序。
求出
Private Sub Form_Click()
Dim n As Integer
Dim s As Integer
n = 1
s = 0
Do While s 1000
s = s + n * n
n = n + 1
Loop
Print s=; s, n=; n
End Sub
6.1.2 直到型循环语句
Do … Loop While语句
语法格式1:
Do
〈循环体〉
[Exit Do]
〈循环体〉
Loop While〈条件表达式〉
语法格式2:
Do
〈循环体〉
[Exit Do]
〈循环体〉
Loop until〈条件表达式〉
① 至少要执行循环体一次。
② 与Do While循环的区别:
Do While循环先测试条件是否成立,只有成立才执行循环;而该循环先执行循环体,后测试条件是否成立。
例6-3 用直到型循环实现1+3+5+7+……+999,当和大于5000时退出。
Private Sub Command1_Click()
Dim s, n As Integer
s = 0: n = 1
Do
s = s + n
If s 5000 Then Exit Do
n = n + 2
Loop While n = 999
Print s=; s
End Sub
Private Sub Command2_Click()
Dim s, n As Integer
s = 0: n = 1
Do
s = s + n
If s 5000 Then Exit Do
n = n + 2
Loop Until n 999
Print s=; s
End Sub
例6-4 人口增长问题。
Private Sub Command1_Click()
Dim p As Double
Dim r As Singl
您可能关注的文档
最近下载
- 全国职业院校技能大赛双数年赛项规程 ZZ048 无人机操控与维护赛项规程;ZZ049 焊接技术赛项规程 .pdf
- 专题26:事件的独立性、频率与概率(5知识点+6题型) (解析版)-2023-2024学年高一数学阶段复习考点归纳总结突破练(人教A版2019必修第二册).docx
- 无痛分娩方式对剖宫产率的影响分析.docx VIP
- 麻醉科个案护理比赛优秀案例ppt.pptx
- 危险废弃物管理制度.docx VIP
- 人教部编版二年级上册《小蝌蚪找妈妈》集体备课共案教案含教学反思.pdf
- 周建平药品热原检查与细菌内毒素检查方法介绍.pptx
- 《教育学》名词解释汇总(国外英语资料).doc
- DnD5E人物卡可填充版汉化版.docx
- YB4358-2013 钢铁企业胶带机钢结构通廊设计规范.pdf
文档评论(0)