【ppt幻灯片怎么设置填空】利用VBA技术完美解决PPT交互式问答问题设计。

大家好，之前的作品是关于交互式填空试题PPT课件的设计，可怜地看到了与之前的选择、判断问题类型的巨大差异。以与搜索一致的答案关键词取得了成绩。(大卫亚设)。

今天，我们继续分享与第四种交互式考试类型相似的第五种类型“PPT交互式简答题考试”的设计制作。

与第四次填空互动考试相比，简单的答案具有答词和IBRERLI扩展功能。

好的，我将分享第五类“PPT交互简答题考试”的设计。可以说是完美的收尾。

一、交互式简单回答问题PPT课件前端界面设计。

首先，将所需的普通图形文本框作为每个小问题的主题进行展示，然后放入“开发工具”中。

在“功能”选项卡面板上，找到“ActiveX控件”文本框，插入两个“ActiveX控件”文本框，然后设置滚动条ScrollBars属性，如下图所示

图1交互式短答案PPT课件界面

还修改命令按钮的必需属性。如下图所示

图2设置命令按钮所需的属性

二、交互式简单回答问题PPT课件背景功能代码的实现。

(a)模块1实施代码

“Sub OnSlideShowPageChange()”显示文档放映时立即触发的事件

在当前播放的演示文档的幻灯片显示窗口的预览中，当当前显示移动到第一张幻灯片时，执行一次初始化问题操作(可以避免每张幻灯片)。

电影跳跃要进行不必要的资源浪费式初始化工作。）

If Ac=1 Then

“Initialize_Testing_Questions”调用初始化问题未解决

End If

End Sub

“subinitialize _ testing _ questions()”初始化问题未解决

单答案初始化

dim CTR _ short answer as shape ' CTR _ short answer是一个ActiveX控件。特别是，PowerPoint幻灯片上的所有控件都以图形方式访问

要访问这些“图形”样式的ActiveX控件，属性为“图形对象OLEFormat .必须为Object "格式

little _ subject _ num=0 ' little _ subject _ num-统计问题小标题数

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最终统计数据包含大标题“5，短答题”

项目数必须减去1

For k=1 To little_subject_num 'k是单个答案的1到little_subject_num个小问题的循环

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

C=' '

C=True '将文本框控件设置为可换行，属性为“.MultiLine=True "

“C=fmScrollBarsVertical”设置文本框控件显示带有_属性的垂直滚动条

.scroll bars=fmscrollbarsvertical '

next

End Sub

' Sub ShortAnswer_Question()'简单回答任务

ASWER-SHORTANSWER _ RESULT-对一些问题进行简单回答的结果，ctr_shortanswer由ActiveX控件(特别是_

示例：PowerPoint幻灯片上方的所有控件都以图形方式访问，访问这些“图形”样式的ActiveX控件的属性为“图形对象OLEFormat .必须用“对象”来完成

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

_shortanswer As Shape

Dim ShortAnswer_key(0 To 1) As String '定义一个0～1下标范围的简答答案要点的数组ShortAnswer_key

'定义并且初始化正确答案要点关键词库数组right_keys

right_keys = Array("Python简单易懂", "开发效率高", "高级语言", "可移植性强", "可扩展性好", "可嵌入性", "速度慢", "代码不能加密", "不能多线程用多核CPU") '定义并且初始化正确答案数组

aswer = "" '暂存用户当前每题简答的答案要点的变量，初始化为空

right_key_num = 0 '定义并初始化一个正确答案数量变量right_key_num，初始化为0

little_subject_num = 0 'little_subject_num--统计试题小标题题目的个数

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最终统计包含了试题大标题“五、简答题”，所以试题小标题 _

题目个数应该是必须减去1

For k = 1 To little_subject_num 'k从简答题的1～little_subject_num个小题的循环

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

If Len(Trim(c)) = 0 Then '如果当前控件访问的状态值为True(选中)，则作如下简答的 _

答案的在FillBlank_aser_str_array数组中对应答案的下标获取存于t变量中

aswer = "第" & k & "道简答题：[未填写答案]"

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 '统计正确的答案数量

End If

Next

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

ShortAnswer_key(k - 1) = "第" & k & "道简答题你解答的要点是：" & Left(ShortAnswer_key(k - 1), Len(ShortAnswer_key(k - 1)) - 1) '去掉尾部多余的空格

Else

ShortAnswer_key(k - 1) = "第" & k & "道简答题你的解答无标准答案所含的任何要点！"

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 = "您简答的正确率为【" & Round(100 * right_key_num / (UBound(right_keys) + 1), 1) & "%】"

'以下即是间隔简答结果字符串、正确答案字符串、正确率字符串进行串接，然后显示

ShortAnswer_result = "第1～" & little_subject_num & "道简答题你简答的答案要点分别是：" & Chr(10) & ShortAnswer_result

r_key_str1 = "第1道简答题标准答案要点：": r_key_str2 = "第2道简答题标准答案要点："

For i = 0 To UBound(right_keys) '拆解出标准答案要点，并且进行串接

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 = "正确答案要点分别是：" & 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 '调用简答题操作过程

End Sub

三、交互式简答题试题PPT课件运行测试

(一)按<F5>键，进入演示文档放映状态。如下图

图3 简答题PPT课件放映

(二)未进行任何试题的简答时，直接点击<查看简答的结果和答案>按钮，将呈现无任何简答选择的结果状态。如下图

图4 未进行任何试题的简答的结果情况

(三)只进行部份试题的简答时，点击<查看简答的结果和答案>按钮，将呈现部份简答选择的结果状态。如下图

图5 部份试题的简答的情况

(四)进行全部试题的简答后，点击<查看简答的结果和答案>按钮，将呈现全部简答的结果状态。如下图

图6 全部试题的简答的情况

四、本期技术小结

基本和第四种类似，这里从略

好了，我们本期的内容就分享到这里，希望大家好好体味，到此为止五大类型的交互式试题我全部分享给大家了！

最后，还是非常感谢大家不离不弃地关注我，希望大家继续关注(头条号：跟我学Office高级办公)、推广和点评！也请大家持续关注我的下一期关于简答题的交互式作品的推出哦！