,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,第六章 循环结构程序设计,主讲教师,杨 玲,6.1 FORNEXT语句,6.2 DoLoop循环语句,6.3 列表框与组合框,第六章 循环结构程序设计,一般用于循环次数的情况下。格式:,For 循环变量初值 to 终值 Step 步长,语句组1,Exit For,语句组2,Next 循环变量,循环体,开始,循环变量=初值,循环变量终值,执行循环体,循环变量=循环变量+步长,结束,YES,NO,6.1 FORNEXT语句,满足条件时从上到下执行循环体,修改循环变量,返回FOR继续判断循环条件,例 题,s=0,For I=1 to 100 step 1,s=s+I,Next I,print“s=;s,求1+2+3+100的和。,例 题,s=0,For I=100 to 2 step-2,s=s+I,Next I,print“s=;s,求2+4+6+100的和。,例 题,s=0,For I=1 to 10,x=inputbox(“输入数值),s=s+x,Next I,aver=s/10,print“aver=;aver,任意输入十个数，求它们的平均值。,tep为时省略,例 题,s=0,For I=300 to 500,if x/3=int(x/3)then,s=s+x,end if,Next I,print“s=;s,求300，500间能被3整除的数的和。,例 题,Sub form_Click(),Dim N As Integer,N=InputBox输入 N：,s=0,For i=1 To N,s=s+I,if s2000 then exit for,Next i,Print N,s,End Sub,求1+2+3+n的和。,例 题,Sub form_Click(),Dim N As long,N=InputBox输入 N：,t=1,For i=1 To N,t=t*i,Next i,Print t,End Sub,求N!的和。,连续输入十个整数，分别计算其中正数个数及总和，负数个数及总和。,Private Sub Form_Click(),Z=0:S1=0,F=0:S2=0,For i=1 To 10,n=InputBox(请输入数据：,输入),If n 0 Then,F=F+1：S2=S2+n,Else,Z=Z+1：S1=S1+n,End If,Next i,Print 共有;F;个负数，它们的和为：;S2,Print 共有;Z;个正数，它们的和为：;S1,End Sub,例 题7,一般形式,For,I=,For,=,For,=,Next,I,Next,Next,6.1 FORNEXT语句,ForNext语句的嵌套,Sub form_Click(),Dim s As long,dim t as long,dim I as integer,dim j as integer,s=0,For i=4 To 6,t=1,for j=1 to i,t=t*j,next j,s=s+t,next I,print s,End Sub,例 题,求4!+5!+6!。,Private Sub Form_Click(),Form1.FontSize=12,Print Tab(50);九九乘法表,Print,Form1.FontSize=9,For i=1 To 9,For j=1 To i,s=i*j,Print Tab(j*12);i;*;j;=;s;,Next j,Print,Next i,End Sub,例 题,Private Sub Form_Click(),For i=1 To 6,Print Tab(21-i);,For j=1 To 2*i-1,Print$;,Next j,Print,Next i,End Sub,例 题,打印图形,Do While,语句组1,Exit Do,语句组2,loop,开始,执行循环体,计算条件值,条件为真吗？,结束,Yes,No,开始,执行循环体,计算条件值,条件为真吗？,结束,No,Yes,6.2 DoLoop循环语句,循环体,满足条件时从上到下执行循环体,返回DO继续判断循环条件,Do,Until,不满足条件时从上到下执行循环体,1.前测型DoLoop循环语句格式,返回DO继续判断循环条件,S=0,i=1,Do,While,i 100,s=s+i,i=i+1,Loop,Print s,例 题,例1：求1+2+3+100,Private Sub command1_Click(),Do While Text1.Text “0,x=InputBox(请输入下一个行李的重量),Text1.Text=x,If Text1.Text=50 Then,Text2.Text=Text1.Text*0.2,Else,Text2.Text=50*0.2+(Text1.Text-50)*0.3,End If,Loop,End Sub,例 题,例2：铁路托运行李，行李重量在50公斤以下，每公斤收取运费0.20元，,行李重量超出50公斤的，超出局部每公斤收取0.30元。,例 题,例3：求i!,Private Sub Form_Click(),Dim t As Long:Dim I As Integer,t=1:I=1,Do While I 300000 then exit do,I=I+1,Loop,Print t,End Sub,2.后测型DOLOOP循环语句,Do,语句组1,Exit Do,语句组2,Loop,While,开始,执行循环体,计算条件值,条件为真吗？,结束,Yes,No,开始,执行循环体,计算条件值,条件为真吗？,结束,No,Yes,6.2 DoLoop循环语句,循环体,经判断，循环条件成立则返回DO继续,无任何判断，先从上到下执行循环体,Loop,Until,经判断，循环条件不成立则返回DO继续,Private Sub Form_Click(),I=0,Do,I=I+1,Loop Until I=15,Print“循环结束时I的值：”；I,End Sub,Private Sub Form_Click(),I=0,Do,I=I+1,Loop While I 15,Print“循环结束时I的值：”；I,End Sub,I=15,Do While I15,I=I+l,Loop,Print 循环结束时I的值为：;I,I=15,Do,I=I+1,Loop While I10,Print 循环结束时I的值为：;I,例 题,6.3 列表框与组合框,列表框,List属性,Text属性,Listcount属性,1列表框的主要属性,ListIndex属性,Selected属性,Sorted属性,Multiselect属性,单击“确定按钮，label1将显示出列表框中的工程数。用户从列表框中任选一项，text1中的字体即变成列表框中所选字体。,Private Sub Command1_Click(),Label1.Caption=“列表框中工程数为：&List1.ListCount,End Sub,Private Sub Form_Load(),List1.AddItem“宋体:List1.AddItem 黑体,List1.AddItem“华文行楷:List1.AddItem 隶书,List1.AddItem 华文彩云,End Sub,Private Sub List1_Click(),Text1.FontName=List1.Text,End Sub,例 题,AddItem方法,把一个项目加入列表框（或组合框）中。,格式：.AddItem,位置,RemoveItem方法,从列表框（或组合框）中除去一个项目。,格式：.RemoveItem ,2列表框的主要方法,Clear方法,清除列表框的所有内容。,格式：.Clear,6.3 列表框与组合框,Private Sub Command1_Click(),List2.AddItem List1.Text,List1.RemoveItem List1.ListIndex,End Sub,Private Sub Command2_Click(),List1.AddItem List2.Text,List2.RemoveItem List2.ListIndex,End Sub,Private Sub Form_Load(),List1.AddItem AAA“：List1.AddItem BBB,List1.AddItem CCC“：List1.AddItem DDD,List1.AddItem EEE“：List1.AddItem FFF,End Sub,例 题,3.组合框控件,组合了列表框和文本框的特性。兼有列表框和文本框的功能。列表框属性根本上可用于组合框。,组合框,Style属性,决定组合框3种不同的类型：,0(下拉式组合框：既可输入又可选择。,1(简单组合框：既可以输入又可选择。,2(下拉式列表框：只能选择不能输入。,6.3 列表框与组合框,Private Sub Combo1_Click(),Text1.FontName=Combo1.Text,End Sub,Private Sub Form_Load(),Combo1.AddItem 宋体,Combo1.AddItem 黑体,Combo1.AddItem 隶书,Combo1.AddItem 华文行楷,Combo1.AddItem 华文彩云,End Sub,例 题,