PowerPoint 中实现人与幻灯片互动答题

Private Sub OptionButton3_Click()

If OptionButton3.Value = True Then ex = MsgBox(\正确答案是A，请继续努力！\

End Sub '错误选择

Private Sub OptionButton4_Click()

If OptionButton4.Value = True Then ex = MsgBox(\正确答案是A，请继续努力！\

End Sub Slide3:

'幻灯片Slide3代码： '填空判断提示按钮

Private Sub CommandButton1_Click() If TextBox1.Value = \矢量图形\MsgBox \选择正确!\结果\Else

MsgBox \回答错误!正确答案是'矢量图形'！\提示\End If End Sub '\上一题\按钮

Private Sub CommandButton2_Click()

If MsgBox(\是否继续？\上一题\With SlideShowWindows(1).View .GotoSlide 2 End With End If End Sub '重新填空按钮

Private Sub CommandButton3_Click()

TextBox1.Value = \请双击鼠标后填入你的答案！\End Sub

'鼠标左键双击文本框事件

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = \End Sub