用vba制作智能交互型課件31(編輯修改稿)
2025-03-02 12:04 本頁面
【文章內(nèi)容簡介】 條語句中間插入以下語句：? If =True Then ex=MsgBox(“Very Good！請繼續(xù)努力。 ” , vbOKOnly)二、制作智能交互型的課件方法 1的代碼編輯窗口二、制作智能交互型的課件2）同理，找到如下三組語句：? 第一組語句： Private Sub OptionButton2_Click()和 End Sub；? 第二組語句： Private Sub OptionButton3_Click()和 End Sub；? 第三組語句： Private Sub OptionButton4_Click()和 End Sub。二、制作智能交互型的課件在這三組的兩條語句中間分別插入語句：? If =True Then ex=MsgBox(“正確答案是 3，請繼續(xù)努力。 ” , vbOKOnly)? If =True Then ex=MsgBox(“正確答案是 3，請繼續(xù)努力。 ” , vbOKOnly)? If =True Then ex=MsgBox(“正確答案是 3，請繼續(xù)努力。 ” , vbOKOnly)說明： ex為自定義變量在所有代碼的前使用 dim ex定義變量 ex二、制作智能交互型的課件二、制作智能交互型的課件? （ 2）方法二? 在幻燈片合適的地方插入一個標簽（第二個標簽），修改其 Caption屬性為空，其他設(shè)置同方法一，只要把正確選項中的“ then”后的語句名改為“ =”Very Good!請繼續(xù)！ ””，三個錯誤選項的 “ then”分別改為“ =”正確答案是 3，請繼續(xù)努力。 ”” 即可。方法 2的代碼編輯窗口二、制作智能交互型的課件4． “ 重新選擇 ” 命令按鈕? 在幻燈片適當?shù)牡胤讲迦胍粋€命令按鈕，修改其 Caption屬性為 “ 重新選擇 ” ，在編輯窗口中的 Private Sub CommandButton2_Click() 和 End Sub語句間插入： = False = False = False =
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1