教学设计
教学重点：VB控件的创建及属性设置
教学难点：满天星程序代码的含义。
教学方法：任务驱动法 探究教学法
教学过程：
一、创设情境，激发兴趣
提问学生是否会为计算机设计屏保？是否会制作屏保？
教师演示“满天星”屏保程序——今天我们就来学习如何制作。
二、动手实践，体验新知
（一）初识VB
要设计程序首先要选择程序设计语言，因为VB操作简单，所以我们选用VB来设计程
序。简单介绍一下VB窗口组成：菜单栏、工具栏、工具箱、窗体（设计程序的舞台）
工程窗口、属性窗口、启动按钮（调试运行）
（二）完成任务
1、学生完成任务一：制作“满天星”程序
①添加“Timer控件” ②设置Form1属性：标题Caption显示的文字改为“满天星”；
背景颜色Backcolor设为“黑色”；
Drawwidth中的值决定了点的大小，将其改为“6”；
显示方式windowstate设置为最大化显示“2-Maximized”
③设置“Timer”控件属性：将时间间隔Interval设置为10。
④双击“Timer”控件，添加程序代码：
x=12000*rnd
y=9000*rnd
c=rgb(255*rnd,255*rnd,255*rnd)
pset(x,y),c
拓展任务一：制作更个性化的屏保，如改变背景色、点变大、调整点出现的频率。
2、教师讲解程序代码的含义
①随机函数rnd——产生0到1之间的小数。
②颜色函数rgb(x,y,z)——r红，g绿，b蓝是三原色，三原色的色光以不同的比例混
合叠加，可产生各种色光。三种颜色光的取值范围为0—255。
③描点函数pset(x,y),c——在(x,y)点，以c的值为颜色描点。
教师提问：此代码运行后的结果是什么？
学生：思考后回答（描一个点）
教师提问：屏保的多个点是如何出现的？（提示学生Timer控件）
学生：思考后回答（Timer控件使此程序每过一段时间就运行一次）
教师提问：如何将点出现的范围扩大，甚至铺满全屏？
学生：尝试修改，并到讲台演示。（扩大x和y的值）
教师提问：x和y的值是否越大越好？
学生：思考或尝试修改后回答。（数值过大会导致点出现在屏幕上的几率降低）
3、学生完成任务二：将描点范围扩大至全屏，并保存为“满天星.exe”。
拓展任务二：将点的颜色改为某种固定颜色。
4、学生完成任务三：将“满天星”设为本机屏保
①双击“计算机”，选择“组织”内的“查看与搜索选项”
②在“查看”中将“隐藏已知文件类型扩展名”前面的对号去掉。
③将“满天星.exe”文件重命名为“满天星.scr”。
④将“满天星.scr”文件复制粘贴到C:windowssystem32中。
⑤设置桌面属性，选择屏保“满天星”观察效果。
三、课堂评价，总结回顾
（一）评价学生完成情况。
（二）总结VB编程的一般过程：
创建控件——设置属性——编写代码——调试运行——修改程序——保存（exe文件）。
课件6张PPT。用VB做满天星屏保程序描点函数 pset(x,y),c 在（x,y）点，以c为颜色画点随机函数 rnd产生一个0-1之间的小数 r 红色 g 绿色 b 蓝色——三基色
(x,y,z)分别为红、 绿、 蓝色的数值
数值范围要求在0—255之间颜色函数 rgb(x,y,z)程序代码private sub timer1-timer()
x=12000*rnd
y=9000*rnd
c=rgb(255*rnd,255*rnd,255*rnd)
pset(x,y),c
end sub
小结VB设计程序的一般步骤：
插入控件——设置窗体及控件的属性——
给控件编写程序代码——调试运行程序——
修改程序——生成可执行文件评测练习
1、本节课我们选用的程序设计语言是（ ）
A．C语言 B.VB C.PASCAL D.JAVA
2、时间控件是哪个？（ ）
A． B. C. D
3、随机函数是 （ ）.
A．RND B.ABS() C.INT() D.ROUND(X,N)
4、随机函数RND产生（ ）的小数
A．0-1 B.1-10 C.1-100
5、“满天星”程序代码中，对X，Y（ ）修改，可以使屏幕显示范围变宽？
A．X变大，Y不变 B. X变小，Y不变
C. X不变，Y变小 D. X不变，Y变大
