【ppt幻灯片怎么设置填空】使用VBA技术完全解决PPT交互式填空问题的设计

你好，之前的作品是关于交互式判断试题PPT课件的设计，可以说是短文题的特例(只有两种选择的短文主题)，所以比较简单。

今天，我们分享第四种交互式考试类型“PPT交互式填空考试”的设计制作。

与前面几个选择性交互式考试相比，扣题有不同之处，主要是基于答案关键词库，用搜索匹配的方式对学生的答案进行评价，最终取得了成绩。所以，这是一种全新的交互模式，需要与大家分享。

现在，我将直接分享第四类“PPT交互填空问题”的设计。

一、交互式填空题PPT课件前端界面设计

首先，将所需的常规图形文本框作为每个小问题的问题插入，然后在“开发工具”功能选项卡面板中找到ActiveX控件文本框，插入9个ActiveX控件文本框，并设置标题Caption属性，如下图所示

图1交互式填空PPT课件界面

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

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

二、交互式填空题PPT课件背景功能代码的实现

(a)模块1实施代码

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

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

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

If Ac=1 Then

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

End If

End Sub

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

初始化填空

dim CTR _ fill blank as shape ' CTR _ fill blank是一个ActiveX控件(尤其是PowerPoint幻灯片上的控件都是以图形方式访问的，因此_

访问这些“图形”样式的ActiveX控件的属性是“图形对象OLEFormat .必须以“对象”格式执行

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

textboxcontrol _ num=0 ' textboxcontrol _ num是统计ActiveX文本框控件的数量

For Each shp In Slide4。Shapes

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

If instr，' textbox ')then textbox control _ num=textbox control _ num 1

next

textbox control _ num=textbox control _ num-little _ subject _ num ' textbox control _ num包含统计时要减去的纯文本框

此方块图的数目little_subject_num是正确的ActiveX文字方块控制项数目

little _ subject _ num=little _ subject _ num-1 ' little _ subject _ num最终统计信息包含问题标题“4，填空”

项目数必须减去1

For k=1 To TextBoxControl_num 'k填空1到TextBoxControl_num个填空循环

Setctr _ fillblank=幻灯片4.shapes ('textbox' k)

C=' '

next

End Sub

“Sub FillBlank_Question()”填空操作

Aswer -为了准备对当前用户的每个问题填空的答案，FillBlank_result -对一些问题填空，ctr_fillblank为Ac

tiveX控件(特别注意的是 _

：PowerPoint幻灯片上面的控件皆作为图形的形式访问，要访问这些“图形”式的ActiveX控件的属性必须采用“图形对 _

象.OLEFormat.Object.属性”的形式进行)

Dim aswer As String, FillBlank_result As String, ctr_fillblank As Shape

Dim FillBlank_key(0 To 8) As String '定义一个0～8下标范围的填空答案数组FillBlank_key

right_keys = Array("大道", "无为", "理性", "人生价值", "哲学", "宗教", "艺术", "信念", "坚持") '定义并且初始化正确答案 _

数组

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

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

TextBoxControl_num = 0 'TextBoxControl_num--统计ActiveX文本框控件的个数

For Each shp In Slide4.Shapes

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

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

Next

TextBoxControl_num = TextBoxControl_num - little_subject_num 'TextBoxControl_num统计时包含了普通文本框，所要减去普通 _

文本框图形的数量little_subject_num才是正确的ActiveX文本框控件个数

little_subject_num = little_subject_num - 1 'little_subject_num最终统计包含了试题大标题“四、填空题”，所以试题小标题 _

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

For k = 1 To TextBoxControl_num 'k从填空题的“1～ActiveX文本框控件个数”个填空的循环

Set ctr_fillblank = Slide4.Shapes("TextBox" & k)

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

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

aswer = "[未填写答案]"

Else

aswer = c

End If

FillBlank_key(k - 1) = aswer '同时将这个答案字符存于每题的填空答案数组中FillBlank_key

FillBlank_result = FillBlank_result & aswer & Space(1)

Next

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

For i = 0 To UBound(right_keys) '该循环是将所有题正确的答案从数组中转出类串联，同时统计正确的答案数量

r_key_str = r_key_str & right_keys(i) & Space(1) '将所有题正确的答案从数组中转出串联

If FillBlank_key(i) = right_keys(i) Then

right_key_num = right_key_num + 1 '统计正确的答案数量

End If

Next

r_key_str = Left(r_key_str, Len(r_key_str) - 1) '去掉尾部多余的空格

right_key_rate = "您填空的正确率为【" & Round(100 * right_key_num / (UBound(right_keys) + 1), 1) & "%】"

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

FillBlank_result = "第1～" & little_subject_num & "道填空题[" & TextBoxControl_num & "个空]您填空的答案分别是：" & Chr(10) & Left(FillBlank_result, Len(FillBlank_result) - 1)

right_answers = "正确答案是：" & Chr(10) & r_key_str

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

MsgBox total_result, vbInformation, "答案揭晓"

End Sub

(二)Slide4里的必要代码

Private Sub Display_FillBlank_Result_Btn_Click()

FillBlank_Question '调用填空题操作过程

End Sub

三、交互式填空题试题PPT课件运行测试

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

图3 填空题PPT课件放映

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

图4 未进行任何试题的填空的结果情况

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

图5 部份试题的填空的情况

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

图6 部份试题的填空的情况

四、本期技术小结

(一)巧妙运用数组的形式存储答案关键词，以形成答案库。如下截图

图7 数组形式存储答案关键词

(二)通过检索、匹配答案关键词的形式分析答案的准确率，进而得出成绩。如下截图

图8 检索答案关键词库得出准确率

好了，我们本期的内容就分享到这里，希望大家好好体味，之后我会推出对于该作品对应的头条视频，也请大家多多关注哦！

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