循环结构程序设计ppt课件

1、第六章第六章 循环构造程序设计循环构造程序设计主讲教师主讲教师杨杨 玲玲6.1 FORNEXT6.1 FORNEXT语句语句6.2 DoLoop6.2 DoLoop循环语句循环语句6.3 6.3 列表框与组合框列表框与组合框第六章第六章 循环构造程序设计循环构造程序设计普通用于知循环次数的情况下。格式普通用于知循环次数的情况下。格式: For 循环变量初值循环变量初值 to 终值终值 Step 步长步长 语句组语句组1Exit For 语句组语句组2 Next 循环变量循环变量循环体循环体开场开场循环变量循环变量= =初值初值循环变量循环变量 终终值值执行循环体执行循环体循环变量循环变量= =

2、循环变量循环变量+ +步长步长终了终了YESYESNO6.1 FORNEXT6.1 FORNEXT语句语句满足满足条件条件时从时从上到上到下执下执行循行循环体环体修正修正循环循环变量变量, ,前往前往FORFOR继继续判续判别循别循环条环条件件例 题s=0s=0For I=1 to 100 step 1For I=1 to 100 step 1 s=s+I s=s+I Next I Next Iprint “s=print “s=;s;s求求1+2+3+1001+2+3+100的和。的和。例 题s=0s=0For I=100 to 2 step -2For I=100 to 2 step -2

3、 s=s+I s=s+I Next I Next Iprint “s=print “s=;s;s求求2+4+6+1002+4+6+100的和。的和。 例 题s=0s=0For I=1 to 10 For I=1 to 10 x=inputbox(“ x=inputbox(“输入数值输入数值) ) s=s+x s=s+xNext INext Iaver=s/10aver=s/10print “aver=print “aver=;aver;aver恣意输入十个数，求它们的平均值。恣意输入十个数，求它们的平均值。teptep为为时省略时省略例 题s=0s=0For I=300 to 500 For

4、I=300 to 500 if x/3=int(x/3) then if x/3=int(x/3) then s=s+x s=s+x end if end ifNext INext Iprint “s=print “s=;s;s求求300300，500500间能被间能被3 3整除的数的和。整除的数的和。例 题Sub form_Click()Sub form_Click()Dim N As IntegerDim N As Integer N=InputBox N=InputBox 输入输入 N N： s=0 s=0 For i =1 To N For i =1 To N s=s+I s=s+I

5、if s2000 then exit for if s2000 then exit for Next i Next i Print N,s Print N,sEnd SubEnd Sub求求1+2+3+n1+2+3+n的和。的和。例 题Sub form_Click()Sub form_Click()Dim N As longDim N As long N=InputBox N=InputBox 输入输入 N N： t=1 t=1 For i =1 To N For i =1 To N t=t t=t* *i i Next i Next i Print t Print tEnd SubEnd S

6、ub求求N!N!的和。的和。延续输入十个整数，分别计算其中正数个数及总和，负数个数及总和。延续输入十个整数，分别计算其中正数个数及总和，负数个数及总和。 Private Sub Form_Click()Private Sub Form_Click()Z = 0:S1 = 0Z = 0:S1 = 0F = 0:S2 = 0F = 0:S2 = 0For i = 1 To 10For i = 1 To 10 n = InputBox( n = InputBox(请输入数据：请输入数据：, , 输入输入) If n 0 Then If n 0 Then F = F + 1 F = F + 1：S2

7、= S2 + nS2 = S2 + n Else Else Z = Z + 1 Z = Z + 1：S1 = S1 + nS1 = S1 + n End If End IfNext iNext iPrint Print 共有共有; F; ; F; 个负数，它们的和为：个负数，它们的和为：; S2; S2Print Print 共有共有; Z; ; Z; 个正数，它们的和为：个正数，它们的和为：; S1; S1End SubEnd Sub例 题7普通方式普通方式For I=For I= For For = For For = Next I Next I Next Next Next Next 6

8、.1 FORNEXT6.1 FORNEXT语句语句ForNextForNext语句的嵌套语句的嵌套Sub form_Click()Sub form_Click()Dim s As longDim s As longdim t as longdim t as longdim I as integerdim I as integerdim j as integerdim j as integer s=0 s=0 For i =4 To 6 For i =4 To 6 t=1 t=1 for j=1 to i for j=1 to i t=t t=t* *j j next j next j s=s+

9、t s=s+t next I next I print s print sEnd SubEnd Sub例 题求求4!+5!+6! 。Private Sub Form_Click()Private Sub Form_Click() Form1.FontSize = 12 Form1.FontSize = 12 Print Tab(50); Print Tab(50); 九九乘法表九九乘法表 Print Print Form1.FontSize = 9 Form1.FontSize = 9 For i = 1 To 9 For i = 1 To 9 For j = 1 To i For j = 1

10、 To i s = i s = i * * j j Print Tab(j Print Tab(j * * 12); i; 12); i; * *; j; =; s; ; j; =; s; ; Next j Next j Print Print Next i Next i End Sub End Sub 例 题Private Sub Form_Click()Private Sub Form_Click()For i = 1 To 6For i = 1 To 6 Print Tab(21 - i); Print Tab(21 - i); For j = 1 To 2 For j = 1 To 2

11、 * * i - 1 i - 1 Print $; Print $; Next j Next j Print PrintNext iNext iEnd SubEnd Sub例 题打印图形打印图形Do While Do While 语句组语句组11Exit Do Exit Do 语句组语句组22looploop开场开场执行循环体执行循环体计算条件值计算条件值条件为真吗？条件为真吗？终了终了YesNo开场开场执行循环体执行循环体计算条件值计算条件值条件为真吗？条件为真吗？终了终了NoYes6.2 DoLoop6.2 DoLoop循环语句循环语句循环体循环体满足满足条件条件时从时从上到上到下执下执行

12、循行循环体环体前往前往DODO继继续判续判别循别循环条环条件件Do UntilDo Until不满不满足条足条件时件时从上从上到下到下执行执行循环循环体体1.1.前测型前测型DoLoopDoLoop循环语句格式循环语句格式前往前往DODO继继续判续判别循别循环条环条件件S = 0i = 1Do While i 100 s = s + i i = i + 1LoopPrint s例 题例例1 1：求：求1+2+3+1001+2+3+100 Private Sub command1_Click()Do While Text1.Text “ 0 x = InputBox(请输入下一个行李的分量请输入

13、下一个行李的分量) 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 IfLoopEnd Sub例 题例例2 2：铁路托运转李，行李分量在：铁路托运转李，行李分量在5050公斤以下，每公斤收取运费公斤以下，每公斤收取运费0.200.20元，元，行李分量超出行李分量超出5050公斤的，超出部分每公斤收取公斤的，超出部分每公斤收取0.300.30元。元。例 题例例3 3：求：求i!i!Private

14、 Sub Form_Click()Dim t As Long:Dim I As Integert = 1:I = 1Do While I 300000 then exit do I = I + 1LoopPrint tEnd Sub2.2.后测型后测型DOLOOPDOLOOP循环语句循环语句Do Do 语句组语句组11Exit DoExit Do 语句组语句组22Loop While Loop While 开场开场执行循环体执行循环体计算条件值计算条件值条件为真吗？条件为真吗？终了终了YesYesNo开场开场执行循环体执行循环体计算条件值计算条件值条件为真吗？条件为真吗？终了终了NoNoYes

15、6.2 DoLoop6.2 DoLoop循环语句循环语句循环体循环体经判经判别，别，循环循环条件条件成立成立那么那么前往前往DODO继继续续无任无任何判何判别，别，先从先从上到上到下执下执行循行循环体环体Loop UntilLoop Until 经判经判别，别，循环循环条件条件不成不成立那立那么前么前往往DODO继续继续Private Sub Form_Click()Private Sub Form_Click()I = 0I = 0DoDoI = I + 1I = I + 1Loop Until I = 15Loop Until I = 15Print “Print “循环终了时循环终了时I

16、 I的值：；的值：；I IEnd SubEnd SubPrivate Sub Form_Click()Private Sub Form_Click()I = 0I = 0DoDoI = I + 1I = I + 1Loop While I 15Loop While I 15Print “Print “循环终了时循环终了时I I的值：；的值：；I IEnd SubEnd SubI=15I=15Do While I15Do While I15I=I+l I=I+l LoopLoopPrint Print 循环终了时循环终了时I I的值为：的值为：;I;II=15I=15Do Do I=I+1I=I

17、+1Loop While I10Loop While I10Print Print 循环终了时循环终了时I I的值为：的值为：;I;I例 题6.3 6.3 列表框与组合框列表框与组合框 列列表表框框List属性属性Text属性属性Listcount属性属性1 1列表框的主要属性列表框的主要属性ListIndex属性属性Selected属性属性Sorted属性属性Multiselect属性属性单击单击“确定按钮，确定按钮，label1label1将显示出列表框中的工程数。用户从将显示出列表框中的工程数。用户从列表框中任选一项，列表框中任选一项，text1text1中的字体即变成列表框中所选字体。

18、中的字体即变成列表框中所选字体。Private Sub Command1_Click()Label1.Caption = “列表框中工程数为：列表框中工程数为：& List1.ListCountEnd SubPrivate Sub Form_Load()List1.AddItem “宋体宋体:List1.AddItem 黑体黑体List1.AddItem “华文行楷华文行楷:List1.AddItem 隶书隶书List1.AddItem 华文彩云华文彩云End SubPrivate Sub List1_Click()Text1.FontName = List1.TextEnd Sub例 题Ad

19、dItem方法方法把一个工程参与列表框或组合框中。把一个工程参与列表框或组合框中。格式：格式：.AddItem ,位置位置RemoveItem方法方法从列表框或组合框中除去一个工程。从列表框或组合框中除去一个工程。格式：格式：.RemoveItem 2 2列表框的主要方法列表框的主要方法Clear方法方法去除列表框的一切内容。去除列表框的一切内容。格式：格式：.Clear6.3 6.3 列表框与组合框列表框与组合框Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()List1.AddItem List2.TextL