4.1.3 认识程序中的基本元素PPT配套优秀教学设计内容

教学设计方案

EXCEL与VBA操作实例

张剑文

信息技术与

学科整合课

题目

年级学科

高一

课型

授课教师

工作单位

惠州市第一中学

1、

掌握EXCEL和VBA的基本操作；

教学目标

2、

掌握VBA编写程序；

3、

认识如何使用程序提高效率。

教学重难点

关键

教学方法

运用的

信息技术工具

讲授法、比较法、演练法。

使用VBA编写程序，解决实际问题。

硬件：计算机房

软件：电子教室教学软件

设计一项任务，先采用Excel基本功能来解决问题，然后采用VBA编程解决问题。通教学设计思路

过两种方法的比较，让学生认识到使用程序来解决问题具有高效性、可扩展性，同时让学生了解编程并不困难。

教学过程

1、提出任务

2、提问学生

3、使用Excel来解决问题

4、使用VBA编程解决问题

5、练习

6、小结

设计意图

1、让学生思考解决问题的思路；

2、让学生交流解决问题的方法；

3、让学生操作，老师补充，实现互动；

4、教师讲授；

5、学生实操；

6、对本节知识点进行总结

时间安排

1、3分钟

2、5分钟

3、10分钟

4、10分钟

5、10分钟

6、2分钟

（采用电子屏幕）

一、提出任务：将Excel中的信息的横向排列的记录变换为纵向线性排列（提供Excel信息记录内容）；

二、使用Excel手工操作达到解决问题；

三、循环结构程序设计（使用VB编写程序）

格式一：当型循环

WHILE 条件

循环体

WEND

例1：计算1＋2＋3＋……＋100的值

程序清单：

Private Sub Command1_Click() i = 1 Sum = 0 While i <= 100

Sum = Sum + i

i = i + 1 Wend Print "Sum="; Sum End Sub

格式二：直到型循环

DO

循环体

LOOP UNTIL

例1：计算1＋2＋3＋……＋100的值

程序清单：

Private Sub Command2_Click() i = 1 Sum = 0 Do

Sum = Sum + i

i = i + 1 Loop Until i > 100 Print "Sum="; Sum End Sub

格式三：计数型循环

FOR 循环变量

＝

初值

TO 终值

STEP 步长

板书设计

语句组

NEXT 循环变量

例1：计算1＋2＋3＋……＋100的值

程序清单：

Private Sub Command4_Click() Sum = 0 For i = 1 To 100

Sum = Sum + i Next i Print "Sum="; Sum End Sub 四、使用VBA解决任务

1、解决一行记录的程序如下：

Public Sub 测试1() Sheets("例子").Select

Cells(1, 5) = Cells(2, 1)

Cells(2, 5) = Cells(2, 2)

Cells(3, 5) = Cells(2, 3) End Sub

2、优化测试1程序：

Public Sub 测试2() Sheets("例子").Select

For j = 1 To 3

Cells(j, 5) = Cells(2, j)

Next j End Sub

3、解决多行记录的程序：

（1）方法1 Public Sub 测试3() Sheets("例子").Select For i = 2 To 31

For j = 1 To 3

Cells(i * 3 - 6 + j, 5) = Cells(i, j)

Next j Next i End Sub

（2）方法2 Public Sub 测试4() Sheets("例子").Select n = 1

For i = 2 To 31

For j = 1 To 3

Cells(n, 5) = Cells(i, j)

n = n + 1

Next j Next i End Sub

小结：方法2更直观。

本节小结：编程可以很简单，但是却能让人从繁琐的手工操作中解放出来。