Office教程学习网

实现学生自动评分

通过网络教室的软件把这个PPT1文件发送给学生，为了能够使VBA代码起作用，还需要求学生设置本机PPT宏的安全性，需要选择“工具→宏→安全性”，在弹出的窗口中将宏的安全性设置为“低”，保存后，再次打开，这样才能够使VBA代码顺利运行。学生按照题目操作完后并放映幻灯片，在放映的过程中点击“评分”按钮就能自动评分了（图5）。

图5

附录：文中相关代码

Private Sub UserForm_Activate()
'对第一题评分
fen = 0
Set tmp = ActivePresentation.Slides(1).Shapes(2)
If tmp.AnimationSettings.EntryEffect = 3357 Then
tsh = "第一张幻灯片中图片动画效果设置正确；"
fen = fen + 1
If tmp.AnimationSettings.SoundEffect.Type = 2 Then
If tmp.AnimationSettings.SoundEffect.Name = "applause.wav" Then
tsh = tsh + "声音设置正确；"
fen = fen + 1
Else
tsh = tsh + "声音设置错误；"
End If
Else
tsh = tsh + "声音设置错误；"
End If
Else
tsh = "第一张幻灯片中图片动画效果设置错误；"
End If
Label1.Caption = tsh
'对第二题评分
Set tmp = ActivePresentation.Slides(2)
If tmp.Background.Fill.GradientColorType = 2 Then
tsh = "第二张幻灯片的背景设置正确；"
fen = fen + 1
If tmp.Background.Fill.GradientStyle = 2 Then
tsh = tsh + "方向设置正确；"
fen = fen + 1
Else
tsh = tsh + "方向设置错误；"
End If
Else
tsh = "第二张幻灯片的背景设置错误；"
End If
Label2.Caption = tsh
'对第三题评分
Set tmp = ActivePresentation.Slides(3)
If tmp.SlideShowTransition.EntryEffect = 3073 Then
tsh = "第三张幻灯片的切换方式设置正确；"
fen = fen + 1
If tmp.SlideShowTransition.Speed = 3 Then
tsh = tsh + "切换速度正确；"
fen = fen + 1
Else
tsh = tsh + "切换速度错误；"
End If
Else
tsh = "第三张幻灯片的切换方式设置错误；"
End If
Label3.Caption = tsh
Label4.Caption = "满分是6分，你的最后得分是：" & fen
End Sub