清华大学版信息技术九年级上册教案全册

这是一份清华大学版信息技术九年级上册教案全册，共32页。
清华大学版信息技术九年级上册全册教案设计

第1单元 初级玛丽
一、 单元概述
本单元是VB程序设计学习初始内容，教材从学生玩游戏的兴趣为着眼点，引入VB课程内容的学习。引导学生对以往游戏对象中动作的实现方法进行探索、研究和学习。从而提高学生学习的兴趣。
本单元通过“绚丽舞台”、“昂首阔步”、“行走天涯”和“操控自如”四课内容，介绍了使游戏对象移动、坠落、跳跃等动作的实现方法。在介绍这些方法时教材力图在教学中使学生理解对游戏过程进行动作分解、合成的程序设计思路。
二、 学习目标
1. 了解VB界面的基本功能，掌握基本操作方法。
2. 了解控件、对象、属性、事件和事件过程的概念。
3. 学会用时钟控件控制对象的移动。
4. 学会常用控件属性的设置。
5. 学会调试程序。
三、 重点难点
重点：
1. 学会VB程序设计的基本步骤。
2. 体会程序设计过程中分解、合成的程序设计思想。
难点：
1. 对控件、对象、属性、事件和事件过程的理解。
2. 对程序调试能力的培养。
四、 学时安排
第1课 绚丽舞台 1课时
第2课 昂首阔步 1课时
第3课 行走天涯 1课时
第4课 操控自如 2课时

第1课 绚丽舞台
（一） 本课教学目标
1. 了解、熟悉Visual BASIC 6.0集成开发环境。
2. 学会游戏窗体界面背景和前景的设计。
3. 学会用时钟控件控制操作对象的移动。
4. 通过玛丽移动的程序设计，了解程序设计的基本过程。
（二） 教材分析
本课是程序设计的第一课，教材中通过本单元的单元页，使学生了解程序设计课程是信息技术课程学习的深入，是从应用角色到开发角色的转换，教材力图通过本单元游戏程序设计的学习建立学生学习程序设计的积极性，明确程序设计学习的必要性。
（三） 教学设计与教学建议（含课前准备）
为了提高学生学习程序设计的兴趣，可以在本课教学中演示一些简单游戏程序和简单应用程序的运行效果，例如可以演示一下本教材提供的学习资源，即可使学生提高学习兴趣也可以是学生了解本课程学习后他们可能设计出程序，以此拓展学生学习过程中的创造性思维设计出更多、更好的应用程序。
本课因为是程序设计的第一课，需要学生对VB的操作界面有所了解。由于本课教材涉及的基本知识较多，尽管难度都不大，但是占用的篇幅较大，因此本课没能涉及具体的编程任务。而要让学生了解界面上的功能，熟悉这些基本操作，就要让学生在本课中通过一个简单程序的设计全过程熟悉界面上的功能，体会用VB设计程序的一般步骤。为此建议将第2课中关于“玛丽自动行走”的任务提前到本课中来学习。
（四） 教学资源（或称补充资料）
上机资料：
任务1：让操作对象玛丽自左向右自动移动。
步骤1：设计窗体背景（游戏背景）
步骤2：设计窗体前景Image1（玛丽图像）

步骤3：在窗体上添加时钟对象Timer1
步骤4：在Timer1的属性窗口设置Interval的属性值为100
步骤5：在代码窗口设计以下关于Timer1的事件过程


第2课 昂首阔步
（一）本课教学目标
1. 学会用时钟控件控制对象的自动移动。
2. 学会设置时钟的时间间隔属性Interval。
3. 学会设置对象的位置属性Left、Top。
4. 学会对象属性的静态设置和动态设置。
（二）教材分析
本课是提出了本教材的第一个需要编写程序的任务，时钟控件也是学生学习的第一个控件，由时钟控件生成的对象需要设置时间间隔Interval属性，由图像控件生成的对象需要设置图像Image1的位置属性，窗体也需要设置其标识Caption属性。所以在了解控件概念的基础上，对象的属性设置是本节课的重点学习内容。
（三）教学设计与教学建议（含课前准备）
在属性窗口静态设置属性的方法和设置动态属性应该是本课学习的重点内容，在程序中做动态属性设置时要用到赋值的概念，应让学生知道赋值与相等的不同含义。建议本课简单介绍任务完成的过程，给学生多一些上机实践的时间，在上机过程中要锻炼学生独立调试程序的能力。
（四）教学资源（或称补充资料）
上机步骤：（要求学生按照步骤顺序完成上机任务）
1.让雷电界面中的飞机向左自动移动。

2.修改1让雷电界面中的飞机向右自动移动。
3.修改1让雷电界面中的飞机向上自动移动。
4.修改1让雷电界面中的飞机向左上自动移动
5.将玛丽放到悬崖外侧，修改1使的玛丽向下移动，坠入悬崖。

6.在窗体中再设置一个计时器和一个标签框（Label），并在标签框中显示（修改Caption属性）“欢迎来玩初级玛丽游戏”，如图所示，修改程序用添加的计时器控制移动标签框，显示动态文字信息。


第3课 行走天涯
（一）本课教学目标
1.学会根据需要用条件判断语句编写程序。
2.学会设置对象的大小属性。
3.掌握游戏动作的分解、合成的设计、调试方法。
（二）教材分析
教材通过对玛丽游戏程序完善的需求，引入了条件语句的控制。教材针对玛丽移出窗体左边界时的位置状态，提出了对象大小属性的设置需求。教材用一个时钟对象控制玛丽的直行，用另一个时钟对象控制玛丽在悬崖的坠落，引入了玛丽直行到悬崖时坠落的两个动作合成的编程需求。
（三）教学设计与教学建议（含课前准备）
建议在本课的学习过程中，首先引导学生通过语言描述玛丽移出窗体左边界时的位置状态，然后引导学生描述玛丽处于移出窗体边界与否所要作出的动作，最后根据描述给出条件判断语句的程序代码。
建议在编写玛丽悬崖坠落的程序代码时，首先通过属性窗口令控制直行的时钟的Enabled属性值处于可用状态，令控制坠落的时钟Enabled属性值处于不可用状态。待程序运行过程中判断出玛丽处于悬崖外侧时，改变两个时钟Enabled的属性值，从而实现直行动作到坠落动作的转变。
（四）教学资源（或称补充资料）
上机步骤：
1.修改“左出右进”的程序，使玛丽按“右出左进” 的方式移动。
参考程序：
Private Sub Timer1_Timer()
If Image1.Left > Form1.Width Then '如果对象到左边框的距离大于窗体的宽
Image1.Left = 0 '则让对象到左边框的距离为0
Else
Image1.Left = Image1.Left + 100 '否则让对象到左边框的距离加100
End If
End Sub
2.修改雷电程序，使小飞机按“上出下进”的方式移动。
参考程序：
Private Sub Timer1_Timer()
If Image1.Top < -Image1.Height Then '如果对象到上边框的距离小于对象高的相反数
Image1.Top = Form1.Height '则让对象到上边框的距离为窗体的高
Else
Image1.Top = Image1.Top – 100 '否则让对象到上边框的距离减100
End If
End Sub
3.修改雷电程序，使小飞机在窗体边宽内左右移动（移到左边框时向右边框移动，移到右边框时向左边框移动）。
参考程序：
Private Sub Timer1_Timer() '向左移动的时钟控制
If Image1.Left = 3840 Then '如果对象到左边框的距离大于等于3840
Timer2.Enabled = False '则向右移动的时钟不可用，向左移动的时钟可用
Timer1.Enabled = True
Else
Image1.Left = Image1.Left + 100 '否则让对象到左边框的距离加100
End If
End Sub
第4课 操控自如
（一）本课教学目标
1.学会用键盘控制对象的动作。
2.体会具有多个时钟控制的应用程序的编写和调试过程。
3.通过游戏程序多个动作的分解与合成提高调试程序的能力。
（二）教材分析
本课是在前3课的基础上来完善游戏程序的功能的，所以前面几课是本课学习的基础。本课中新的知识点主要体现在用键盘控制游戏对象的动作上，即键盘控制事件的应用上。
本课要完成的玛丽越崖任务中还会用逻辑判断，以判断玛丽是否落入悬崖，所以在条件语句中使用逻辑式也是本课新的学习应用。
（三）教学设计与教学建议（含课前准备）
本课中会用到四个时钟和一个键盘事件来控制游戏动作，所以搞清楚它们之间的关系是完成整个任务的关键，所以对它们之间的关系流程的理解就显得非常重要。如果用语言描述它们的关系，可表达如下：
左出右进的“行走”过程中如果遇到按下空格键则玛丽“跳起”到一定的高度后“落下”，如果“跳起”慢了或“落下”早了，即玛丽置身于两崖之间，玛丽都会坠入悬崖，否则玛丽会继续以左出右进的行走方式继续“行走”。根据以上描述可设置各时钟不同状态下的Enabled属性，正确实现几个动作之间的转换和衔接。
教材中还通过对直行过程中玛丽行走动作的优化，让学生学习了对象的可见性属性Visible的设置，本单元学生实践了一个简单游戏程序的开发过程。对于提高学生编程、调试能力都有一定的好处，游戏带给学生快乐，游戏的开发带给学生成就感，会使学生进一步提高学习的兴趣。
（四）教学资源（或称补充资料）
上机练习参考答案：
1. 修改玛丽行走的程序，使玛丽能“蹦跳行走”。
上机练习参考答案：
Dim a
Private Sub Form_KeyPress(KeyAscii As Integer) '单击键盘的事件过程
Rem 按空格键起跳
If KeyAscii = 32 Then '是否按下空格键
Timer3.Enabled = True '跳起计时器可用
Timer1.Enabled = False '行走计时器不可用
Image1.Visible = True '迈步玛丽图像可见
Image2.Visible = False '直立玛丽图像不可见
Else
Image1.Left = Image2.Left '直立玛丽和迈步玛丽重合
Image1.Visible = True '迈步玛丽图像可见
Image2.Visible = False '直立玛丽图像不可见
Timer1.Enabled = True '行走计时器可用

End If
End Sub
Rem 玛丽行走
Private Sub Timer1_Timer() '直行
a = Image1.Left '玛丽到左边框的距离
If a > 3960 And a < 4680 Then '玛丽处于悬崖范围的判断
Timer1.Enabled = False '行走计时器不可用
Timer2.Enabled = True '坠落计时器可用
Image2.Visible = True '直立玛丽图像可见
Image1.Visible = False '迈步玛丽图像不可见
Else
If Image2.Visible = True Then '可见性判断
Image2.Visible = False '直立玛丽图像不可见
Image1.Visible = True '迈步玛丽图像可见
Else
Image1.Visible = False '迈步玛丽图像不可见
Image2.Visible = True '直立玛丽图像可见
End If
Image1.Left = Image1.Left – 200 '迈步玛丽左移
Image2.Left = Image2.Left – 200 '直立玛丽左移
End If
End Sub
Rem 坠崖
Private Sub Timer2_Timer() '坠落
Image2.Top = Image2.Top + 150 '直立玛丽坠落
End Sub
Rem 玛丽跳起
Private Sub Timer3_Timer()
If Image1.Top > 3200 Then
Image1.Left = Image1.Left - 150 '向左移动
Image1.Top = Image1.Top - 100 '向上移动
Else
Timer3.Enabled = False '跳起计时器不可用
Timer4.Enabled = True '落下计时器可用
End If
End Sub
Rem 玛丽落下
Private Sub Timer4_Timer()
If Image1.Top 0 Then
Image1.Left = Image1.Left - 100
End If
End Sub
l 条件判断中的“与”判断
KeyAscii = 97 And Image1.Left > 0

第2单元 初露锋芒

一、 单元概述
本单元通过“图文并茂”、“百变文字”、“喜迎国庆”、“涂鸦王国”四课内容，介绍了“命令按钮”、“标签框”、“单选按钮”、“复选框”、“图片框”等控件的属性和使用方法，用“鼠标事件”编写啦鼠标控制的小应用程序。
在本单元中，通过对程序代码的编写，学习、应用并体会了程序的循环结构和分支结构，学习了循环语句（For/Next语句）、多分支语句（Select Case语句）的用法；认识了VB中的方法，并实际体验了Circle、Line、Scale等方法的具体应用。
二、 学习目标
1. 学习命令按钮、单选按钮、图片框、复选框、框架等控件的使用方法。
2. 进一步理解对象的属性。
3. 了解用LoadPicture()函数载入图片的方法。
4. 了解变量的含义，掌握定义布尔变量的方法，了解静态变量的特点。
5. 了解VB程序中语句的书写规范。
6. 掌握创建控件数组的基本方法，了解控件数组的作用。
7. 了解Select Case语句的功能和应用，掌握循环语句For/Next的功能和应用。
8. 理解程序的分支结构和循环结构。
9. 理解用Scale方法改变VB中的坐标系的方法。
10. 掌握用Line方法画线、用Pset方法画点。
11. 学会RGB函数的功能和使用方法。
12. 学习鼠标的抬起和落下事件，并能够进行简单编程。
13. 了解窗体的Form_Load事件。
三、 重点难点
重点：
1. 学习标签、命令按钮、单选按钮、图片框、复选框、框架等控件的使用方法。
2. 了解变量的含义，掌握定义布尔变量的方法，了解静态变量的特点。
3. 掌握创建控件数组的基本方法，了解控件数组的作用。
4. 了解Select Case语句的功能和应用，掌握循环语句For/Next的功能和应用。
5. 理解程序的分支结构和循环结构。
6. 掌握用Line方法画线、用Pset方法画点。
7. 学习鼠标的抬起和落下事件，并能够进行简单编程。
难点：
1. 了解用LoadPicture()函数载入图片的方法。
2. 学会RGB函数的功能和使用方法。
3. 了解变量的含义，掌握定义布尔变量的方法，了解静态变量的特点。
4. 掌握创建控件数组的基本方法，了解控件数组的作用。
5. 掌握循环语句For/Next的功能和应用。
6. 理解程序的分支结构和循环结构。
7. 理解用Scale方法改变VB中的坐标系的方法。
8. 了解随机函数及其使用方法。
四、 学时安排
第5课 图文并茂 1课时
第6课 百变文字 1课时
第7课 喜迎国庆 1课时
第8课 涂鸦王国 2课时

第5课 图文并茂
（一） 本课教学目标
1. 掌握命令按钮及其Click事件的用法。
2. 掌握标签的常用属性设置方法以及用法。
3. 理解对象的名称属性和Caption属性的异同，掌握程序中更改Caption属性的方法。
4. 了解用LoadPicture()函数载入图片的方法。
5. 了解变量的含义，掌握定义布尔变量的方法，了解静态变量的特点。
6. 了解VB程序中语句的书写规范。

（二） 教材分析
通过本节课的学习让学生在完成任务的过程中，加深对编写VB程序过程的了解。任务中使用到了标签、图像框、命令按钮和计时器控件。在学生使用这些控件的过程中，教师应帮助学生理解这些控件在VB程序中能起到什么作用，又是怎么起作用的。
本课中涉及到了使用LoadPicture()函数载入图片的内容，教师一定要叮嘱学生正确书写图片路径，可使用绝对路径，也可以借助App.path使用相对路径。例题中涉及到的变量定义一定不能忽视，对于Static定义的静态变量特点，学生会难以理解，教师可借助教材中的DIY帮助学生理解。
（三） 教学设计与教学建议（含课前准备）
建议教师在本课讲两个任务，第一是命令按钮控制字幕滚动，第二是命令按钮控制更换图片。
在任务一的讲解过程中，建议教师通过演示例题效果，帮助学生回忆前面所学的知识，让学生思考并说出可通过计时器控制标签的位置，从而完成任务。
任务二中图片素材的准备十分重要，要强调将 “天安门.jpg”和 “世博会.jpg”图片存放于文件夹“\第2单元\5 图文并茂”中。和学生一起先分析程序的功能，当鼠标单击“切换图片按钮”后，显示“天安门”图片，再次鼠标单击“切换图片按钮”后，显示“世博会”图片。可通过设置静态布尔类型变量，单击按钮改变变量真值，从而控制轮换显示图片。
在设置图像框属性时，最好先设置Stretch，再设置Picture属性，以免图片过大，不便调整。在设置对象的名称属性和Caption属性时，学生会发现同一对象的这两个属性默认值是相同的，但属性设置表中却给它们分别赋予了不同的值，这样引入名称属性和Caption属性的异同。
告诉学生载入图片的函数LoadPicture()，由此讲解LoadPicture()函数的用法，注意图片文件使用绝对路径”d:\第二单元\5图文并茂\天安门.jpg”。
编写代码时，教师应告诉学生养成好习惯，每行语句要缩进几格，尽量使用注释语句。使程序既便于自己检查又易于别人阅读。
（四） 教学资源（或称补充资料）
创作天地
1. 编程，用8个命令按钮分别控制标签框、图像框等操作对象，朝上、下、左、右、左上、左下、右上、右下八个方向移动。

图5.1 命令按钮控制标签位置界面
（1） 控件对象：在窗体上添加1个标签、9个命令按钮。
（2） 属性设置表
表5-1 属性设置表
对象
属性名
属性值
Form1（窗体1）
Caption
图文并茂
Label1（标签框）
Caption
控制位置
ForeColor
黑色
Font
隶书、一号字
Command1
（命令按钮1）
Caption
上
·
·
·


Command9
（命令按钮9）
Caption
退出

（3） 程序代码
Private Sub Command1_Click() '上
Label1.Top = Label1.Top - 200
End Sub
Private Sub Command2_Click() '下
Label1.Top = Label1.Top + 200
End Sub
Private Sub Command3_Click() '左
Label1.Left = Label1.Left - 200
End Sub
Private Sub Command4_Click() '右
Label1.Left = Label1.Left + 200
End Sub
Private Sub Command5_Click() '左上
Label1.Top = Label1.Top - 200
Label1.Left = Label1.Left - 200
End Sub
Private Sub Command6_Click() '左下
Label1.Top = Label1.Top + 200
Label1.Left = Label1.Left - 200
End Sub
Private Sub Command7_Click() '右上
Label1.Top = Label1.Top - 200
Label1.Left = Label1.Left + 200
End Sub
Private Sub Command8_Click() '右下
Label1.Top = Label1.Top + 200
Label1.Left = Label1.Left + 200
End Sub
Private Sub Command9_Click() '退出
End
End Sub

2. 编程，通过命令按钮浏览搜集到的三张喜欢的图片。

图5.2 浏览图片界面
（1） 控件对象：在窗体上添加1个标签、1个图像框和2个命令按钮。
（2） 属性设置表
表5-2 属性设置表
对象
属性名
属性值
Form1（窗体1）
Caption
浏览图片
Label1（标签框）
Caption
军训故事
ForeColor
黑色
Font
华文行楷、二号字
Image1
（图像框1）
Picture
1.jpg
Stretch
True
Command1
（命令按钮1）
Caption
下一张
Command2
（命令按钮2）
Caption
退出

（3） 程序代码
Private Sub Command1_Click()
Static b As Integer
b = b + 1
If b = 1 Then Image1.Picture = LoadPicture(App.Path & "\1.jpg")
If b = 2 Then Image1.Picture = LoadPicture(App.Path & "\2.jpg")
If b = 3 Then Image1.Picture = LoadPicture(App.Path & "\3.jpg"): b = 0
End Sub
Private Sub Command2_Click()
End
End Sub

3. 编程，将“电子字幕显示屏”与“图片显示屏”合为一个任务。
（1） 控件对象：在窗体上添加1个图像框、1个标签框、3个命令按钮和1个计时器。
（2） 属性设置表
表5-3 属性设置表
对象
属性名
属性值
属性说明
Form1（窗体1）
Caption
图文并茂
窗体的标识
Image1
（图像框1）
Picture
天安门.jpg
导入天安门图片
Stretch
True
图随框变
Label1（标签框）
Caption
构建和谐社会 创造美好未来

BackColor
黑色

ForeColor
黄色

Font
隶书、一号字

Command1
（命令按钮1）
Caption
切换图片按钮
命令按钮的标识
Timer1（计时器）
Enabled
False
计时器不可用
Interval
200
计时间隔

（3） 程序代码
Private Sub Command1_Click()
Static b As Boolean
b = Not (b)
If b Then
Image1.Picture = LoadPicture(App.Path & "\天安门.jpg")
Print App.Path
Command1.Caption = "显示世博会图片"
Else
Image1.Picture = LoadPicture(App.Path & "\世博会.jpg")
Command1.Caption = "显示天安门图片"
End If
End Sub
Private Sub Command2_Click() ‘标语移动按钮
Timer1.Enabled = True
End Sub
Private Sub Command3_Click() ‘标语暂停移动按钮
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Label1.Left