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
PowerPoint 中实现人与幻灯片互动答题
PrivateSubOptionButton3_Click()IfOptionButton3.Value=TrueThenex=MsgBox(\正确答案是A,请继续努力!\EndSub'错误选择PrivateSubOptionButton4_Click()IfOptionButton4.Value=
推荐度:
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
点击下载文档文档为doc格式