信息技术基础 教案-教学设计-3.3企业培训交互式文稿制作

《信息技术基础》教学设计案例名称企业培训交互式演示文稿制作学时2案例简介习近平总书记在二十大报告中指出，要“完善人才战略布局，加快建设世界重要人才中心和创新高地，着力形成人才国际竞争的比较优势。”随着经济全球化程度的加深，全世界人力资源的优化配置与人才竞争加剧，人才、资本、信息、技术等创新要素在全球范围内加速流动。江南锡商科技有限公司为了提升人才竞争意识，考核2023年的公司企业文化培训效果，凝聚广大职员的向心力和归属感，同时也能大大提升职业技能和信息安全意识。为了强化培训效果，激发员工的积极性，鼓励员工主动性，培训班决定进行一次培训知识竞赛，为了使竞赛不仅具有知识性，而且具有趣味性，组织者决定采用现场计算机答题的方式。使用PowerPoint自带的VBA语言把竞赛试题以演示文稿的方式显示出来，竞赛试题包括选择题、填空题和判断题，实现交互式练习题的现场答题。知识目标（1）了解PowerPoint中的VBA功能。（2）了解VBA的简单代码。能力目标（1）能够在幻灯片中添加VBA开发工具。（2）能够在幻灯片中添加并设置控件。（3）能够通过主题、背景等方式对幻灯片美化。素养目标（1）养成数据安全的信息素养。（2）养成积极主动的竞争意识。（3）养成团结合作的团队精神。教学内容教学过程【问题导入】江南锡商科技有限公司为了提升人才竞争意识，考核2023年的公司企业文化培训效果，凝聚广大职员的向心力和归属感，同时也能大大提升职业技能和信息安全意识。为了强化培训效果，激发员工的积极性，鼓励员工主动性，培训班决定进行一次培训知识竞赛，为了使竞赛不仅具有知识性，而且具有趣味性，组织者决定采用现场计算机答题的方式。使用PowerPoint自带的VBA语言把竞赛试题以演示文稿的方式显示出来，竞赛试题包括选择题、填空题和判断题，实现交互式练习题的现场答题。【案例分析】在PowerPoint中完成该案例，需要使用VBA功能来制作交互式测试题。其具体操作可分为4个任务：添加VBA开发工具、制作选择题、制作填空题、制作判断题。任务一添加VBA开发工具【任务分析】在PowerPoint2016中添加VBA开发工具选项卡。【任务讲演】1）打开一个空白演示文稿，单击“设计”→“主题”的右侧下拉按钮，选择“浏览主题”，选择项目案例2中制作的主题“年终总结模板”，在第幻灯片标题处输入文字“公司培训趣味知识竞赛”。2）选择“文件”→“选项”命令，在弹出的“PowerPoint选项”对话框中选择“自定义功能区”选项卡。在“主选项卡”列表框中勾选“开发工具”复选框，单击“确定”按钮，如图3-61所示。图3-61添加VBA开发工具3）选择“文件”→“幻灯片”→“新建幻灯片”，单击下拉按钮，选择“目录页”新建一张幻灯片，在标题处输入“活动目录”，文本处输入活动目录条目。如图3-62所示。图3-61制作活动目录4）保存演示文稿，文件名为“公司培训趣味知识竞赛”，文件类型为“启用宏PowerPoint的演示文稿（*.pptm）”。【课堂提问】在文件菜单中我们还做过哪些操作？【教师提示】字处理中的属性修改，导出pdf格式的文档等【课程思政】科技创新，中国智造任务二制作选择题【任务分析】通过在幻灯片中添加选项按钮和命令按钮来实现单选题和多选题的制作。【任务讲演】1.制作单选题1）选择“文件”→“幻灯片”→“新建幻灯片”，单击下拉按钮，选择“内容页”新建四张幻灯片，在第三张幻灯片标题处输入文字“单选题”，在文本框内输入试题文字“公司定期企业培训由（）部门负责组织安排培训。”2）单击“开发工具”→“控件”→“选项按钮”图标，在试题下方绘制出该按钮。选中该按钮，右击，在弹出的快捷菜单中选择“属性”命令，在打开的“属性”任务窗格中，将“Caption”的值改为“A”。单击“BackColor”右侧下拉按钮，在打开的“调色板”中将按钮的颜色设置为“&H00E0E0E0&”，单击“Font”右侧下拉按钮，设置字体为：宋体，加粗，四号。如图3-62所示。图3-62设置单选题选项格式3）在选项按钮旁添加一个文本框，输入文字“工程部”并设置字体和颜色，调整选项按钮和文本框的大小和位置。4）按照同样方法添加B、C、D选项按钮，并修改它们的“Caption”值分别为“B:”“C:”“D:”，添加相应的文本框并输入文字。如图3-63所示。图3-63单选题页面效果5）单击“开发工具”→“控件”→“命令按钮”图标，在试题右方绘制出该按钮。选中该按钮，右击，在弹出的快捷菜单中选择“属性”命令，在打开的“属性”任务窗格中，将“Caption”的值改为“提交”并设置字体和颜色。如图3-64所示。图3-64设置“提交”控件属性6）双击“提交”按钮，在打开的代码窗口中输入如下代码：PrivateSubCommandButton1_Click()IfOptionButton2.Value=TrueThenx=MsgBox("恭喜您，答对了！加油哦！",vbOKOnly,"提示")Elsex=MsgBox("很遗憾，答错了！再努力！",vbOKOnly,"提示")EndIf单击左上角的“保存”按钮，这里表示选项B（OptionButton2.Value=True）是正确答案，其他选项都是错误答案。如图3-65所示。图3-65编辑单选题VBA代码7）按照相同的方法，制作更多的单选题，保存该演示文稿，放映幻灯片。2.制作多选题：1）在第四张幻灯片标题处输入文字“多选题”，在文本框内输入试题文字“公司定期企业文化培训包含的科目有（）。”2）单击“开发工具”→“控件”→“复选框”图标，在试题下方绘制出该复选框。选中该按钮，右击，在弹出的快捷菜单中选择“属性”命令，在打开的“属性”任务窗格中，将“Caption”的值改为“A:”。在复选框旁添加一个文本框，在其中输入文字“企业文化”。参照单选题的方法设置按钮的颜色和选项字母的字体。按照同样方法再添加3个复选框，并修改它们的“Caption”值分别为“B:”“C:”“D:”。添加相应的文本框并输入文字。如图3-66所示。图3-66多选题页面效果3）单击“开发工具”→“控件”→“命令按钮”图标，在试题右方绘制出该按钮。选中该按钮，右击，在弹出的快捷菜单中选择“属性”命令，在打开的“属性”任务窗格中，将“Caption”的值改为“提交”。4）双击“提交”按钮，在打开的代码窗口中输入如下代码：PrivateSubCommandButton1_Click()IfCheckBox1.Value=TrueAndCheckBox2.Value=TrueAndCheckBox3.Value=TrueAndCheckBox4.Value=TrueThenx=MsgBox("恭喜您，答对了，太棒了！",vbOKOnly,"提示")Elsex=MsgBox("很遗憾，答错了，努力哦！",vbOKOnly,"提示")EndIfEndSub5）单击左上角的“保存”按钮，这里表示同时选择选项A、B、C、D（CheckBox1.Value=TrueAndCheckBox2.Value=TrueAndCheckBox3.Value=TrueAndCheckBox4.Value=True）是正确答案，其他选择都是错误答案。如图3-67所示。图3-67编辑多选题VBA代码6）按照相同的方法制作更多的多选题，保存该演示文稿，放映幻灯片。【课堂提问】可以读懂代码中的逻辑关系吗？【教师提示】尝试理解，并举例Excel中的逻辑函数【课程思政】科技创新，中国智造，严谨的工匠精神任务三制作填空题【任务分析】通过在幻灯片中添加文本框和命令按钮来实现填空题的制作。【任务讲演】1）在第五张幻灯片标题处输入文字“填空题”，在文本框内输入试题文字“江南锡商科技有限公司每年举办（）次企业文化培训。”2）单击“开发工具”→“控件”→“文本框”图标，在试题文字中间空白处绘制出该文本框，并调整合适大小和位置。3）单击“开发工具”→“控件”→“命令按钮”图标，在试题右方绘制出该按钮。选中该按钮，右击，在弹出的快捷菜单中选择“属性”命令，在打开的“属性”任务窗格中，将“Caption”的值改为“提交”。如图3-68所示。图3-68填空题页面效果4）双击“提交”按钮，在打开的代码窗口中输入如下代码：PrivateSubCommandButton1_Click()IfTextBox1.Value=2Thenx=MsgBox("恭喜您，答对了",vbOKOnly,"提示")Elsex=MsgBox("很遗憾，答错了",vbOKOnly,"提示")EndIfEndSub5）5）单击左上角的“保存”按钮，这里表示在填空处填写2（TextBox1.Value=2）是正确答案，填写其他内容都是错误答案。如图3-69所示。图3-69编辑填空题VBA代码6）按照相同的方法制作更多的填空题，保存该演示文稿，放映幻灯片。【课堂提问】可以读懂代码中的逻辑关系吗？【教师提示】尝试理解，并举例Excel中的逻辑函数【课程思政】科技创新，中国智造，严谨的工匠精神任务四制作判断题【任务分析】通过在幻灯片中添加选项按钮和命令按钮来实现是判断的制作。【任务讲演】1）在第六张幻灯片标题处输入文字“判断题”，在文本框内输入试题文字“江南锡商科技有限公司每年定期进行企业文化培训。”2）单击“开发工具”→“控件”→“选项按钮”图标，在试题下方绘制出该按钮。选中该按钮，右击，在弹出的快捷菜单中选择“属性”命令，在打开的“属性”任务窗格中，将“Caption”的值改为空。3）在选项按钮旁添加一个文本框，在其中输入文字“是”，按照同样方法再添加一个选项按钮，并修改它的“Caption”值为空，添加相应的文本框并输入“否”，调整按钮和文本框合适的大小和位置。4）单击“开发工具”→“控件”→“命令按钮”图标，在试题右方绘制出该按钮。选中该按钮，右击，在弹出的快捷菜单中选择“属性”命令，在打开的“属性”任务窗格中，将“Caption”的值改为“提交”，调整按钮的大小和位置。如图3-70所示。图3-70判断题页面效果5）双击“提交”按钮，在打开的代码窗口中输入如下代码：PrivateSubCommandButton1_Click()IfOptionButton1.Value=TrueThenx=MsgBox("恭喜您，答对了！",vbOKOnly,"提示")Elsex=MsgBox("很遗憾，答错了！",vbOKOnly,"提示")EndIfEndSub6）单击左上角的“保存”按钮，这里表示选项是（OptionButton1.Value=True）是正确答案，其他选项都是错误答案。如图3-71所示。图3-71编辑判断题VBA代码7）按照相同的方法制作更多的判断题，保存该演示文稿，放映幻灯片。8）在幻灯片左侧列表最后新建一张“结束页”版式幻灯片，标题处输