循环结构(第五章).ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,主页,第,5,循环结构程序设计,计算机具有速度快、精度高的特点，特别适于进行重复性的工作，重复次数越多越能显示它的威力。所以，使用计算机时，应尽量把问题归纳为简单而有规则的重复运算和操作，以充分发挥计算机的特长。,采用循环程序可以解决一些按一定规则重复执行的问题。例如，统计一个班几十名学生，甚至全校几千名学生的学期成绩，如求平均分、不及格人数等,本章主要内容,第,5,章,循环结构程序设计,(P93),Do.Loop,For.Next,退出,循环,出口,语句,(Exit),循环语句,多重,循环,列表框与组合框,常用算法,程序举例,循环,是指在指定的条件下多次重复执行一组语句,被重复执行的一组语句称为,循环体,VB,提供的循环语句有,For.Next,Do.Loop,While.Wend,For Each.Next,最常用的是,For.Next,和,Do.Loop,语句,假,真,循环体,循环条件,For.Next,循环主要是用在知道循环次数的情况下；若事先不知道循环次数，可以使用当型循环,Do.Loop,5.1.1 For.Next,循环语句,(,计数控制,),For,循环变量初值,To,终值,Step,步长值,循环体,Next,循环变量,5.1,循环语句,示例,求,S=1+2+3+8,s=0,For k=1 To 8,s=s+k,Next k,Print s=;s,程序运行结果如下：,s,36,K,为循,环变量,例,5.2,求,S=1+2+3+,8,，把结果显示在窗体上。,s=0,累加器初值为,0,For k=1 To 8,s=s+k,累加器，在原有和的基础上每次加一个数,Next,Print s=;s,程序执行结果是：,s,36,分析,累加器,s=s+k,旧值。前,n,项之和,新加的数,k=1,s,s+k,0 1,k=3,s,s+k,1+2 3,k=2,s,s+,k,1 2,k=8,s,s+k,1,+,2,+,7,8,算法：通常采用重复运算来解决问题,累加、累乘等,设置循环变量,使每次运算变量值有所不同,控制循环,计数控制或条件控制,循环结构程序的实现,求,S=1+2+3+8,s=0,For k=1 To 8,s=s+k,Next k,Print s=;s,把长式子改为,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,),。在循环程序中，常用累加和累乘来完成各种计算任务,例,5.3,求,T=8!=1238,例,5.3,例,5.3,T=8!=1,2,3,8,，把结果显示在网页上。,t=1,累乘器初值为,For c=1 To 8,t=t*c,累乘器，在原有积的基础上每次乘一个数,Next,Print T=;t,程序执行结果是：,T,40320,分析,c=1,t,t*c,1 1,c=3,t,t*c,1*2 3,c=2,t,t*c,1 2,c=8,t,t*c,1,*,2*,7 8,累乘器,t=t*k,旧值。前,n,项之积,新乘的数,采用,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,s=-s,交替改变加、减号,Next c,Print“pi=;pi*4,End Sub,程序运行结果是：,3.141397,例,5.4,用,/4,1-1/3+1/5-1/7+,级数求,的近似值,(,取前,5000,项来进行计算,),例,5.4,For t=1 To 3,If t=1 Then a=3,If t=2 Then a=2,If t=3 Then a=1,Print a;,Next t,Print t,A.3 3 3 3 B.1 2 3 4,C.3 2 1 4 D.1 1 1 4,下列程序的运行结果是？,想一想,思考题,D,5.1.2 Do While.Loop,语句,(,条件控制,)(P96),Do ,While|Until,条件,循环体,Loop,掌握以下格式,:,Do While,条件 当条件满足的时候执行循环体循环体,Loop ,循环返回到,do,示例,求,S=1+2+3+8,n=1:s=0,Do While n=8,s=s+n,n=n+1,Loop,Print s=;s,专设变量,n,来控制循环,采用,Do While.Loop,语句,采用,Print,直接在窗体上输出结果，程序代码：,Private Sub,Form_Load,(),Dim n As Integer,s As Long,Show,n=1:s=0,Do While n=100,s=s+n*n,n=n+1,Loop,Print s=;s,End Sub,程序运行结果：,S,338350,例,5.5,求,S,1,2,+2,2,+,+100,2,例,5.5,运行下面程序后，循环体执行了,_,次。,i=0:n=1,Do While i 0 Then,Combo1.AddItem Combo1.Text,Text1.Text=Combo1.ListCount,End If,Combo1.Text=,Combo1.SetFocus,End Sub,Private Sub Command2_Click(),“,删除”,Dim,ind,As Integer,ind,=Combo1.ListIndex,If,ind,-1 Then,-1,表示无表项,Combo1.RemoveItem,ind,删除已选定的表项,Text1.Text=Combo1.ListCount,End If,End Sub,Private Sub Command3_Click(),“,全清”,Combo1.Clear,Text1.Text=Combo1.ListCount,End Sub,Private Sub Command4_Click(),End,End Sub,