信息技術(shù)基礎(chǔ) 教案-教學(xué)設(shè)計(jì)-3.3企業(yè)培訓(xùn)交互式文稿制作

《信息技術(shù)基礎(chǔ)》教學(xué)設(shè)計(jì)案例名稱企業(yè)培訓(xùn)交互式演示文稿制作學(xué)時(shí)2案例簡介習(xí)近平總書記在二十大報(bào)告中指出，要“完善人才戰(zhàn)略布局，加快建設(shè)世界重要人才中心和創(chuàng)新高地，著力形成人才國際競爭的比較優(yōu)勢。”隨著經(jīng)濟(jì)全球化程度的加深，全世界人力資源的優(yōu)化配置與人才競爭加劇，人才、資本、信息、技術(shù)等創(chuàng)新要素在全球范圍內(nèi)加速流動(dòng)。江南錫商科技有限公司為了提升人才競爭意識，考核2023年的公司企業(yè)文化培訓(xùn)效果，凝聚廣大職員的向心力和歸屬感，同時(shí)也能大大提升職業(yè)技能和信息安全意識。為了強(qiáng)化培訓(xùn)效果，激發(fā)員工的積極性，鼓勵(lì)員工主動(dòng)性，培訓(xùn)班決定進(jìn)行一次培訓(xùn)知識競賽，為了使競賽不僅具有知識性，而且具有趣味性，組織者決定采用現(xiàn)場計(jì)算機(jī)答題的方式。使用PowerPoint自帶的VBA語言把競賽試題以演示文稿的方式顯示出來，競賽試題包括選擇題、填空題和判斷題，實(shí)現(xiàn)交互式練習(xí)題的現(xiàn)場答題。知識目標(biāo)（1）了解PowerPoint中的VBA功能。（2）了解VBA的簡單代碼。能力目標(biāo)（1）能夠在幻燈片中添加VBA開發(fā)工具。（2）能夠在幻燈片中添加并設(shè)置控件。（3）能夠通過主題、背景等方式對幻燈片美化。素養(yǎng)目標(biāo)（1）養(yǎng)成數(shù)據(jù)安全的信息素養(yǎng)。（2）養(yǎng)成積極主動(dòng)的競爭意識。（3）養(yǎng)成團(tuán)結(jié)合作的團(tuán)隊(duì)精神。教學(xué)內(nèi)容教學(xué)過程【問題導(dǎo)入】江南錫商科技有限公司為了提升人才競爭意識，考核2023年的公司企業(yè)文化培訓(xùn)效果，凝聚廣大職員的向心力和歸屬感，同時(shí)也能大大提升職業(yè)技能和信息安全意識。為了強(qiáng)化培訓(xùn)效果，激發(fā)員工的積極性，鼓勵(lì)員工主動(dòng)性，培訓(xùn)班決定進(jìn)行一次培訓(xùn)知識競賽，為了使競賽不僅具有知識性，而且具有趣味性，組織者決定采用現(xiàn)場計(jì)算機(jī)答題的方式。使用PowerPoint自帶的VBA語言把競賽試題以演示文稿的方式顯示出來，競賽試題包括選擇題、填空題和判斷題，實(shí)現(xiàn)交互式練習(xí)題的現(xiàn)場答題。【案例分析】在PowerPoint中完成該案例，需要使用VBA功能來制作交互式測試題。其具體操作可分為4個(gè)任務(wù)：添加VBA開發(fā)工具、制作選擇題、制作填空題、制作判斷題。任務(wù)一添加VBA開發(fā)工具【任務(wù)分析】在PowerPoint2016中添加VBA開發(fā)工具選項(xiàng)卡。【任務(wù)講演】1）打開一個(gè)空白演示文稿，單擊“設(shè)計(jì)”→“主題”的右側(cè)下拉按鈕，選擇“瀏覽主題”，選擇項(xiàng)目案例2中制作的主題“年終總結(jié)模板”，在第幻燈片標(biāo)題處輸入文字“公司培訓(xùn)趣味知識競賽”。2）選擇“文件”→“選項(xiàng)”命令，在彈出的“PowerPoint選項(xiàng)”對話框中選擇“自定義功能區(qū)”選項(xiàng)卡。在“主選項(xiàng)卡”列表框中勾選“開發(fā)工具”復(fù)選框，單擊“確定”按鈕，如圖3-61所示。圖3-61添加VBA開發(fā)工具3）選擇“文件”→“幻燈片”→“新建幻燈片”，單擊下拉按鈕，選擇“目錄頁”新建一張幻燈片，在標(biāo)題處輸入“活動(dòng)目錄”，文本處輸入活動(dòng)目錄條目。如圖3-62所示。圖3-61制作活動(dòng)目錄4）保存演示文稿，文件名為“公司培訓(xùn)趣味知識競賽”，文件類型為“啟用宏P(guān)owerPoint的演示文稿（*.pptm）”。【課堂提問】在文件菜單中我們還做過哪些操作？【教師提示】字處理中的屬性修改，導(dǎo)出pdf格式的文檔等【課程思政】科技創(chuàng)新，中國智造任務(wù)二制作選擇題【任務(wù)分析】通過在幻燈片中添加選項(xiàng)按鈕和命令按鈕來實(shí)現(xiàn)單選題和多選題的制作?！救蝿?wù)講演】1.制作單選題1）選擇“文件”→“幻燈片”→“新建幻燈片”，單擊下拉按鈕，選擇“內(nèi)容頁”新建四張幻燈片，在第三張幻燈片標(biāo)題處輸入文字“單選題”，在文本框內(nèi)輸入試題文字“公司定期企業(yè)培訓(xùn)由（）部門負(fù)責(zé)組織安排培訓(xùn)?！?）單擊“開發(fā)工具”→“控件”→“選項(xiàng)按鈕”圖標(biāo)，在試題下方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“A”。單擊“BackColor”右側(cè)下拉按鈕，在打開的“調(diào)色板”中將按鈕的顏色設(shè)置為“&H00E0E0E0&”，單擊“Font”右側(cè)下拉按鈕，設(shè)置字體為：宋體，加粗，四號。如圖3-62所示。圖3-62設(shè)置單選題選項(xiàng)格式3）在選項(xiàng)按鈕旁添加一個(gè)文本框，輸入文字“工程部”并設(shè)置字體和顏色，調(diào)整選項(xiàng)按鈕和文本框的大小和位置。4）按照同樣方法添加B、C、D選項(xiàng)按鈕，并修改它們的“Caption”值分別為“B:”“C:”“D:”，添加相應(yīng)的文本框并輸入文字。如圖3-63所示。圖3-63單選題頁面效果5）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“提交”并設(shè)置字體和顏色。如圖3-64所示。圖3-64設(shè)置“提交”控件屬性6）雙擊“提交”按鈕，在打開的代碼窗口中輸入如下代碼：PrivateSubCommandButton1_Click()IfOptionButton2.Value=TrueThenx=MsgBox("恭喜您，答對了！加油哦！",vbOKOnly,"提示")Elsex=MsgBox("很遺憾，答錯(cuò)了！再努力！",vbOKOnly,"提示")EndIf單擊左上角的“保存”按鈕，這里表示選項(xiàng)B（OptionButton2.Value=True）是正確答案，其他選項(xiàng)都是錯(cuò)誤答案。如圖3-65所示。圖3-65編輯單選題VBA代碼7）按照相同的方法，制作更多的單選題，保存該演示文稿，放映幻燈片。2.制作多選題：1）在第四張幻燈片標(biāo)題處輸入文字“多選題”，在文本框內(nèi)輸入試題文字“公司定期企業(yè)文化培訓(xùn)包含的科目有（）。”2）單擊“開發(fā)工具”→“控件”→“復(fù)選框”圖標(biāo)，在試題下方繪制出該復(fù)選框。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“A:”。在復(fù)選框旁添加一個(gè)文本框，在其中輸入文字“企業(yè)文化”。參照單選題的方法設(shè)置按鈕的顏色和選項(xiàng)字母的字體。按照同樣方法再添加3個(gè)復(fù)選框，并修改它們的“Caption”值分別為“B:”“C:”“D:”。添加相應(yīng)的文本框并輸入文字。如圖3-66所示。圖3-66多選題頁面效果3）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“提交”。4）雙擊“提交”按鈕，在打開的代碼窗口中輸入如下代碼：PrivateSubCommandButton1_Click()IfCheckBox1.Value=TrueAndCheckBox2.Value=TrueAndCheckBox3.Value=TrueAndCheckBox4.Value=TrueThenx=MsgBox("恭喜您，答對了，太棒了！",vbOKOnly,"提示")Elsex=MsgBox("很遺憾，答錯(cuò)了，努力哦！",vbOKOnly,"提示")EndIfEndSub5）單擊左上角的“保存”按鈕，這里表示同時(shí)選擇選項(xiàng)A、B、C、D（CheckBox1.Value=TrueAndCheckBox2.Value=TrueAndCheckBox3.Value=TrueAndCheckBox4.Value=True）是正確答案，其他選擇都是錯(cuò)誤答案。如圖3-67所示。圖3-67編輯多選題VBA代碼6）按照相同的方法制作更多的多選題，保存該演示文稿，放映幻燈片?！菊n堂提問】可以讀懂代碼中的邏輯關(guān)系嗎？【教師提示】嘗試?yán)斫猓⑴e例Excel中的邏輯函數(shù)【課程思政】科技創(chuàng)新，中國智造，嚴(yán)謹(jǐn)?shù)墓そ尘袢蝿?wù)三制作填空題【任務(wù)分析】通過在幻燈片中添加文本框和命令按鈕來實(shí)現(xiàn)填空題的制作?！救蝿?wù)講演】1）在第五張幻燈片標(biāo)題處輸入文字“填空題”，在文本框內(nèi)輸入試題文字“江南錫商科技有限公司每年舉辦（）次企業(yè)文化培訓(xùn)?！?）單擊“開發(fā)工具”→“控件”→“文本框”圖標(biāo)，在試題文字中間空白處繪制出該文本框，并調(diào)整合適大小和位置。3）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“提交”。如圖3-68所示。圖3-68填空題頁面效果4）雙擊“提交”按鈕，在打開的代碼窗口中輸入如下代碼：PrivateSubCommandButton1_Click()IfTextBox1.Value=2Thenx=MsgBox("恭喜您，答對了",vbOKOnly,"提示")Elsex=MsgBox("很遺憾，答錯(cuò)了",vbOKOnly,"提示")EndIfEndSub5）5）單擊左上角的“保存”按鈕，這里表示在填空處填寫2（TextBox1.Value=2）是正確答案，填寫其他內(nèi)容都是錯(cuò)誤答案。如圖3-69所示。圖3-69編輯填空題VBA代碼6）按照相同的方法制作更多的填空題，保存該演示文稿，放映幻燈片?！菊n堂提問】可以讀懂代碼中的邏輯關(guān)系嗎？【教師提示】嘗試?yán)斫?，并舉例Excel中的邏輯函數(shù)【課程思政】科技創(chuàng)新，中國智造，嚴(yán)謹(jǐn)?shù)墓そ尘袢蝿?wù)四制作判斷題【任務(wù)分析】通過在幻燈片中添加選項(xiàng)按鈕和命令按鈕來實(shí)現(xiàn)是判斷的制作?！救蝿?wù)講演】1）在第六張幻燈片標(biāo)題處輸入文字“判斷題”，在文本框內(nèi)輸入試題文字“江南錫商科技有限公司每年定期進(jìn)行企業(yè)文化培訓(xùn)?！?）單擊“開發(fā)工具”→“控件”→“選項(xiàng)按鈕”圖標(biāo)，在試題下方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為空。3）在選項(xiàng)按鈕旁添加一個(gè)文本框，在其中輸入文字“是”，按照同樣方法再添加一個(gè)選項(xiàng)按鈕，并修改它的“Caption”值為空，添加相應(yīng)的文本框并輸入“否”，調(diào)整按鈕和文本框合適的大小和位置。4）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“提交”，調(diào)整按鈕的大小和位置。如圖3-70所示。圖3-70判斷題頁面效果5）雙擊“提交”按鈕，在打開的代碼窗口中輸入如下代碼：PrivateSubCommandButton1_Click()IfOptionButton1.Value=TrueThenx=MsgBox("恭喜您，答對了！",vbOKOnly,"提示")Elsex=MsgBox("很遺憾，答錯(cuò)了！",vbOKOnly,"提示")EndIfEndSub6）單擊左上角的“保存”按鈕，這里表示選項(xiàng)是（OptionButton1.Value=True）是正確答案，其他選項(xiàng)都是錯(cuò)誤答案。如圖3-71所示。圖3-71編輯判斷題VBA代碼7）按照相同的方法制作更多的判斷題，保存該演示文稿，放映幻燈片。8）在幻燈片左側(cè)列表最后新建一張“結(jié)束頁”版式幻燈片，標(biāo)題處輸