运用VBA技术完美解决PPT交互式判断试题的设计

哈喽，上一期作品是关于交互式多选题试题PPT课件的设计，同样我们配套了相关的头条视频方便各位更加真切地感受到了VBA后台技术实现前端交互的强大魅力。上一期我们多选题的部份已经分享完毕，我们今天来分享第三种交互式试题类型“PPT交互式判断试题”的设计制作吧！

相比第一种交互式单选题，判断题有着更为简单，甚至在某种意义上说就是一种只有两个选项的单选题，但是，判断题毕竟是我们讲述的五大交互式试题的一种。所以，还是有必要进行交互式判断题的设计讲解，以凸显五大互式试题类型的完整性。

好了，我们同样开门见山地给大家细细分享第三种类型“PPT交互式判断试题”的设计。

一、交互式判断题试题PPT课件前端界面设计

首先是插入必要的文本框作为每小题的题干展示，然后是在【开发工具】功能选项卡面板里找到判断按钮，插入6个单选钮控件(并设置它们的标题Caption属性和分组，下面界面的复选框显示的文字即是标题属性Caption的值)，最后插入一个命令按钮。如下图所示

同时，修改命令按钮必要的属性。如下图所示

二、交互式判断题试题PPT课件后台功能代码实现

(一)模块1的实现代码

Sub OnSlideShowPageChange() '演示文档放映时即刻触发的事件

'如果当前播放的演示文档的幻灯片显示窗口的预览下，当前的显示定位为第一张幻灯片时，做一次初始化试题工作(这样就避免了每张幻灯 _

片跳变都要执行无谓的浪费资源式的初始化工作)

If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then

Initialize_Testing_Questions '调用初始化试题为未解答状态

End If

End Sub

Sub
Initialize_Testing_Questions() '初始化试题为未解答状态

'判断题初始化

Dim ctr_judging As Shape 'ctr_judging为ActiveX控件(特别注意的是：PowerPoint幻灯片上面的控件皆作为图形的形式访问，要访问 _

这些“图形”式的ActiveX控件的属性必须采用“图形对象.OLEFormat.Object.属性”的形式进行)

judging_aser_str_array = Array("正确", "错误") '定义答案字符库数组judging_aser_str_array

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

For Each shp In Slide3.Shapes

If InStr(shp.Name, "TextBox ") Then little_subject_num = little_subject_num + 1

Next

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

目个数应该是必须减去1

'定义key_num_per_question为每个判断题的答案选项数目(间接获取数组上界+1)

key_num_per_question = UBound(judging_aser_str_array) + 1

For k = 1 To little_subject_num 'k从1～little_subject_num道判断题的循环

'm、n分别为每一个选择题的答案选择项的起止

m = key_num_per_question * (k - 1) + 1

n = key_num_per_question * k

For i = m To n

Set ctr_judging = Slide3.Shapes("OptionButton" & i)

ctr_judging.OLEFormat.Object.Value = False '初始化所有答案选项为非选择状态

Next

Next

End Sub

Sub Judging_Question() '判断题操作

'aswer--为暂存用户当前每题判断的答案，Judging_result--几个题判断的结果，ctr_judging为ActiveX控件(特别注意的 _

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

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

Dim aswer As String, Judging_result As String, ctr_judging As Shape

Dim judge_key(0 To 2) As String '定义一个0～1下标范围的判断答案数组judge_key

judging_aser_str_array = Array("正确", "错误") '定义答案字符库数组judging_aser_str_array

right_keys = Array("正确", "错误", "正确") '定义并且初始化正确答案数组

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

'定义key_num_per_question为每个判断题的答案选项数目(间接获取数组上界+1)

key_num_per_question = UBound(judging_aser_str_array) + 1

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

For Each shp In Slide3.Shapes

If InStr(shp.Name, "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道题的循环

Unjudged_Num = 0 '统计每小题未进行判断答案数目(判断是否每小题都未作任何判断的情况)

'm、n分别为每一个判断题的答案判断项的起止

m = key_num_per_question * (k - 1) + 1

n = key_num_per_question * k

For i = m To n

Set ctr_judging = Slide3.Shapes("OptionButton" & i)

If
ctr_judging.OLEFormat.Object.Value = True Then '如果当前控件访问的状态值为True(选中)，则作如下判断的答案的在 _

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

If i Mod key_num_per_question = 0 Then '如果当前每道题判断的答案单选钮控件序号对答案数目取余刚好为0，则直接将这 _

个答案数目赋予t

t = key_num_per_question

Else '否则，直接将余数赋予t

t = i Mod key_num_per_question

End If

aswer = judging_aser_str_array(t - 1) '获取判断的答案字符

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

Else

Unjudged_Num = Unjudged_Num + 1 '每小题未进行判断的答案数目统计

End If

Next

If Unjudged_Num = key_num_per_question Then judge_key(k - 1) = "[未进行判断]"

Judging_result = Judging_result & judge_key(k - 1) & 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 judge_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) & "%】"

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

Judging_result = "第1～" & little_subject_num & "道判断题您判断的答案分别是：" & Left(Judging_result, Len(Judging_result) - 1)

right_answers = "正确答案是：" & r_key_str

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

MsgBox total_result, vbInformation, "答案揭晓"

End Sub

(二)Slide2里的必要代码

Private Sub Display_JudgeQuest_Result_Btn_Click()

Judging_Question '调用判断题操作过程

End Sub

三、交互式判断题试题PPT课件运行测试

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

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

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

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

四、本期技术小结

这里的技术小结和交互式单选试题一样，这里就不再赘述，从略。有兴趣的朋友可以去看看交互式单选题的相关头条文章或头条视频。

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

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