End With
'右3行4列表格---属性Type19代表插入的“表格”类型
IfActivePresentation.Slides(3).Shapes.Count() >= 5 Then
If Windows(1).Presentation.Slides(3).Shapes(4).Type = 19 OrWindows(1).Presentation.Slides(3).Shapes(4).Type = 19 Then
Score1232 = Score1232 + 0.8
End If
EndIf
'左边文本框位置插入图片tp1.bmp---属性Type13代表“图片”
IfActivePresentation.Slides(3).Shapes.Count() >= 5 Then
If Windows(1).Presentation.Slides(3).Shapes(5).Type = 13 OrWindows(1).Presentation.Slides(3).Shapes(5).Type = 13 Then
Score1233 = Score1233 + 0.8
End If
EndIf
Score123 = Score1231 + Score1232 +Score1233 '第3小题得分汇总
⑷第1张幻灯片中文字"一字公司研制"，设为单击鼠标时"盒状"的放映方式。
IfWindows(1).Presentation.Slides(1).Shapes(2).AnimationSettings.EntryEffect =ppEffectBoxIn Then
Score1241 = Score1241 + 2'盒状收缩切换
End If
Score124 = Score1241'第4小题得分汇总
⑸通过第3张幻灯片上的"返回"文字与第1张幻灯片建立超链接。
If ActivePresentation.Slides(3).Shapes(3).TextFrame.TextRange.ActionSettings(ppMouseClick).Hyperlink.SubAddress= "-1,-1,FIRST"Then
Score1251 = Score1251 + 2'文本框按钮中文字＇返回＇--超链接
End If
Score125 = Score1251
score = Score121 + Score122 + Score123 + Score124 + Score125
MsgBox ("总分: " & score) '显示本大题总得分
上述宏代码应放在PPT1.PPT的宏Macro1中。论文格式，评价操作题。
说明：利用宏可以帮助我们快速写出批改程序，当不知道该用什么命令时，不妨先录制好完成该题时的宏，然后慢慢去理解其中的宏命令含义，再编写相应程序段，这样可能会提高编程效率。对于Office套件都可以采用这种方法获得宏命令代码，但不能照搬，要稍加修改才能使用。论文格式，评价操作题。编写PowerPoint程序时要注意搞清幻灯片上的对象位置、叠放次序以及插入组件的类型（是图片、表格,还是图表等）。在阅卷时，可运行预先在PPT1.PPT编好的批改宏“Macro1”执行；或在VB阅卷界面增加“使用宏评PowerPoint”按钮，阅卷时单击该按钮，完成评卷工作。论文格式，评价操作题。
“使用宏评PowerPoint”按钮上的单击事件代码，如下：
Dim oApplication, oPresentations,oPresentation As Object
Dim strFile1 As String
SetoApplication = CreateObject("PowerPoint.Application")
oApplication.Activate '运行powerpoint对象
strFile1 = App.Path & "\9028\ppt1.ppt"
Set oPresentations = oApplication.Presentations
Set oPresentation = oPresentations.Open(strFile1)
oPresentation.Application.Run"ppt1!Macro1" '运行宏Macro1
oApplication.Quit'退出PowerPoint
十三、Internet（15分）
第1题、第2题、第3题的评分方法与文件操作的判定方法类似
说明：以下第1至第3题都是访问站点http://TEACHER/ZJ，找到相应文件后,下载到考生文件夹（即考试试卷\9028）。论文格式，评价操作题。
1、找到压缩文件1998.zip，把该文件保存
Dim strFileName13 As String
strFileName13 = App.Path &"\9028"
……fso.FileExists(strFileName13 &"\1998.zip") = True ……
2、找到《商用Web页面创建指南》页，该页以"note8.htm"为文件名保存
……fso.FileExists(strFileName13 &"\note8.htm") = True ……
3、找到名为"灯塔"的图片，并将该图片以"depict8.gif"为文件名保存
…… fso.FileExists(strFileName13 &"\depict8.gif") = True ……
4、将本浏览器的主页改为"www.computer.net"
Dim w As Object
Dim internet4 As String
Set w = CreateObject("wscript.shell")
'判断IE主页是否是"www.computer.net"
internet4 = w.regread("HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\Start Page")
If internet4 = "http://www.computer.net/" Then
score13 = score13 + 3
End If
5、浏览"停电的门铃"页，并将该页将该页以"停电的门铃"为名添加到收藏夹中
Dim internet5 As String
Dim strFileName135 As String
strFileName135=w.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellFolders\Favorites")
If fso.FileExists(strFileName135 & "\停电的门铃.url")= True Then
score13 = score13 + 3
End If
Print "十三、Internet(15分)：", score13; "分"
（三）、成绩写入文本文件
Open App.Path & "\kslog.txt" For OutputAs #1
Print #1, "试卷号: 第1套考试试卷(09技上)"
Print #1, "二、文件操作(10分)：", score2; "分"
……
Print #1, "十三、Internet(15分)：", score13; "分"
Print #1, "你本次测试的总分为：", score; "分"
Print #1,"----------本次阅卷完毕----------"
Close #1
MsgBox "阅卷结束,按“确定”退出！", vbOKOnly +vbInformation, "温馨提示"
Cls
Print "再次阅卷,请按“阅卷”", "按“退出”结束"
（四）、结束语
当然以上编程方法，有点繁复，也不一定很完美，但毕竟提供了一种阅卷思路，相比靠人工去逐一打开学生的文件，然后进行评判来得省时、省力，而且阅卷者能根据自己的需要增减某些项目的评分要求，这对于深入剖析和了解程序的执行过程也有益处，条件允许时也可供学有余力的学生去修改程序，协助完善评分标准。本程序在实际应用中，教学效果良好，对批改中显示做错的题目，学生普通表现出一种寻根究底的精神，很多同学非要弄清失分原因不可。当然批改程序也不是万能的，只起辅助手段。学生答案可能千奇百怪，若实际操作过程中，出现评错分的情况时，一定要静下心来，仔细研究，分析原因，修正程序，以免误导学生。
【参考文献】
1.丁爱萍主编，VisuslBASIC程序设计(第2版)．电子工业出版社，2003
2.中等职业技术学校试用教材VisualBasic．岭南美术出版社，2003
3.完全手册ExcelVBA典型实例大全伍云辉编著.-北京：电子工业出版社，2008.8
4/4 首页 上一页 2 3 4 |
