【文章內(nèi)容簡介】 e（2）、shape（3）。給兩個命令按鈕添加VBA代碼，直接雙擊命令按鈕，即可打開VBA編輯器，截圖如下（圖5）：輸入的代碼如下：Private Sub CommandButton1_Click()Set myDocument = (1)(1). = RGB(50, 200, 158)(2). = RGB(243, 180, 50)(3). = RGB(200, 50, 255)End SubPrivate Sub CommandButton2_Click()Set myDocument = (1)(1). = RGB(252, 110, 4)(2). = RGB(255, 1, 1)(3). = RGB(252, 217, 4)End Sub代碼寫好后，即可完成了本次顏色編輯。兩個顏色方案演示如下圖：顏色方案一（圖6）：顏色方案二（圖7）：三、調(diào)用窗體的學(xué)習(xí)在第二頁幻燈片中，添加一個“命令按鈕”控件，再在VBA編輯器中設(shè)計一個“用戶窗體”，在“用戶窗體”中插入一幅圖片（或一段文字框）。在幻燈片放映時，點擊“命令按鈕”就可以彈出帶“用戶窗體”的圖片，同時，你還可以隨時移動這個圖片，好象在課堂教學(xué)中要移動一塊小黑板一樣方便。在第二張幻燈片中添加一個“命令按鈕”，添加方法上面有介紹，右鍵，調(diào)出“屬性”窗口，修改Caption屬性值為“調(diào)用窗體”，如下圖（圖8）：在PowerPoint菜單中選擇“工具”——“宏”——“Visual Basic編輯器”，即可打開VBA編輯器，然后點擊“工程資源管理器”圖標(biāo)，彈出“工程資源管理器”窗口，點擊右鍵，在出現(xiàn)的快捷菜單中選擇“插入——用戶窗體”命令，隨后即可顯示默認(rèn)窗體和控件工具箱，如下圖所示（圖9）：新添加的用戶窗體的名稱為：UserForm1，現(xiàn)在需要添加一個圖形控件，在控件工具箱中選中“圖像”控件，然后將鼠標(biāo)放到用戶窗體中，拖動鼠標(biāo)即可自行控制圖像控件的大小。鼠標(biāo)在圖片框中點擊右鍵，選擇“屬性”，即可打開控件屬性窗口在屬性Picture中，點擊后插入需要的圖片，此時插入的圖片未能夠使用圖片框的大小，可以點擊屬性PictureSizeMode取值3，圖片即可自動適應(yīng)大小，如果尚未適合圖片框，可以自行拖動圖片框，讓圖片與圖片框能夠更好地相互適應(yīng)，完成后如下圖（圖10）：返回幻燈片編輯界面，雙擊剛才創(chuàng)建的命令按鈕“調(diào)用窗體”，即可打開VBA代碼編輯，此時可以輸入Click事件代碼：,本代碼意思是：當(dāng)幻燈片播放時，點擊按鈕，用戶窗體即可打開。如 代碼如下：Private Sub CommandButton1_Click() End Sub完成后，播放幻燈片，點擊調(diào)用窗體，此時窗體就好像一幅教學(xué)的“小黑板”可以移動這個窗體，而不會妨礙幻燈片的空間。當(dāng)不需要這個窗體的時候，點擊窗體右上角的“X”就可以關(guān)閉窗體了。效果如下圖所示（圖11）：四、學(xué)生練習(xí)聯(lián)系你的教學(xué)需要，制作具有交互式的練習(xí)試題PPT課件。作業(yè)要求：至少制作二張幻燈片，在第一張幻燈片上制作一道單項選擇題；在第二張幻燈片上制作一道多項選擇題。題目內(nèi)容不限，每道題有多個選擇答案提供選擇，當(dāng)選擇答案后，點擊“提交答案”按鈕，然后根據(jù)作答情況作出判斷，并顯示提示框：如果所選擇的答案是對的，彈出一個“恭喜你，選擇正確！”對話框；但如果選擇錯誤了，則彈出“選擇錯誤，請再想想！”對話框。一、單項選擇題先查看整體版面（圖14）：新建文件后，插入文本框，寫上單項選擇題，以及題目內(nèi)容“關(guān)于信息的下列說法中，正確的是：（）”；創(chuàng)建選項按鈕，選擇視圖——工具欄——控件工具欄，調(diào)出控件工具欄，點擊“選項按鈕”控件（圖1）光標(biāo)在幻燈片適當(dāng)位置拖動鼠標(biāo)，創(chuàng)建第一個選項按鈕，同樣方法，創(chuàng)建其他三個選項按鈕。創(chuàng)建好按鈕后，按鈕一右鍵，編輯其屬性如“Caption”、“Font”、“ForeColor”等，然后編輯“Value”為“False”即可，其他三個按鈕的編輯方法相同，。添加“命令按鈕”，右鍵修改相應(yīng)的熟悉，Caption改為“提交答案”，然后雙擊按鈕，打開VBA編輯器，輸入相應(yīng)代碼，代碼如下：Private Sub CommandButton1_Click()If = True Then ex = MsgBox(“恭喜你，選擇正確！——顏鳳珠”, vbOKOnly)Else ex = MsgBox(“選擇錯誤，請再想想！——顏鳳珠”, vbOKOnly)End If End Sub 代碼分析：以上代碼的功能是：當(dāng)用戶點擊“提交答案”按鈕后，計算機自動執(zhí)行這一段代碼，判斷用戶輸入的是否符合要求，這是一段判斷語句，因為A選項是正確的，所以如果選擇了A選擇，就會彈出“恭喜你，選擇正確！——顏鳳珠”對話框，如果選擇其他選擇，則會彈出“選擇錯誤，請再想想！——顏鳳珠”,對話框。添加“下一頁”命令按鈕，修改按鈕Caption等屬性，雙擊打開按鈕的VBA編輯器，輸入代碼，代碼如下： Private Sub CommandButton2_Click()With SlideShowWindows(1).View.GotoSlide 2（切換到指定的幻燈片，第2頁）End With End Sub 全部代碼截圖如下（圖20）：保持文件后，運行文件后，效果如下圖： 選擇正確答案（圖12）：選擇錯誤答案（圖13）：二、多項選擇題先查看整體版面（圖16）：新建文件后，插入文本框，寫上多項選擇題，以及題目內(nèi)容“把一個文件從硬盤復(fù)制到U盤的方法有：（）”；創(chuàng)建選項按鈕，選擇視圖——工具欄——控件工具欄，調(diào)出控件工具欄，點擊“復(fù)選框”控件（圖15）光標(biāo)在幻燈片適當(dāng)位置拖動鼠標(biāo)，創(chuàng)建第一個選項按鈕，同樣方法，創(chuàng)建其他三個選項按鈕。創(chuàng)建好按鈕后，按鈕一右鍵，編輯其屬性如“Caption”、“Font”、“ForeColor”等，然后編輯“Value”為“False”即可，其他三個按鈕的編輯方法相同，，【文件】菜單的【發(fā)送】命令，（答案是AC）添加“命令按鈕”，右鍵修改相應(yīng)的熟悉，Caption改為“提交答案”，然后雙擊按鈕，打開VBA編輯器，輸入相應(yīng)代碼，代碼如下：Private Sub CommandButton1_Click()If = True And = True Then ex = MsgBox(“恭喜你，選擇正確！——顏鳳珠”, vbOKOnly)Else ex = MsgBox(“選擇錯誤，請再想想！——顏鳳珠”, vbOKOnly) = False = False = False = False End If End Sub 代碼分析：以上代碼的功能是：當(dāng)用戶點擊“提交答案”按鈕后，計算機自動執(zhí)行這一段代碼，判斷用戶輸入的是否符合要求，這是一段判斷語句，因為A、C選項是正確的，只做了一種全對的判斷，全對了，就會彈出“恭喜你，選擇正確！——顏鳳珠”對話框，如果不全對，則會彈出“選擇錯誤，請再想想！——顏鳳珠”,對話框。添加“上一頁”“下一頁”命令按鈕，修改按鈕Caption等屬性，雙擊打開按鈕的VBA編輯器，輸入代碼，代碼如下： 上一頁代碼如下：Private Sub CommandButton2_Click()With SlideShowWindows(1).View.GotoSlide 1（切換到指定的幻燈片，第1頁）End With End Sub 下一頁代碼如下：Private Sub CommandButton2_Click()With SlideShowWindows(1).View.GotoSlide 3（切換到指定的幻燈片，第3頁）End With End Sub 全部代碼截圖（圖19）：保持文件后，運行文件后，效果如下圖： 選擇正確答案（圖17）：選擇錯誤答案（圖18）：第三道多項選擇題，有7個選項，其中CDFG是正確答案 選擇正確答案（圖22）：選擇錯誤答案（圖21）：代碼截圖如下（圖23）：代碼為: Private Sub CommandButton2_Click()If = True And = True And = True And = True Then ex = MsgBox(“恭喜你，選擇正確！——顏鳳珠”, vbOKOnly)Else ex = MsgBox(“選擇錯誤，請再想想！——顏鳳珠”, vbOKOnly) = False = False = False = False = False = False = False End If End Sub上一頁代碼：Private Sub CommandButton1_Click()With SlideShowWindows(1).View.GotoSlide 2End With End Sub第四篇：植樹問題教學(xué)設(shè)計PPT課件篇一：植樹問題教案及課件開課完整版“植樹問題”教學(xué)設(shè)計執(zhí)教者： 盧平芳 教學(xué)內(nèi)容：人教版義務(wù)教育課程標(biāo)準(zhǔn)實驗教材四年級（下冊）第117118頁例1 及做一做教學(xué)目標(biāo)：1． 通過動手操作、小組合作，使學(xué)生能理解間隔數(shù)與植樹棵樹之間的規(guī)律，并將規(guī)律應(yīng)用到解決類似的實際問題中去。2． 使學(xué)生經(jīng)歷和體驗“復(fù)雜問題簡單化”的解題策略和方法。滲透數(shù)形結(jié)合的思想，培養(yǎng)學(xué)生借助圖形等方式解決問題的意識。3．通過實踐活動激發(fā)熱愛數(shù)學(xué)的情感，感受數(shù)學(xué)在日常生活中的廣泛應(yīng)用，體驗成功的喜悅。教學(xué)重點：引導(dǎo)學(xué)生發(fā)現(xiàn)不封閉線路上，兩端都栽樹時，間隔現(xiàn)象的簡單規(guī)律。教學(xué)難點：運用規(guī)律解決類似的實際問題的方法。教學(xué)準(zhǔn)備：電腦課件、小樹模型、表格等。教學(xué)過程(一)創(chuàng)設(shè)情境，呈現(xiàn)問題呈現(xiàn)情境：通過比較兩組圖片引出并板書：“植樹問題”。引出話題：在小路的一邊栽樹要考慮哪些因素? 隨著學(xué)生答，課件依次出示： 路長100米，每隔5米栽一棵樹（兩端都要栽）提煉問題：根據(jù)剛才的情境，你能提出什么問題? 【設(shè)計意圖：本環(huán)節(jié)沒有給出現(xiàn)成的條件，而是從美化環(huán)境入手，引導(dǎo)學(xué)生思考要考慮哪些因素，旨在讓學(xué)生經(jīng)歷提煉問題的過程，找到解決問題的相關(guān)因素?！?二)大膽猜測，提出假設(shè)模型猜想。猜一猜一共要準(zhǔn)備多少棵小樹苗？并說一說你是怎么想的？預(yù)設(shè)一：100247。5=20（棵）預(yù)設(shè)二：100247。5+1=21（棵）預(yù)設(shè)三：100247。5+2=22（棵）?！驹O(shè)計意圖：學(xué)生在猜想的過程中可能會出現(xiàn)幾種不同的答案，到底哪種答案正確？留下懸念，引發(fā)思考，激發(fā)學(xué)生 探究新知的欲望】 2 驗證。(1)思考：用什么方法來驗證自己的猜想是否正確?(2)交流。在小組內(nèi)說說自己的驗證方法。并提出：遇到復(fù)雜的問題，我們先想簡單的，從簡單的問題來研究。我們先取100米的一小段20米來研究。(3)操作。讓學(xué)生選擇自己喜歡的方式(可以畫線段圖，也可以借助教師提供的學(xué)具)栽一栽，并數(shù)一數(shù)一共有幾個間隔、栽了幾棵樹。(4)匯報。小組派代表匯報驗證過程。教師借助多媒體演示畫線段圖的過程，進一步幫助學(xué)生理解植樹問題的數(shù)量關(guān)系。(5)提出假設(shè)：兩端都栽時，植樹棵數(shù)=間隔數(shù)+1?！驹O(shè)計意圖：在第二個環(huán)節(jié)，讓學(xué)生經(jīng)歷猜測——驗證——反想——提出假設(shè)的過程。教師呈現(xiàn)解決問題常用的方法：化難為易。讓學(xué)生利用學(xué)具模擬實際種樹去檢驗，學(xué)生興趣比較大，做到人人動手實踐，豐富了學(xué)生的感性材料，并突出畫線段圖的方法，分析其中蘊藏的數(shù)形結(jié)合思想，讓學(xué)生體會到畫線段圖理解數(shù)量關(guān)系的直觀性和精煉性?！?三)拓展實例，建立成熟模型提出問題：如果小路的長度改變，其他條件不變，還有這樣的規(guī)律嗎? 2 合作探究。請自己選擇小路的長度，并在小組內(nèi)合作完成下表。(1)思考：觀察表格，當(dāng)兩端都栽時，間隔數(shù)與棵數(shù)之間有什么關(guān)系?(2)質(zhì)疑：為什么兩端都栽時，植樹棵數(shù)比間隔數(shù)多1呢?(3)口答：(4)小結(jié)：(板書: “間隔數(shù)=總長247。間隔長”、“植樹棵樹=間隔數(shù)+1”。)驗證：算一算，兩端都栽樹時，100米到底應(yīng)該栽多少棵？你能舉出生活中的植樹問題嗎？【設(shè)計意圖：本環(huán)節(jié)的設(shè)計旨在引導(dǎo)學(xué)生對小路長度變化、