ppt制作的課件，如果在實際教學中能夠增加人機交互功能的話，會大大提高課堂效率，促進學生對知識的理解，今天本人在此就利用ppt自帶的控件來制作人機交互的多項選擇題，詳細制作方法請看下文詳細介紹。

powerpoint2003 官方免費安裝版

• 類型：辦公軟件
• 大小：5.23MB
• 語言：簡體中文
• 時間：2013-05-22

查看詳情

1、啟動ppt2003，執(zhí)行視圖-工具欄-控件工具箱命令，調(diào)出控件工具箱，在主編輯區(qū)域你會看到該工具箱。

2、在控件工具箱里選擇復選框，然后在編輯區(qū)域按住左鍵拖動拉出一個復選框checkbox1，右鍵單擊該復選框從下拉菜單中選擇屬性，調(diào)出屬性對話框。

3、在屬性對話框中找到caption屬性修改其值為“ A、小球A的質(zhì)量小于小球B的質(zhì)量”，接著點擊font屬性修改字體為楷體，字形為常規(guī)，字號為三號，點擊確定按鈕，并設置auotsize為true。

4、選擇復選框然后復制三個，并依次修改其caption的值為“   B． 甲液體的密度小于乙液體的密度”、“ C．  在甲液體中小球A對容器底的壓力小于小球B對容器底的壓力”、"D．  小球A在甲液體中排開液體的質(zhì)量大于在乙液體中排開液體的質(zhì)量"。并調(diào)節(jié)四個選項的位置使布局美觀。

5、選擇工具箱里命令按鈕，在編輯區(qū)域拖拽出一個按鈕，修改其caption屬性值為“確定”，設置前景色為&H000080FF&，背景色為&H00FF80FF&，字體為“王羲之書法字體”，字號為一號。

6、雙擊確定按鈕進入代碼編輯區(qū)域，輸入代碼

If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = False Then

MsgBox ("答案正確")

ElseIf (CheckBox1.Value = True And CheckBox4.Value = False) Or (CheckBox2.Value = True And CheckBox4.Value = False) Or (CheckBox3.Value = True And CheckBox4.Value = False) Or (CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = False) Then

MsgBox ("沒有選全")

Else

MsgBox ("答案錯誤")

End If

并進行調(diào)試運行。

7、選擇”確定“按鈕，然后再復制一個修改其caption屬性值為“重選”，接著雙擊該按鈕進入編輯區(qū)域，并輸入代碼

Private Sub CommandButton2_Click()

CheckBox1.Value = False

CheckBox2.Value = False

CheckBox3.Value = False

CheckBox4.Value = False

End Sub

運行調(diào)試。

最新評論