运用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高级办公)、推广和点评！也请大家持续关注我的下一期关于填空题的交互式作品的推出哦！