第六节 节日彩灯 课件（10张幻灯片）

课件10张PPT。第二单元第六节节日彩灯海报彩灯制作方法分析目录For循环语句添加海报彩灯界面用循环结构优化彩灯控制功能：海报中的二十几盏彩灯不停地变换颜色 彩灯颜色的变换 多只彩灯的控制 计算机中每种颜色都是由红（R）、绿（G）、蓝（B）这三种颜色按不同比例生成的，每种颜色值得取值范围都为0～255。
RGB(红色值，绿色值，蓝色值）
如：红色RGB(255，0,0）采用控件数组批量添加Shape控件，接着添加Time控件，周期性重复执行二十几盏彩灯的变色 控件数组： 存储一批同类的数据。这些控件共用一个控件名 通过复制、粘贴控件的方式建立控件数组控件数组tShape1(0)
控件数组名 索引号 随机函数的格式：Rnd 作用：随机得到一个大于或等于0但小于1的数。随机函数tInt(Rnd*256 ) 随机得到0≤数字<256的整数
0≤数字<1
取整函数的格式：Int(number) 作用：得到一个不大于number的最大整数。For循环语句 For循环语句，能够帮助我们方便地执行重复的工作，使程序变得短小精悍。 For 循环变量=初值 To 终值 Step 步长值
语句组
Next For a = 0 To 29 Step 1
Shape1(a).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Next aFor循环语句 运用For循环语句，编写1+2+3+4+5+…+100的程序。定义n , s为整型数据操作：添加彩灯界面 1、 打开VB，新建程序 2、 添加 ，更改
“stretch”属性为“true”;
添加“picture”背景图3、 添加 ，更改
“backstyle”属性为“不透明”;
建立控件数组，粘贴多个形状。4、 添加 ，更改
“binterval”属性为“50”;
设置颜色跳转时间。操作：颜色代码编写Dim a As Integer ‘定义a为整型数据
Private Sub Timer1_Timer() ‘当time控件触发时
For a = 0 To 29 Step 1 ‘ 当 0 ≤ a ≤ 29时执行语句组的内容，a逐渐加1
Shape1(a).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Next a
End Sub“Shape1” 控件数组名（a为索引号）的背景色运用随机数（Rnd）和整型数据（Int)产生变换的颜色执行下个a,循环感谢聆听