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

《2022年高中信息技术VB中的IF语句应用教案沪教版 .pdf》由会员分享，可在线阅读，更多相关《2022年高中信息技术VB中的IF语句应用教案沪教版 .pdf（9页珍藏版）》请在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、 关 于 教 学 流 程 和 教 学 活 动 的 设 计三、教学过程描述1教与学的过程描述教 学 环 节及 时 间教 师 活 动学 生 活 动对 学 生 学 习 过 程 的观 察 和 考 查设 计 意 图引 入 课 题（ 3 分 钟 ）要 求 玩 儿

8、时 游 戏演 示 VB 样 例 程 序每 2 个 同 学 玩 游 戏观 察 VB 样 例 程 序引 导 学 生 对 比 人 和计 算 机 玩 游 戏引 入 课 题提 出 问 题在VB 中 如 何 编 写学 生 讨 论 ， 互 相 探听 学 生 讨 论 ， 引 导进 入 主 题运行程序提出问题分析问题引出 “ 算法 ”剖析程序学生练习教学总结评价交流教学提升执 行 VB 编 写 的 锤 子 、 剪 刀 、 布 游 戏 小 程 序 ， 让 学生 了 解 计 算 机 程 序 的 工 作 过 程如 何 玩 这 个 游 戏的，得出每次出都是随机让 学 生 们 总 结 游 戏 方 法 和 步 骤 ， 分

9、析 如 何 用 计 算 机 编 程 实 现由 玩 游 戏 的 方 法 和 步 骤 引 导 出 计 算 机 解 决 问 题 的 方法 的 步 骤 ， 即 “ 算 法 ”剖 析 部 分 程 序 ， 让 学 生 举 一 反 三学 生 上 机 练 习教 学 总 结评 论 交 流 学 生 作 品让 学 生 更 深 的 感 受 编 程 解 决 问 题 的 能 力学生游戏每 2 个 学 生 玩 锤 子 、 剪 刀 、 布 游 戏精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 9 页学习必备欢迎下载（ 2 分 钟 ）这 个 程 序 呢 ？讨学 生 得

10、出 “ 随 机 ”思 想分 析 问 题（ 5 分 钟 ）得 出 随 机 思 想 ， 提出 如 何 转 化 为 计 算机 容 易 解 决 的 模 式学 分 讨 论 如 何 转 化模 式 ？听 学 生 讨 论 ， 引 导学 生 分 析 ， 得 出 转化 方 法得 出 程 序设 计 思 路剖 析 程 序（ 10 分 钟 ）理 顺 思 路 ， 剖 析 程序 ， 熟 悉 流 程师 生 互 动 ， 理 顺 思路 ，观察学生，看其能否与教师互动，跟上教师的思维分 析 思 路剖 析 程 序上 机 练 习（ 20 分 钟 ）辅导学生上机练习安排能力好的同学帮助有困难的同学学 生 设 计 界 面 、 编写 代 码

11、 、 调 试 代 码辅导学生上机练习，观察学生谁做出了好的作品，解决学生的疑难点互 助 协 作评 价 交 流（ 3 分 钟 ）对 好 的 作 品 进 行 评价，对出现的错误进行分析看 老 师 演 示 作 品相 互 交 流 作 品观察学生，看其对自己的作业是否满意，是否有成就感相 互 交 流总 结（ 2 分 钟 ）一起总结这个程序的编程思想和流程和 老 师 一 起 回 顾 并总 结看学生在老师的引导下能不能自己总结出来回 顾 总 结感 悟 提 升（ 1 分 钟 ）让学生使用准备好的VB 开发的程序和软件，让学生对程序解决 问 题 有 更 深 的 了解。学生自己运行程序，更深的感受程序设计的魅力观

12、察学生，看其运行了实用程序后，有何反应激 发 学 生学 习 程 序设 计 的 兴趣2、 关键环节提炼（ 1） 引 入：以 儿 时 所 玩 的 锤 子 、 剪 刀 、 布 游 戏 为 背 景 ， 从 演 示 VB 编 写 的 锤 子 、 剪 刀 、 布 游 戏 程序 入 手 ， 能 立 即 唤 起 学 生 求 知 欲 望 ， 产 生 学 习 兴 趣 。（ 2） 剖 析 ：这 一 环 节 的 流 程 如 图 所 示 ：玩游戏的方法和步骤精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 9 页学习必备欢迎下载学 生 玩 游 戏 的 方 法 、步

13、 骤 体 现 的 数 学 思 维 是 计 算 机 程 序 设 计 的 基 础 ，我 利 用 对 比 的 方法 ，从 人 机 对 话 的 角 度 ，逐 句 剖 析 计 算 机 编 写 的 锤 子 、剪 刀 、布 游 戏 程 序（ 见 程 序 剖 析 实例 ），让 学 生 了 解 其 结 构 组 成 和 具 体 作 用 ，懂 得 计 算 机 程 序 设 计 的 基 本 思 想 ：按 照 人 类 解决 问 题 的 思 维 方 法 ，进 行 人 机 对 话 。计 算 机 能 够 听 懂 的“ 话 ”，就 是 我 们 输 入 的 命 令 。这样 ， 就 有 利 于 消 除 计 算 机 编 程 的 神 秘

14、 感 ， 激 发 学 生 学 习 计 算 机 编 程 的 兴 趣 。首 先 ， 这 个 程 序 中 人 和 计 算 机 每 次 都 有3 种 出 牌 的 可 能 ， 那 么 如 何 编 写 程 序 最 方 便呢 ？ （ 引 导 学 生 思 考 ？ ）我 们 就 把 这 3 个 图 片 形 象 的 用 3 个 数 字 来 代 替 ， 这 样 就 使 我 们 的 编 程 更 容 易 实 现 。因 此 ， 我 们 这 样 进 行 约 定 ：锤 子 ，用 数 字“ 1”表 示剪 刀 ，用 数 字“ 3”表 示布 ， 用 数 字 “ 3” 表 示这 里 提 问 让 学 生 思 考 ， 这 个 约 定 一

15、 定 要 唯 一 吗 ？ 要 注 意 什 么 ？ （ 讨 论 ）程 序 剖 析 实 例 ： （ 以 人 出 锤 子 为 例 ）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 随机函数初始化x = Int(3 * Rnd) + 1 电脑随机出数（1， 2，3 任选其一）y = 1 我出的数字（锤子）I

16、mage4.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 页，共 9 页学习必备欢迎下载 w =

17、 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、程 ， 设 计 “ 界 面 设 计 ” 、“ 代 码 编 写 ”、“ 调 试 运 行 ”三 个 环 节 。结 合 学 生 的 实 际 情 况 ，组 织 学 生 实 施 上 述 三 个 环 节 的学 习 、体 验 。首 先 将 引 入 课 题 时 运 行 的 锤 子 、剪 刀 、布 游 戏 程 序 提 供 给 学 生 们 ，让 其 观 看 界 面的 设 计 。要 求 学 生 在 老 师 完 成 一 部 分 程 序 后 ，举 一 反 三 ，自 己 动 手 编 写 所 有 的 程 序 ，亲 身 感 受计 算 机 程 序 解 决 问 题 的 过 程 。（ 4） 评 价 和 交 流 ：在 整 个 教 学

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

20、总 结 提 升 ：在 “ 编 程 实 现 ” 的 基 础 上 ， 让 学 生 自 己 使 用 老 师 提 供 的 其 他 VB 开 发 的 实 用 程 序 ， 教 师 引导 学 生 讨 论 ，使 学 生 认 识 到 用 计 算 机 编 程 可 以 帮 助 我 们 解 决 很 多 的 问 题 ：不 但 能 解 决 锤 子 、剪刀 、布 小 游 戏 问 题 ，还 能 解 决 更 大 更 复 杂 的 问 题 ，如 office就 可 以 用 VB 开 发 出 来 的 ，更 深 刻的 感 受 程 序 解 决 问 题 的 魅 力 。 认 识 到计算机解决问题和人解决问题一样需要有清晰的解题步骤。而对于计

21、算机而言，这种解题步骤就称为算法。计算机编程解决问题的过程四、教学反思1、教学设计本 节 课 在 教 学 过 程 中 ，用 教 师 自 己 设 计 的 例 子 编 程 实 现 锤 子 、剪 刀 、布 游 戏 ，通 过 学生 自 己 总 结 的 方 法 和 步 骤 ，自 然 的 引 入 到 计 算 机 编 程 的 方 法 和 流 程 。这 样 引 入 课 题 自 然 、清 楚 ，更 重 要 的 是 简 化 了 “ 算 法 ” 的 概 念 和 简 化 了 程 序 ， 课 堂 效 果 较 好 ， 达 到 了 课 标 的 要 求 。分析问题设计算法编写程序调试运行检测结果精选学习资料 - - - -

22、- - - - - 名师归纳总结 - - - - - - -第 5 页，共 9 页学习必备欢迎下载本 节 课 的 教 学 我 感 到 最 为 成 功 的 地 方 是 ，以 学 生 为 本 ，教 材 处 理 恰 当 ，通 过 运 行 编 程 实 现锤 子 、剪 、布 游 戏 程 序 抓 住 学 生 的 视 线 ，通 过 学 生 熟 悉 的 游 戏 引 入 课 题 ，通 过 剖 析 程 序 让 学 生了 解 编 程 解 决 问 题 的 方 法 和 步 骤 ， 通 过 学 生 上 机 实 践 ， 亲 身 感 受 计 算 机 编 程 解 决 问 题 的 过 程 ，通 过 学 生 感 悟 编 程 的 过

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

24、 程 实 现 锤 子 、剪 、布 游 戏 这 样的 小 问 题 ，还 能 解 决 更 大 更 复 杂 的 问 题 。比 如 ：你 们 现 在 所 用 的 office可 以 用 VB 开 发 出 来 的 ，还 有 很 多 游 戏 都 是 用 VB 开 发 出 来 的 。 以 前 我 们 所 学 内 容 主 要 是 在 学 习 使 用 别 人 开 发 出 来 的 程序 ，如 果 有 一 天 你 能 开 发 出 程 序 让 别 人 使 用 ，那 么 你 的 计 算 机 水 平 将 上 一 个 台 阶 ，你 自 己 也 很有 成 就 感 。3、不足这 节 课 内 容 较 多 ， 学 生 交 流 的

25、时 间 较 少 ， 对 学 生 作 品 的 评 价 也 不 全 面 。附：教学资源、学生学习过程及典型成果（可选）制作界面：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 9 页学习必备欢迎下载程序运行界面：完整程序代码：Dim sum, w, d, L As Integer 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 9 页学习必备欢迎下载Private Sub Command1_Click() Dim x, y As Integer sum = sum + 1 Rando

26、mize Timer x = Int(3 * 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.Caption = 你输了！ Image5.Picture = Image3.Pi

27、cture 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 = Int(3 * Rnd) + 1 y = 2 Image4.Picture = Image2.Picture If x = y Then Label3.Caption = 平局 Image5.Picture = Image2.Picture d =

28、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 Text2.Text = w Text3.Text = d Text4

29、.Text =L End Sub Private Sub Command3_Click() Dim x, y As Integer sum = sum + 1 Randomize Timer x = Int(3 * 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 页