大家好，之前的作品是關(guān)于交互式填空試題PPT課件的設(shè)計(jì)，可憐地看到了與之前的選擇、判斷問題類型的巨大差異。以與搜索一致的答案關(guān)鍵詞取得了成績(jī)。(大衛(wèi)亞設(shè))。

今天，我們繼續(xù)分享與第四種交互式考試類型相似的第五種類型“PPT交互式簡(jiǎn)答題考試”的設(shè)計(jì)制作。

與第四次填空互動(dòng)考試相比，簡(jiǎn)單的答案具有答詞和IBRERLI擴(kuò)展功能。

好的，我將分享第五類“PPT交互簡(jiǎn)答題考試”的設(shè)計(jì)。可以說(shuō)是完美的收尾。

一、交互式簡(jiǎn)單回答問題PPT課件前端界面設(shè)計(jì)。

首先，將所需的普通圖形文本框作為每個(gè)小問題的主題進(jìn)行展示，然后放入“開發(fā)工具”中。

在“功能”選項(xiàng)卡面板上，找到“ActiveX控件”文本框，插入兩個(gè)“ActiveX控件”文本框，然后設(shè)置滾動(dòng)條ScrollBars屬性，如下圖所示

圖1交互式短答案PPT課件界面

還修改命令按鈕的必需屬性。如下圖所示

圖2設(shè)置命令按鈕所需的屬性

二、交互式簡(jiǎn)單回答問題PPT課件背景功能代碼的實(shí)現(xiàn)。

(a)模塊1實(shí)施代碼

“Sub OnSlideShowPageChange()”顯示文檔放映時(shí)立即觸發(fā)的事件

在當(dāng)前播放的演示文檔的幻燈片顯示窗口的預(yù)覽中，當(dāng)當(dāng)前顯示移動(dòng)到第一張幻燈片時(shí)，執(zhí)行一次初始化問題操作(可以避免每張幻燈片)。

電影跳躍要進(jìn)行不必要的資源浪費(fèi)式初始化工作。）

If Ac=1 Then

“Initialize_Testing_Questions”調(diào)用初始化問題未解決

End If

End Sub

“subinitialize _ testing _ questions()”初始化問題未解決

單答案初始化

dim CTR _ short answer as shape ' CTR _ short answer是一個(gè)ActiveX控件。特別是，PowerPoint幻燈片上的所有控件都以圖形方式訪問

要訪問這些“圖形”樣式的ActiveX控件，屬性為“圖形對(duì)象OLEFormat .必須為Object "格式

little _ subject _ num=0 ' little _ subject _ num-統(tǒng)計(jì)問題小標(biāo)題數(shù)

For Each shp In Slide5。Shapes

If instr，' textbox ')then little _ subject _ num=little _ subject _ num 1

next

little _ subject _ num=little _ subject _ num-1 ' little _ subject _ num最終統(tǒng)計(jì)數(shù)據(jù)包含大標(biāo)題“5，短答題”

項(xiàng)目數(shù)必須減去1

For k=1 To little_subject_num 'k是單個(gè)答案的1到little_subject_num個(gè)小問題的循環(huán)

Setctr _ shortanswer=幻燈片5.shapes ('textbox' k)

C=' '

C=True '將文本框控件設(shè)置為可換行，屬性為“.MultiLine=True "

“C=fmScrollBarsVertical”設(shè)置文本框控件顯示帶有_屬性的垂直滾動(dòng)條

.scroll bars=fmscrollbarsvertical '

next

End Sub

' Sub ShortAnswer_Question()'簡(jiǎn)單回答任務(wù)

ASWER-SHORTANSWER _ RESULT-對(duì)一些問題進(jìn)行簡(jiǎn)單回答的結(jié)果，ctr_shortanswer由ActiveX控件(特別是_

示例：PowerPoint幻燈片上方的所有控件都以圖形方式訪問，訪問這些“圖形”樣式的ActiveX控件的屬性為“圖形對(duì)象OLEFormat .必須用“對(duì)象”來(lái)完成

Dim as wer as string、short answer _ result as string和CTR

_shortanswer As Shape

Dim ShortAnswer_key(0 To 1) As String '定義一個(gè)0～1下標(biāo)范圍的簡(jiǎn)答答案要點(diǎn)的數(shù)組ShortAnswer_key

'定義并且初始化正確答案要點(diǎn)關(guān)鍵詞庫(kù)數(shù)組right_keys

right_keys = Array("Python簡(jiǎn)單易懂", "開發(fā)效率高", "高級(jí)語(yǔ)言", "可移植性強(qiáng)", "可擴(kuò)展性好", "可嵌入性", "速度慢", "代碼不能加密", "不能多線程用多核CPU") '定義并且初始化正確答案數(shù)組

aswer = "" '暫存用戶當(dāng)前每題簡(jiǎn)答的答案要點(diǎn)的變量，初始化為空

right_key_num = 0 '定義并初始化一個(gè)正確答案數(shù)量變量right_key_num，初始化為0

little_subject_num = 0 'little_subject_num--統(tǒng)計(jì)試題小標(biāo)題題目的個(gè)數(shù)

For Each shp In Slide5.Shapes

If InStr, "TextBox ") Then little_subject_num = little_subject_num + 1

Next

little_subject_num = little_subject_num - 1 'little_subject_num最終統(tǒng)計(jì)包含了試題大標(biāo)題“五、簡(jiǎn)答題”，所以試題小標(biāo)題 _

題目個(gè)數(shù)應(yīng)該是必須減去1

For k = 1 To little_subject_num 'k從簡(jiǎn)答題的1～little_subject_num個(gè)小題的循環(huán)

Set ctr_shortanswer = Slide5.Shapes("TextBox" & k)

If Len(Trim(c)) = 0 Then '如果當(dāng)前控件訪問的狀態(tài)值為True(選中)，則作如下簡(jiǎn)答的 _

答案的在FillBlank_aser_str_array數(shù)組中對(duì)應(yīng)答案的下標(biāo)獲取存于t變量中

aswer = "第" & k & "道簡(jiǎn)答題：[未填寫答案]"

ShortAnswer_key(k - 1) = aswer

Else

For i = 0 To UBound(right_keys)

If InStr(c, right_keys(i)) Then

aswer = right_keys(i)

ShortAnswer_key(k - 1) = ShortAnswer_key(k - 1) & aswer & Space(1)

right_key_num = right_key_num + 1 '統(tǒng)計(jì)正確的答案數(shù)量

End If

Next

If Len(Trim(ShortAnswer_key(k - 1))) > 0 Then

ShortAnswer_key(k - 1) = "第" & k & "道簡(jiǎn)答題你解答的要點(diǎn)是：" & Left(ShortAnswer_key(k - 1), Len(ShortAnswer_key(k - 1)) - 1) '去掉尾部多余的空格

Else

ShortAnswer_key(k - 1) = "第" & k & "道簡(jiǎn)答題你的解答無(wú)標(biāo)準(zhǔn)答案所含的任何要點(diǎn)！"

End If

End If

ShortAnswer_result = ShortAnswer_result & ShortAnswer_key(k - 1) & Chr(10)

Next

ShortAnswer_result = Left(ShortAnswer_result, Len(ShortAnswer_result) - 1)

right_key_rate = "您簡(jiǎn)答的正確率為【" & Round(100 * right_key_num / (UBound(right_keys) + 1), 1) & "%】"

'以下即是間隔簡(jiǎn)答結(jié)果字符串、正確答案字符串、正確率字符串進(jìn)行串接，然后顯示

ShortAnswer_result = "第1～" & little_subject_num & "道簡(jiǎn)答題你簡(jiǎn)答的答案要點(diǎn)分別是：" & Chr(10) & ShortAnswer_result

r_key_str1 = "第1道簡(jiǎn)答題標(biāo)準(zhǔn)答案要點(diǎn)：": r_key_str2 = "第2道簡(jiǎn)答題標(biāo)準(zhǔn)答案要點(diǎn)："

For i = 0 To UBound(right_keys) '拆解出標(biāo)準(zhǔn)答案要點(diǎn)，并且進(jìn)行串接

If i < 6 Then

r_key_str1 = r_key_str1 & right_keys(i) & Space(1)

Else

r_key_str2 = r_key_str2 & right_keys(i) & Space(1)

End If

Next

r_key_str1 = Left(r_key_str1, Len(r_key_str1) - 1)

r_key_str1 = Chr(10) & r_key_str1 & Chr(10)

r_key_str2 = Left(r_key_str2, Len(r_key_str2) - 1)

r_key_str = r_key_str1 & r_key_str2

right_answers = "正確答案要點(diǎn)分別是：" & r_key_str

total_result = ShortAnswer_result & Chr(10) & right_answers & Chr(10) & right_key_rate

MsgBox total_result, vbInformation, "答案揭曉"

End Sub

(二)Slide4里的必要代碼

Private Sub Display_ShortAnswer_Result_Btn_Click()

ShortAnswer_Question '調(diào)用簡(jiǎn)答題操作過(guò)程

End Sub

三、交互式簡(jiǎn)答題試題PPT課件運(yùn)行測(cè)試

(一)按<F5>鍵，進(jìn)入演示文檔放映狀態(tài)。如下圖

圖3 簡(jiǎn)答題PPT課件放映

(二)未進(jìn)行任何試題的簡(jiǎn)答時(shí)，直接點(diǎn)擊<查看簡(jiǎn)答的結(jié)果和答案>按鈕，將呈現(xiàn)無(wú)任何簡(jiǎn)答選擇的結(jié)果狀態(tài)。如下圖

圖4 未進(jìn)行任何試題的簡(jiǎn)答的結(jié)果情況

(三)只進(jìn)行部份試題的簡(jiǎn)答時(shí)，點(diǎn)擊<查看簡(jiǎn)答的結(jié)果和答案>按鈕，將呈現(xiàn)部份簡(jiǎn)答選擇的結(jié)果狀態(tài)。如下圖

圖5 部份試題的簡(jiǎn)答的情況

(四)進(jìn)行全部試題的簡(jiǎn)答后，點(diǎn)擊<查看簡(jiǎn)答的結(jié)果和答案>按鈕，將呈現(xiàn)全部簡(jiǎn)答的結(jié)果狀態(tài)。如下圖

圖6 全部試題的簡(jiǎn)答的情況

四、本期技術(shù)小結(jié)

基本和第四種類似，這里從略

好了，我們本期的內(nèi)容就分享到這里，希望大家好好體味，到此為止五大類型的交互式試題我全部分享給大家了！

最后，還是非常感謝大家不離不棄地關(guān)注我，希望大家繼續(xù)關(guān)注(頭條號(hào)：跟我學(xué)Office高級(jí)辦公)、推廣和點(diǎn)評(píng)！也請(qǐng)大家持續(xù)關(guān)注我的下一期關(guān)于簡(jiǎn)答題的交互式作品的推出哦！