初中 初二 信息技术 节日彩灯课件

1、信息技术八年级 下册广东省高等教育出版社B版节日彩灯深圳市福田区红岭中学园岭初中部石丽娜校庆来临之际，小明用VB6.0制作了“校庆海报”，观摩小明的作品，说说你观察到的“彩灯”有什么效果？（从数量和颜色两个方面思考）海报中的多盏彩灯在不停随机变换颜色Shape控件数组颜色函数：RGB()随机函数：Rnd取整函数：Int()Timer控件校庆来临之际，小明用VB6.0制作了“校庆海报”，观摩小明的作品，说说你观察到的“彩灯”有什么效果？（从数量和颜色两个方面思考）RGB函数计算机中每种颜色都是由红（R）、绿（G）、蓝（B）这三种基本颜色按不同比例生成的RGB（红色值，绿色值，蓝色值）其中每种颜色

2、值的取值范围都是0255的整数思考：你可以用RGB函数表示的最多种颜色是多少？RGB（255，0，0）红色彩灯颜色随机变换 RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256) Rnd: 0, 1) 小数256*Rnd：0, 256) 小数Int(256*Rnd): 0, 255 整数任务一：制作出一盏彩灯的颜色变换效果1、添加Shape控件作为彩灯2、添加Timer控件3、利用RGB函数设置彩灯的颜色Private Sub Timer1_Timer()Shape1.BackColor = RGB(Int(Rnd * 256), Int(Rnd

3、* 256), Int(Rnd * 256)End SubTimer()事件参考程序：顺序结构分支结构循环结构循环变量：初值、终值、步长0100For循环小红从起点0出发，到终点100处，如果每一步是1，需要跨多少步？如果每一步是2呢？循环体：需要重复执行的操作For 循环变量 = 初值 To 终值 Step 步长值语句组NextFor 循环语句的格式初始位置=0当前位置到达100？往前跨1步否0100For 循环变量 = 初值 To 终值 Step 步长值语句组NextFor 循环语句的格式初始位置=0当前位置到达100？否0100往前跨1步For 循环变量 = 初值 To 终值 Step

4、步长值语句组NextFor 循环语句的格式初始位置=0当前位置到达100？往前跨1步当前位置增加1否0100For 循环变量 = 初值 To 终值 Step 步长值语句组NextFor 循环语句的格式初始位置=0当前位置到达100？往前跨1步当前位置增加1是否循环结束0100For循环的执行步骤循环变量=初值循环变量超过终值语句组循环变量增加一个步长是否循环结束任务二：设置十盏灯的颜色变换的效果（1）用顺序结构（2）用循环结构Private Sub Timer1_Timer()Shape1(0).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), I

5、nt(Rnd * 256)Shape1(1).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(2).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(3).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(4).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256

6、)Shape1(5).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(6).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(7).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(8).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(9).B

7、ackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)End SubPrivate Sub Timer1_Timer()Dim i As IntegerFor i = 0 To 9 Step 1Shape1(i).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)NextEnd Sub循环结构参考程序：Do循环语句的格式Do While 语句组 Loop循环条件满足吗？循环体否是循环结束（1）计算2+4+6+.+98+100的结果，你会如何计算，如何编写程序来计算呢？（2）利用Do循环语句来制作十盏灯的颜色变换效果（3）思考：解决同样的问题，人与计算机有何不同？Private Sub Command1_Click()Dim i, s As Integers = 0For i = 2 To 100 Step 2s = s + iNextForm1.Print 2+4+6+.+98+100=; sEnd Sub参考程序：Private Sub Timer1_Timer()Dim i As Integeri = 0Do While i 10Shape1(i).BackColo