小常識
　　PowerPoint中控件的添加、屬性設(shè)置、VBA程序的編制與運行
　　
　　右擊“工具欄”空白區(qū)，在彈出的菜單中選擇“控件工具箱”添加相應(yīng)工具欄。單擊其中的、等按鈕后，再單擊幻燈片中需要放置相應(yīng)文本框或按鈕的位置即可添加相應(yīng)控件。
　　右擊任一控件，選擇“屬性”命令即彈出相應(yīng)控件的“屬性”對話框，然后可以進行屬性的下列基本參數(shù)設(shè)置（請參考案例）：建議對文本框設(shè)置BackColor（背景色）、ForeColor（前景色），對按鈕設(shè)置Caption（標題），兩者均設(shè)置Height（高度）、Width（寬度）、Font（字體，含字形、字號和顏色）等屬性參數(shù)，在此基礎(chǔ)上再熟悉其他屬性參數(shù)。
　　執(zhí)行“工具→宏→Visual Basic編輯器”命令，在打開窗口的左框架中選擇相應(yīng)幻燈片，在右框架中輸入或編輯VBA程序（程序語句用“_”將1行語句分成兩行，“:”將兩條語句合放于1行）。
　　為了能在PowerPoint（包括Word和Excel）中運行VBA程序，在打開軟件包后執(zhí)行“工具→選項”命令，在“安全性”選項卡中單擊“安全性”按鈕，再在彈出的對話框中選擇“中”單選鈕后關(guān)閉軟件包窗口，重新打開軟件包窗口再調(diào)用含有控件的文檔。
　　
　　經(jīng)驗交流
　　“小學整數(shù)四則運算自測練習”設(shè)計中的典型問題與解決方案
　　
　　指定范圍隨機整數(shù)的生成：VBA語言中提供了Randmize函數(shù)和Rnd隨機函數(shù)，前者以系統(tǒng)時間作參照為后者產(chǎn)生0～1之間隨機數(shù)的種子數(shù)；而在“最大值”與“最小值”之間產(chǎn)生隨機整數(shù)的典型公式是：Int((最大數(shù)-最小數(shù)+1)*Rnd)＋最小數(shù)）；顯然產(chǎn)生“2～最大數(shù)”之間隨機整數(shù)的公式是：Int((最大數(shù)-最小數(shù)+1)*Rnd＋最小數(shù)）。鑒于公式中的“最大數(shù)”取自文本框txtMaxNum.Value中的字符串型數(shù)字，需要使用CSng()函數(shù)將其數(shù)據(jù)類型轉(zhuǎn)換為數(shù)值型，相應(yīng)的典型公式為Int((CSng(txtMaxNum.Value)-1) * Rnd + 2)。
　　文本框中輸入內(nèi)容的容錯：本課件中的“最大數(shù)”、“題目”或“答案”文本框內(nèi)容為“空”或“字符串（不包括全角數(shù)字）”時，為避免單擊“出題”、“答案”或“批改”按鈕時發(fā)生程序不能繼續(xù)運行的錯誤，可采用If…Then…Else語句，并用IsNumeric()函數(shù)處理相應(yīng)文本框的內(nèi)容（當其為“空”或“字符串”時，結(jié)果為False；而當其為數(shù)字（包括全角數(shù)字）時，結(jié)果為True），從而實現(xiàn)對文本框輸入內(nèi)容的容錯，典型語句如下。
　　If IsNumeric(txtMaxNum.Value) = False Then
　　 MsgBox ("請向“最大數(shù)”文本框中輸入可能的“最大數(shù)”。")
　　Else
　　 … 'txtMaxNum文本框內(nèi)容是數(shù)字時運行的語句
　　End If
　　PPT中控件的循環(huán)操作技巧：對控件進行循環(huán)操作（例如批量文本框的內(nèi)容清除）是常見而有用的操作，其優(yōu)點是語句少、效率高，在PowerPoint軟件包中可用下列技巧實現(xiàn)。
　　For i = 1 To 4
　　ActivePresentation.Slides("Slide1").Shapes.Item("txtAnswer" & i).OLEFormat.Object.Text = "" '一種實現(xiàn)控件循環(huán)調(diào)用的語句，其中"Slide1"是幻燈片的實際編號，也可用名稱代替
　　Next i
　　注意：PowerPoint不支持“txtAnswer & i.Text= ""”，而用上述語句（Word和Excel中均不同）；為使程序模塊化和方便移植，可設(shè)置setTxtBoxVal方法和getTxtBoxVal函數(shù)。
　?。愯∨峒兌Y）