2022年高中信息技术VB中的IF语句应用教案沪教版.docx

《2022年高中信息技术VB中的IF语句应用教案沪教版.docx》由会员分享，可在线阅读，更多相关《2022年高中信息技术VB中的IF语句应用教案沪教版.docx（16页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、精选学习资料 - - - - - - - - - 学习必备 欢迎下载VB 中的 IF 语句应用用 VB编程实现锤子、剪刀、布嬉戏一、基本说明教学内容 1） 教 学 内 容 所 属 模 块 ： 算 法 与 程 序 设 计 2） 年 级 ：高 一 年 级 3） 所 用 教 材 出 版 单 位 ：上 海 科 技 教 育 出 版 社 4） 所 属 的 章 节 ：5） 学 时 数 ： 45 分 钟二、教学设计1、教学目标：让 学 生 亲 身 编 写 一 个 儿 时 玩 过 的 锤 子 、剪 刀 、布 游 戏 程 序 来 感 受 计 算 机 程 序 解 决 问 题 的 过 程 , 了 解 用 高 级 语

2、言 编 程 工 具 解 决 问 题 的 基 本 方 法 , 特 别 是 熟 练 掌 握 IF 语 句 的 应 用 , 感 悟 计 算 机 程 序 设 计 的 思 想 ,了 解 计 算 机 程 序 设 计 的 基 本 流 程 ,激 发 学 生 对 信 息 技 术 的 求 知 欲 ,提 高 其 学 习 兴 趣 , 形 成 积 极 主 动 学 习 信 息 技 术 的 态 度 ；2、内容分析：本 节 课 的 内 容 结 构 是 ：首 先 请 每 相 邻 的 2 个 同 学 一 起 玩 儿 时 的 锤 子 、剪 刀 、布 游 戏 ,并 简 单 介 绍 玩 的 方 法 , 然 后 老 师 演 示 VB 做

3、 好 的 锤 子 、 剪 刀 、 布 游 戏 小 程 序 , 让 学 生 了 解 计 算 机 程 序 的 工 作 流 程 ；通 过 解 剖 这 段 程 序 让 学 生 了 解 程 序 设 计 的 基 本 思 想 和 流 程 ；在 学 生 练 习 中 ,让学 生 编 写 运 行 程 序 , 亲 身 感 受 计 算 机 程 序 解 决 问 题 的 过 程 ；重 点 难 点 分 析 ：（ 1） 教 学 重 点 ：在 高 级 语 言 环 境 中 编 写 并 执 行 一 段 程 序 代 码 , 了 解 其 工 作 过 程 VB 中 的 IF 语 句 、 以 及 随 机 函 数（ 2） 教 学 难 点 ：

4、剖 析 程 序 , 了 解 其 结 构 组 成 和 具 体 作 用 , 认 识 计 算 机 程 序 设 计 的 基 本 流 程 熟 练 掌 握 VB 中 的 IF 语 句 、 以 及 随 机 函 数 的 使 用 如 何 把 简 单 的 游 戏 过 程 转 化 为 计 算 机 容 易 解 决 的 编 程 方 法 上3、学情分析：高 一 年 级 学 生 在 进 校 后 ,我 们 曾 做 过 调 查 ,在 信 息 技 术 学 科 中 虽 然 只 有 少 部 分 学 生 是“零起 点 ” ,但 一 般 学 生 只 停 留 在 使 用 电 脑 的 层 面 ,而 且 对 以 前 学 过 的 知 识 掌 握

5、 的 较 差 ；因 此 ,在 教 学 设 计 中 使 用 学 生 们 儿 时 玩 过 的 游 戏 来 学 习 和 加 深 分 支 语 句 的 使 用 ,就 是 从 学 生 的 认 知 特 点 和 学 生 已 有 的 知 识 经 验 及 能 力 水 平 出 发 , 自 然 的 引 导 进 入 计 算 机 编 程 解 决 问 题 的 方 法 和 流 程 ,这 样 更 符 合 学 生 的 认 知 特 点 , 引 入 课 题 更 加 自 然 , 说 明 问 题 更 加 清 楚 , 同 时 也 简 化 了 “算 法 ”的 概 念 ；4、设计思路：1、 教 学 方 法 设 计 在 教 学 中 选 用 了

6、学 生 儿 时 玩 过 的 锤 子 、剪 刀 ,布 游 戏 为 例 子 ,通 过 学 生 玩 游 戏 的 方 法 和 步名师归纳总结 - - - - - - -第 1 页,共 9 页精选学习资料 - - - - - - - - - 学习必备欢迎下载活 动 式 ” 、“启 发 式 ” 、骤 ,引 导 出 计 算 机 解 决 问 题 的 方 法 和 步 骤 ,即“算 法 ” ；教 学 中 采 用 了“探 究 式 ”、“任 务 驱 动 式 ”等 教 学 模 式 ；在 教 学 设 计 中 安 排 大 量 的 尝 试 性 、探 索 性 的 活 动 ,引 导 学 生 积 极 主 动 地 完 成 学 习 任

7、 务 ；逐 步 建 立 起 自 主 性 和 研 究 性 的 学 习 模 式 ,从 而 更 加 突 出 学 生 在 教 学 过 程 中 的 主 体 地 位 ；教 学 中 仍 安 排 大 量 的 实 践 性 、操 作 性 的 内 容 ,使 学 生 在 具 体 活 动 中 理 解 信 息 技 术 的 基 本 知 识 ,掌 握 信 息 处 理 的 基 本 技 能 , 并 能 够 灵 活 应 用 到 学 习 和 生 活 中 ；2、 关 于 教 学 流 程 和 教 学 活 动 的 设 计同学嬉戏运行程序提出问题分析问题引出 “ 算法 ”剖析程序同学练习评判沟通教学总结教学提升每 2 个 学 生 玩 锤 子

8、 、 剪 刀 、 布 游 戏 执 行 VB 编 写 的 锤 子 、 剪 刀 、 布 游 戏 小 程 序 , 让 学 生 了 解 计 算 机 程 序 的 工 作 过 程如 何 玩 这 个 游 戏 的, 得出每次出都是随机让 学 生 们 总 结 游 戏 方 法 和 步 骤 , 分 析 如 何 用 计 算 机 编 程 实 现由 玩 游 戏 的 方 法 和 步 骤 引 导 出 计 算 机 解 决 问 题 的 方法 的 步 骤 , 即 “算 法 ”剖 析 部 分 程 序 , 让 学 生 举 一 反 三学 生 上 机 练 习评 论 交 流 学 生 作 品教 学 总 结让 学 生 更 深 的 感 受 编 程

9、 解 决 问 题 的 能 力三、教学过程描述1教与学的过程描述名师归纳总结 教 学 环 节教 师 活 动学 生 活 动对 学 生 学 习 过 程 的设 计 意 图第 2 页,共 9 页及 时 间观 察 和 考 查引 入 课 题要 求 玩 儿 时 游 戏每 2 个 同 学 玩 游 戏引 导 学 生 对 比 人 和引 入 课 题（ 3 分 钟 ）演 示 VB 样 例 程 序观 察 VB 样 例 程 序计 算 机 玩 游 戏进 入 主 题提 出 问 题在VB 中 如 何 编 写学 生 讨 论 , 互 相 探听 学 生 讨 论 , 引 导- - - - - - -精选学习资料 - - - - - -

10、- - - （ 2 分 钟 ）这 个 程 序 呢 ？讨学习必备欢迎下载随 机 ”学 生 得 出 “思 想分 析 问 题得 出 随 机 思 想 , 提学 分 讨 论 如 何 转 化听 学 生 讨 论 , 引 导得 出 程 序（ 5 分 钟 ）出 如 何 转 化 为 计 算模 式 ？学 生 分 析 , 得 出 转设 计 思 路剖 析 程 序机 容 易 解 决 的 模 式师 生 互 动 , 理 顺 思化 方 法分 析 思 路理 顺 思 路 , 剖 析 程观看同学,看其能否（ 10 分 钟 ）序 , 熟 悉 流 程路 ,与老师互动,跟上教剖 析 程 序师的思维上 机 练 习辅导同学上机练习学 生 设

11、计 界 面 、 编辅导同学上机练习,互 助 协 作（ 20 分 钟 ）支配才能好的同学帮写 代 码 、 调 试 代 码观看同学谁做出了好助有困难的同学的作品,解决同学的疑难点评 价 交 流对 好 的 作 品 进 行 评看 老 师 演 示 作 品观看同学,看其对自相 互 交 流（ 3 分 钟 ）价,对显现的错误进相 互 交 流 作 品己的作业是否中意,回 顾 总 结是否有成就感行分析总 结和 老 师 一 起 回 顾 并看同学在老师的引导一起总结这个程序的（ 2 分 钟 ）编程思想和流程总 结下能不能自己总结出来感 悟 提 升让同学使用预备好的同学自己运行程序,观看同学,看其运行激 发 学 生（

12、1 分 钟 ）VB 开发的程序和软了有用程序后,有何学 习 程 序件,让同学对程序解更深的感受程序设计反应设 计 的 兴决 问 题 有 更 深 的 了的魅力趣解；2、 关键环节提炼（ 1） 引 入 ：以 儿 时 所 玩 的 锤 子 、 剪 刀 、 布 游 戏 为 背 景 , 从 演 示 VB 编 写 的 锤 子 、 剪 刀 、 布 游 戏 程序 入 手 , 能 立 即 唤 起 学 生 求 知 欲 望 , 产 生 学 习 兴 趣 ；（ 2） 剖 析 ：这 一 环 节 的 流 程 如 图 所 示 ：玩嬉戏的方法和步骤名师归纳总结 - - - - - - -第 3 页,共 9 页精选学习资料 - -

13、 - - - - - - - 学习必备 欢迎下载运算机如何解决这样的问题算法的概念学 生 玩 游 戏 的 方 法 、步 骤 体 现 的 数 学 思 维 是 计 算 机 程 序 设 计 的 基 础 ,我 利 用 对 比 的 方 法 ,从 人 机 对 话 的 角 度 ,逐 句 剖 析 计 算 机 编 写 的 锤 子 、剪 刀 、布 游 戏 程 序（ 见 程 序 剖 析 实 例 ）,让 学 生 了 解 其 结 构 组 成 和 具 体 作 用 ,懂 得 计 算 机 程 序 设 计 的 基 本 思 想 ：按 照 人 类 解 决 问 题 的 思 维 方 法 ,进 行 人 机 对 话 ；计 算 机 能 够

14、听 懂 的“话 ” ,就 是 我 们 输 入 的 命 令 ；这 样 , 就 有 利 于 消 除 计 算 机 编 程 的 神 秘 感 , 激 发 学 生 学 习 计 算 机 编 程 的 兴 趣 ；首 先 , 这 个 程 序 中 人 和 计 算 机 每 次 都 有 呢 ？ （ 引 导 学 生 思 考 ？ ）3 种 出 牌 的 可 能 , 那 么 如 何 编 写 程 序 最 方 便我 们 就 把 这 3 个 图 片 形 象 的 用 3 个 数 字 来 代 替 , 这 样 就 使 我 们 的 编 程 更 容 易 实 现 ；因 此 , 我 们 这 样 进 行 约 定 ：锤 子 ,用 数 字“1” 表 示

15、剪 刀 ,用 数 字“3” 表 示布 , 用 数 字 “3”表 示这 里 提 问 让 学 生 思 考 , 这 个 约 定 一 定 要 唯 一 吗 ？ 要 注 意 什 么 ？ （ 讨 论 ）程 序 剖 析 实 例 ： （ 以 人 出 锤 子 为 例 ）Dim sum, w, d, L As Integer 定义变量, sum表示总局数, w表示你赢的局数, d 表示平局数, L 表示你输的局数Private Sub Command1_Click Dim x, y As Integer 定义变量, x 表示电脑出的数字,y 表示你出的数字sum = sum + 1 Randomize Timer

16、随机函数初始化x = Int3 * Rnd + 1 电脑随机出数（1, 2,3 任选其一）y = 1 我出的数字（锤子）Image4.Picture = Image1.Picture 显示我出数字所对应图片If x = y Then 运算机出的和你相同 Label3.Caption = 平局 Image5.Picture = Image1.Picture d = d + 1 End If If x = 2 Then 你赢了！ 你出锤子,运算机出剪刀 Label3.Caption = Image5.Picture = Image2.Picture 名师归纳总结 - - - - - - -第 4

17、页,共 9 页精选学习资料 - - - - - - - - - 学习必备 欢迎下载 w = w + 1 End If If x = 3 Then 你输了！ 你出锤子,运算机出布 Label3.Caption = Image5.Picture = Image3.Picture L = L + 1 End If Text1.Text = sum Text2.Text = w Text3.Text = d Text4.Text =L End Sub 通 过 上 述 分 析 , 让 同 学 们 思 考 讨 论 如 何 编 写 另 外 2 段 程 序 ？（ 3） 体 验 ：教 学 中 安 排 了“编 程

18、 实 现 ” 一 个 小 节 让 学 生 经 历 和 体 验 程 序 设 计 的 过 程 ,设 计“界 面 设 计 ” 、“代 码 编 写 ” 、“调 试 运 行 ” 三 个 环 节 ；结 合 学 生 的 实 际 情 况 ,组 织 学 生 实 施 上 述 三 个 环 节 的学 习 、体 验 ；首 先 将 引 入 课 题 时 运 行 的 锤 子 、剪 刀 、布 游 戏 程 序 提 供 给 学 生 们 ,让 其 观 看 界 面的 设 计 ；要 求 学 生 在 老 师 完 成 一 部 分 程 序 后 ,举 一 反 三 ,自 己 动 手 编 写 所 有 的 程 序 ,亲 身 感 受计 算 机 程 序

19、解 决 问 题 的 过 程 ；（ 4） 评 价 和 交 流 ：在 整 个 教 学 过 程 中 ,都 注 重 教 室 和 学 生 、学 生 和 学 生 的 交 流 互 动 ；如 ,在 剖 析 程 序 时 ,要求 学 生 与 玩 游 戏 时 解 决 同 类 问 题 比 较 , 在 “编 程 实 现 ”过 程 中 , 教 师 进 行 有 目 的 的 分 层 指 导 ,让 完 成“任 务 ” 的 学 生 通 过“广 播 教 学 ” 给 其 他 同 学 做 示 范 ,并 介 绍 经 验 、体 会 ,教 师 及 时 进行 点 评 , 其 他 同 学 提 出 补 充 或 修 改 意 见 ； 通 过 交 流

20、互 动 , 实 现 知 识 “共 享 ”, 共 同 体 高 ；（ 4） 总 结 提 升 ：在 “编 程 实 现 ”的 基 础 上 , 让 学 生 自 己 使 用 老 师 提 供 的 其 他 VB 开 发 的 实 用 程 序 , 教 师 引导 学 生 讨 论 ,使 学 生 认 识 到 用 计 算 机 编 程 可 以 帮 助 我 们 解 决 很 多 的 问 题 ：不 但 能 解 决 锤 子 、剪刀 、布 小 游 戏 问 题 ,仍 能 解 决 更 大 更 复 杂 的 问 题 ,如 office就 可 以 用 VB 开 发 出 来 的 ,更 深 刻的 感 受 程 序 解 决 问 题 的 魅 力 ； 认

21、 识 到 运算机解决问题和人解决问题一样需要有清楚的解题步 骤；而对于运算机而言,这种解题步骤就称为算法；运算机编程解决问题的过程分析问题设运算法编写程序调试运行检测结果四、教学反思1、教学设计本 节 课 在 教 学 过 程 中 ,用 教 师 自 己 设 计 的 例 子 编 程 实 现 锤 子 、剪 刀 、布 游 戏 ,通 过 学生 自 己 总 结 的 方 法 和 步 骤 ,自 然 的 引 入 到 计 算 机 编 程 的 方 法 和 流 程 ；这 样 引 入 课 题 自 然 、清 楚 ,名师归纳总结 更 重 要 的 是 简 化 了 “算 法 ”的 概 念 和 简 化 了 程 序 , 课 堂 效

22、 果 较 好 , 达 到 了 课 标 的 要 求 ；第 5 页,共 9 页- - - - - - -精选学习资料 - - - - - - - - - 学习必备 欢迎下载本 节 课 的 教 学 我 感 到 最 为 成 功 的 地 方 是 ,以 学 生 为 本 ,教 材 处 理 恰 当 ,通 过 运 行 编 程 实 现 锤 子 、剪 、布 游 戏 程 序 抓 住 学 生 的 视 线 ,通 过 学 生 熟 悉 的 游 戏 引 入 课 题 ,通 过 剖 析 程 序 让 学 生 了 解 编 程 解 决 问 题 的 方 法 和 步 骤 , 通 过 学 生 上 机 实 践 , 亲 身 感 受 计 算 机 编

23、 程 解 决 问 题 的 过 程 ,通 过 学 生 感 悟 编 程 的 过 程 ,感 受 到 编 程 就 像 跟 计 算 机 对 话 一 样 ；教 学 中 采 用 了“活 动 式 ” 、“启发 式 ”、 “探 究 式 ”等 教 学 模 式 ；2、感悟和提升 在 教 学 中 教 师 让 学 生 感 悟 程 序 设 计 的 过 程 就 像 我 们 组 织 活 动 一 样 , 很 多 学 生 觉 得 编 程 就 像 对 话 一 样 ,这 正 是 程 序 设 计 的“精 髓 ” ；编 程 主 要 要 有 清 晰 的 思 路 ,然 后 把 清 晰 的 思 路 用 语 言 描 述 出 来 ,这 就 是 程

24、 序 设 计 ；教 师 告 诉 学 生 编 程 不 但 能 解 决 编 程 实 现 锤 子 、剪 、布 游 戏 这 样 的 小 问 题 ,仍 能 解 决 更 大 更 复 杂 的 问 题 ；比 如 ：你 们 现 在 所 用 的 office 可 以 用 VB 开 发 出 来 的 ,仍 有 很 多 游 戏 都 是 用 VB 开 发 出 来 的 ； 以 前 我 们 所 学 内 容 主 要 是 在 学 习 使 用 别 人 开 发 出 来 的 程 序 ,如 果 有 一 天 你 能 开 发 出 程 序 让 别 人 使 用 ,那 么 你 的 计 算 机 水 平 将 上 一 个 台 阶 ,你 自 己 也 很

25、有 成 就 感 ；3、不足 这 节 课 内 容 较 多 , 学 生 交 流 的 时 间 较 少 , 对 学 生 作 品 的 评 价 也 不 全 面 ；附：教学资源、同学学习过程及典型成果（可选）制作界面：名师归纳总结 - - - - - - -第 6 页,共 9 页精选学习资料 - - - - - - - - - 学习必备 欢迎下载程序运行界面：完整程序代码：Dim sum, w, d, L As Integer 名师归纳总结 - - - - - - -第 7 页,共 9 页精选学习资料 - - - - - - - - - 学习必备 欢迎下载Private Sub Command1_Click

26、 Dim x, y As Integer sum = sum + 1 Randomize Timer x = Int3 * Rnd + 1 y = 1 Image4.Picture = Image1.Picture If x = y Then Label3.Caption = 平局 Image5.Picture = Image1.Picture d = d + 1 End If If x = 2 Then Label3.Caption = 你赢了！ Image5.Picture = Image2.Picture w = w + 1 End If If x = 3 Then Label3.Cap

27、tion = 你输了！ Image5.Picture = Image3.Picture L = L+ 1 End If Text1.Text = sum Text2.Text = w Text3.Text = d Text4.Text = l End Sub Private Sub Command2_Click Dim x, y As Integer sum = sum + 1 Randomize Timer x = Int3 * Rnd + 1 y = 2 Image4.Picture = Image2.Picture If x = y Then Label3.Caption = 平局 Im

28、age5.Picture = Image2.Picture d = d + 1 End If If x = 1 Then Label3.Caption = 你输了！ Image5.Picture = Image1.Picture L = L + 1 End If If x = 3 Then 名师归纳总结 - - - - - - -第 8 页,共 9 页精选学习资料 - - - - - - - - - Label3.Caption = 你赢了！ 学习必备欢迎下载 Image5.Picture = Image3.Picture w = w + 1 End If Text1.Text = sum T

29、ext2.Text = w Text3.Text = d Text4.Text =L End Sub Private Sub Command3_Click Dim x, y As Integer sum = sum + 1 Randomize Timer x = Int3 * Rnd + 1 y = 3 Image4.Picture = Image3.Picture If x = y Then Label3.Caption = 平局 Image5.Picture = Image3.Picture d = d + 1 End If If x = 1 Then Label3.Caption = 你赢了！ Image5.Picture = Image1.Picture w = w + 1 End If If x = 2 Then Label3.Caption = 你输了！ Image5.Picture = Image2.Picture L= L+ 1 End If Text1.Text = sum Text2.Text = w Text3.Text = d Text4.Text = L End Sub Private Sub Command4_Click End End Sub 名师归纳总结 - - - - - - -第 9 页,共 9 页