第六节循环语句.pptVIP

第六节 循环语句 任务1：能否把画同心圆的程序语句修改，使之画出100个同心圆？ 任务4：如果把画同心圆的程序语句修改如下，会有什么运行结果。 Private Sub Command1_Click() x = 1500 y = 2000 r = 500 For i = 100 To 1000 Step 100 x = x + 100 Circle (x, y), i Next i End Sub 任务五：请你在任务四的基础上修改程序，使之有更多的运行图形。 你做好课前准备了吗？ 一：分析程序段，写出运行结果。 m = 1s = 1For i = To_____ m =_____ s = _____ Next iPrint 一共要放; s; 颗麦子 2、试创建一个工程并编写程序代码，完成以下的功能： 计算1+2+3+…….+100的值 3、试创建一个工程并编写程序代码，完成以下的功能：计算1到100(包括100)中的所有的偶数的平方和。 Do循环语句的执行过程 假设有一张足够大的纸，纸的厚度为0.1毫米。现将其对折，再对折，……其厚度不断增加(折纸时，纸的厚度按原厚度的1.2.4.8…的规律递增)，问要折多少次，才能使其厚度达到或超过珠穆朗玛峰的高度(8848米)。 设计思路：1、用H表示纸的厚度，则H的初值为H=0.0001；用N表示纸折的次数。 2、用DO循环语句来记录折的次数。 条件：H8848 循环体： N=N+1 H=H*2 3、用Print语句来显示N的值。 * 一、画同心圆的程序 Private Sub Form_Click() For i=100 To 2000 Step 100 r=i Circle (2500,2500),r Next i End Sub 二、FOX－NEXT循环语句 For循环变量=初值To终值Step步长 循环体 Next循环变量 1、FOX－NEXT循环语句中，关键字For To Next和“＝”不可省略。 2、循环变量为数值型变量，初值、终值、步长可以是数值型常量、变量或表达式。 3、步长可以是正数、负数，可以是整数，也可以是小数。当步长为1时，“Step1”可以省略。 4、FOX和NEXT之间的循环体可以是一个语句或多个语句，循环体是每次循环时重复执行的程序段。 请注意： FOX－NEXT语句的执行过程： 初值赋给循环变量，记录终值、步长值 依次执行循环体中的各语句 循环变量增加一个步长值 结束循环，执行Next语句的下一语句 循环变量的值 是否超过终值 是 否 利用循环语句，可以实现循环体内的语句反复执行，这种程序结构称为循环结构。 For i=100 To 2000 Step 100 r=i Circle (2500,2500),r Next i 任务2：如果把画同心圆的程序语句修改如下，会有什么运行结果。 r=500 For i=100 To 2000 Step 100 Circle (2500,2500),r Next i Circle语句被执行了多少次？画出多少个圆？我们能看到几个圆？ Private Sub Form_Click() x = 1500 y = 2000 r = 500 For i = 100 To 1000 Step 100 x = x + 100 Circle (x, y), r Next i End Sub 任务3：如果把画同心圆的程序语句修改如下，会有什么运行结果。 (1) x=8 For I=3 to 5 Print x Next I (2) s = 1 For I = 10 To 4 Step -3 s = s * I Print I, s Next I 动脑想、动手做 Private Sub Form_click() s=0 For i= to step__ s=_____ Next i Print 1+2+3+...+100的值为;s End Sub 2、计算1+2+3+…….+100的值。 Private Sub Form_click() For i= to 100 step__ s=_____ Next i Print “1到100中的偶数的平方和为: s End Sub 想一想、计算1到100(包括100)中的所有的偶数的平方和。 3、计算64格棋盘总共放多少麦子。 m = 1s = 1For i = 2 To 64 m = m * 2 s = s + mNext iPrint 一共要放; s; 颗麦子 3、计