第7章-循环结构程序设计.pptVIP

第七章 循环结构程序设计 第一节 For型循环语句 第二节 其他循环语句 Do...Loop While...Wend 第三节 循环控制结构的嵌套 内容概述： 循环结构可以重复不断地执行某一个程序段，直到不满足循环条件时退出循环。 本章主要介绍For型循环语句、While型循环语句以及Do型循环语句的格式和特点，各自适用于什么样的情况，如何进行转换。For型循环语句的循环次数是确定的，该语句把关于循环控制的3个环节集中到语句开头，是最紧凑的循环表达形式；While型循环语句把循环条件设置在循环体之前；而Do型循环语句可以把循环条件设置到循环体之前或之后。 第一节 For型循环语句 ● For…Next型循环 ● For Each…Next型循环 ● For…Next型循环 【格式】For循环变量=初值To终值 [Step步长] 循环体 Next[循环变量] 【功能】重复执行一段程序。通过设置一个循环变量来控制循环的次数。 ● For…Next型循环 【例7-1】利用For…Next型循环语句编写程序，计算1+2+3+4+5+…+99+100的值。 Private Sub Form_Load() Dim i, sum As Integer sum = 0 For i = 1 To 100 sum = sum + i Next i MsgBox (sum = + Str(sum)) End Sub 省略步长，则默认步长为1，表示每循环1次，i值增加1，因此循环条件是i≤100。如果反过来，从100加到1，步长为-1，表示每循环1次，i值递减1，对应的循环条件就应改为i≥1，初值是100，终值是1。 ● For…Next型循环 程序如下所示： For i = 100 To 1 Step -1 sum = sum + i Next i 如果把步长改为2，则每循环1次，循环变量增加2，程序的功能变成将1到100之间的奇数进行累加。 For i = 1 To 100 Step 2 sum = sum + i Next i 可见，For循环适合于循环次数已知的循环，特别是某些有规律的公式的计算，其中循环变量不仅作为控制循环次数的关键点，同时也经常成为循环体中参与运算的对象，从而发挥双重作用。 例1 求T = 8! = 1×2×3×…×8 采用Print直接在窗体上输出结果，程序代码： Private Sub Form_Load() Show t = 1 For c = 1 To 8 t = t * c Next c Print T=; t End Sub 程序运行结果是： T＝40320语句t=t*c也称乘法器。先将t置1(不能置0)。在循环程序中，常用累加器和累乘器来完成各种计算任务 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load( ) Show Dim pi As Single, c As Integer, s As Integer pi = 0 s = 1 s表示加或减运算 For c = 1 To 10000 Step 2 pi = pi + s / c