《一编程解决问题课件》初中信息技术北京2001课标版七年级下册第5册课件.pptVIP

任务1:任意位置任意颜色画一个圆。 Private Sub Command1_Click() Label1.Caption = 任务1：在窗体内的任意位置任意颜色画一个圆。 Randomize x = Form1.Width y = Form1.Height Circle (x * Rnd, y * Rnd), Rnd * 500, RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub FOR循环语句 功能：处理重复操作的语句。常用于循环次数 已知的循环控制。 格式： For 循环变量＝初值 To 终值 [Step 步长值] 循环体(即:多次重复执行的语句) Next [循环变量] 注意： For 循环变量＝初值 To 终值 [Step 步长值] 循环体(即:多次重复执行的语句) Next [循环变量] For与Next成对出现。 步长值是控制循环变量在循环执行过程中，每次增加多少的数值，可以取正值，也可以取负值，缺省时为1。 Next [循环变量]的作用是循环变量增加一个步长值。 循环变量超过终值时退出循环。 循环次数 = Int(( 终值 - 初值 ）/ 步长 + 1) For i=1 to 100 ？？？？ Next i 任务2:任意位置任意颜色画100个圆。 画圆语句 阶段检测 说说下面语句存在的问题并修改。 第1题： For I=1 to 5 step 1 Print I 缺少 Next I语句 阶段检测 说说下面语句存在的问题并修改。 第2题： For I=1 to 5 Print I Next X Next后的循环变量应为I 阶段检测 说说下面语句存在的问题并修改。 第3题： For I=5 to 1 step 1 Print I Next I 步长值应为-1 FOR循环语句执行过程 For i=1 To 10 Step 2 Print i Next i i=1 i10 Print i i=i+2 否 是 5 4 3 2 1 循环 次数 循环变量i i终值 10 输出 i=1 否 1 i=1+2=3 否 3 i=3+2=5 否 5 i=5+2=7 否 7 i=7+2=9 否 9 i=9+2=11 是 执行Next 下面的语句 等差数列 FOR循环语句执行过程 For i=5 To 25 Step 5 Print i Next i i=5 i25 Print i i=i+5 否 是 5 4 3 2 1 循环 次数 循环变量i i终值 25 输出 i=5 否 5 i=5+5=10 否 10 i=10+5=15 否 15 i=15+5=20 否 20 i=20+5=25 否 25 i=25+5=30 是 执行Next 下面的语句 等差数列 初值 终值 步长值 初值 终值 终值 步长值为正数 步长值为负数 超出：循环变量终值 超出：循环变量终值 x =0.5* Form1.Width y = 0.5*Form1.Height For i=1 to 10 Circle (x, y), 100*i, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next i 任务3:在窗体的中心画10个彩色同心圆。 拓展提高： 假如从今天开始， 第1天为“希望工程”存入1分钱， 第2 天存入2分钱， 第3天存入3分钱， 问100天后你将为“希望工程”存入多少钱？ 1+2+3+……+100=？ 0+1=1 2 1+2=3 3+3=6 …… …… …… 100 …… 数学问题 1+2+3+……+100=？ 代码？ S=0 For i=1 to 100 S=S+i Next i Print S 1+2+3+……+100=？ 本课小结 循环语句的功能。 关键字For与Next要 出现。 For与Next后面的循环变量要 。 循环变量的变化形成 。 利用循环变量的变化规律解决实际问题。 执行重复的操作。 成对