1、在一定的条件下，在一定的条件下，不断重复同不断重复同 样的的操作。样的的操作。 某个固定位置上某个固定位置上 的工人劳动，有的工人劳动，有 什么共同特点？什么共同特点？ 二、循环结构流程图表示 在实际生活、学习过程中， 有哪些循环结构的例子？ 交通信号灯 四季更替 一、了解什么是循环结构 二、理解For Next循环结构的语句格式 三、掌握For Next循环结构的基本运用 一、将一、将For NextFor Next循环结构补充完整循环结构补充完整 For For To To Step Step . . Next Next . . 二、二、For NextFor Next循环结构的三大要素循
2、环结构的三大要素 1 1、 . . 2 2、 . . 3 3、 . . Private Sub Command1_Click() Private Sub Command1_Click() i i=1=1 Print Print i i; ; i i= = i i +1+1 Print Print i i; ; i i= = i i +1+1 Print Print i i; ; i i= = i i +1+1 Print Print i i; ; i i= = i i +1+1 Print Print i i; ; i i= = i i +1+1 Print Print i i; ; 1、 运
3、行结果：运行结果：1 2 3 4 5 6 7 8 9 10 i= i +1i= i +1 Print i;Print i; i= i +1i= i +1 Print i;Print i; i= i +1i= i +1 Print i;Print i; i= i +1i= i +1 Print iPrint i End SubEnd Sub 如果我们需要在窗体上输 出更多的1，几十个甚至 上百个那要怎么办呢？ 阅读如下程序代码：在窗体显示阅读如下程序代码：在窗体显示1 1到到1010之间所有之间所有自然数。自然数。 Private Sub Command2_Click() For i=1 To
4、10 Step 1 Print i ; Next i End Sub 2、 开开 始始 i1 i10 i i+1 输出输出 i 结结 束束 N Y 运行结果：1 2 3 4 5 6 7 8 9 10 阅读如下程序代码：在窗体显示阅读如下程序代码：在窗体显示1 1到到1010之间所有之间所有自然数。自然数。 对对 比比 演演 示示 在窗体显示在窗体显示1 1到到1010之间所有之间所有自然数。自然数。 (1)(1)把初值赋给循环变量。把初值赋给循环变量。 (2)(2)检查“循环变量”的值是否超检查“循环变量”的值是否超 过终值。过终值。 ( (3 3) )如果不超过如果不超过, ,就执行一次就执
5、行一次“循环体循环体”， 然后把然后把“循环变量循环变量+ +步长步长”赋给赋给“循环变循环变 量量”然后返回判断然后返回判断。 (4)(4)如果超过就停止执行“循环体”，跳如果超过就停止执行“循环体”，跳 出循环，执行“出循环，执行“NextNext”后面的语句。”后面的语句。 循环结构是指程序重复执行循环语句中的一行或多行代码，重复执行 的程序块称为“循环体”，使用循环可以避免重复丌必要的操作，简化程序， 节约内存，提高效率。循环结构三要素是循环变量、循环体和循环终止条件。 For For To To Step Step Next Next 注意：注意： 1 1、在、在ForFor循环语句
6、中，循环语句中，For For 和和 NextNext是一对语句，必须成对出现，缺一不可。是一对语句，必须成对出现，缺一不可。 2 2、StepStep可以省略，这时步长默认为“可以省略，这时步长默认为“1 1” 。 思考：思考：循环变量的增量即步长，能否为循环变量的增量即步长，能否为0 0？如果为？如果为0 0，程序的运行结果怎样？，程序的运行结果怎样？ 注意：在ForNext 循环体中，循环体变量的初值和终值都是数值型。 在此循环结构中，在此循环结构中， _ 是循环变量，是循环变量，_ 是初值，是初值，_ 是终值，是终值， “sum=sum+i”是”是 _ 。在步长为。在步长为2的情况下，
7、共执行的情况下，共执行 _ 次“次“sum =sum+i”语句。”语句。 i 1 50 循环体循环体 25 For 循环变量=初值 To 终值 Step 步长 循环体 Next 循环变量 步长是步长是1 1可以省略不写可以省略不写 For i=1 To 50 Step 2 sum=sum+i Next i 1000 1 n 计 算计 算 终 值终 值 总 和总 和 清 空清 空 Private Sub Command1_Click() Dim s As Single, i As Integer, n As Integer s=0 n = Val(Text1.Text) Text2.Text =
8、 Str(s) End Sub 设：设：s是分数的总和是分数的总和 i 是循环变量是循环变量 初值是初值是 _ 终值是终值是 _ 步长是步长是 _ 循环体是循环体是 _ 1 1 s=s+1/i For i=1 to n s=s+1/i Next i n n 在印度有一个古老的传说，国王打算奖赏发明 了国际象棋的大臣，国王问他想要什么，他对国王 说，陛下，我只要些麦粒，请您在这张棋盘的第 1 个小格放 1 粒麦子，第 2 个小格放 2 粒，第 3 小 格放 4 粒，第 4 小格放 8 粒以此类推，把 64格 棋盘放满就行了，国王觉得这个要求太容易满足了， 就答应给他这些麦粒。当人们把一袋一袋的麦
9、子搬 来开始计数时，国王才发现，就算把全印度甚至全 世界的麦粒都拿来，也满足丌了他的要求 那么，那位大臣要求得到的麦粒到底有多少呢？ 棋盘上的麦粒 格(i) 当前格子存放的麦粒数 棋盘上麦粒的总数(s) 1 1 1 2 1*2=2 1+2=3 3 2*2=4 3+4=7 4 4*2=8 7+8=15 n 2 2(i (i- -1)1) S+2S+2(i (i- -1)1) 棋盘的第一格放1粒麦粒，第二格放2粒麦粒，第三格放4粒麦粒，第四 格放8粒麦粒，即后面一格的麦粒数是前一格的2倍以此类推，请问第n 格时整个棋盘上的麦粒总数是多少？ n=Val( ) Text2.Text=Str( ) Te
10、xt1.TextText1.Text S S Text1 Text2 计 算计 算 请输入棋盘的格子数（n)请输入棋盘的格子数（n) 赏赐的麦粒总数（s) 赏赐的麦粒总数（s) 清 空清 空 For 循环变量=初值 To 终值 Step 步长（步长1可以省略） 循环体 Next 循环变量 循环变量：i 初 值：1 终 值：n 步长：1 循环体：s=s+2(i-1) Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) Text2.Text = Str(s) End
11、 Sub For i = 1 To n s = s + 2 (i - 1) Next i 什么是循环结构及说明 For Next循环结构的语句格式及说明： For For To To Step Step Next Next For Next循环结构的运用 填空完成程序填空完成程序：问：鸡兔同笼，共有问：鸡兔同笼，共有100条腿，条腿，40个头，问鸡有几只，兔有个头，问鸡有几只，兔有 几只几只?单击窗体后，在窗体上显示结果。单击窗体后，在窗体上显示结果。 Private Sub Form_Click() Dim Ji As Integer Ji变量表示鸡的个数 Dim Tu As Integer
12、 Tu变量表示兔的个数 Dim Leg As Integer Leg变量表示腿数 For Ji = 1 To 40 Tu = . 计算腿数 Leg = + Tu * 4 If Leg = Then 如果腿正好100只，则打印 Print “鸡=“; Ji; “只“, “兔=“; Tu; “只“ End If Next Ji End Sub 100 40-ji Ji*2 一、编程计算一、编程计算s=1*2+2*3+s=1*2+2*3+n*(n+1)+n*(n+1) 二、二、猴子吃桃，每天吃当天桃子的一半多一个，第十天只有一个，计算共猴子吃桃，每天吃当天桃子的一半多一个，第十天只有一个，计算共 有多少个有多少个？ 三、三、程序程序填空：使得当单击填空：使得当单击“ “计算计算1+2+3+1+2+3+100“+100“按钮后，文本框按钮后，文本框Text1Text1显示显示 1+2+3+1+2+3+100+100的值。的值。 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a= . For i = 1 To Step 1 a = . Next i Text1.Text = Str( ) End Sub
