《例谈VB批改操作题的实现.docx》由会员分享，可在线阅读，更多相关《例谈VB批改操作题的实现.docx（9页珍藏版）》请在三一文库上搜索。
1、例谈VB批改操作题的实现论文导读：这样便给通过VB6.0。并结合Office2003中的宏对象编写批改程序带来了可能。改进批改程序。评价操作题，例谈VB批改操作题的实现。关键词：评价操作题，VB6.0，宏，批改程序 （一）、现状分析面对大量的操作类试题，学生的当前练习状况怎样，教师不可能一个个打开进行查看或手动批改，这样不仅效率低，而且势必会大大增加工作量。改卷一直是困扰计算机教学的一大问题，因此让计算机自动批改并统计成绩，显得很迫切。论文格式，评价操作题。教师应把时间、精力都用在课堂教学和提高教学效果上，而不应该放在这无数次的打开、查看、关闭学生答案文件的操作上。由于每年的考纲、考
2、题相对固定，故题目结构也相对固定，这样便给通过VB6.0，并结合Office2003中的宏对象编写批改程序带来了可能。即使将来考查内容变了，我们也可以与时俱进，根据学生的练习实际，改进批改程序，以适应新的考题要求。（二）、主要设计思路和部分程序段代码下面就评判一份试卷，列出部分代码，其中的分值可以灵活更改，由于篇幅所限，以下对提示出错的信息和类似的程序段，以及一些变量的定义，就不在这里详细列出了。假设在“考试试卷9028”下，有文件夹WJCZ和考生答题文件，批改程序“阅卷”位于“考试试卷”下。在“阅卷”按钮下有如下各题中的代码，其中在“通用”、“声明”中定义一系列公用变量Option Expl
3、icitDim fso As New FileSystemObjectDim Appwd, MyApp, MyWord , ex As ObjectDim score , score2 , score3 , score4 , score5 , score6As SingleDim score7 , score8 , score9 , score10 ,score11, score12,score13 As Single一、理论题（20分）。在前期的巧用Access设计随机选择题中实现了。二、文件操作（10分）（说明：要使用FSO，首先必须在工程中引用MicrosoftScripting Run
4、time）本题的所有操作都在文件夹WJCZ中进行（1）在creatbeset中建立名为bady的文件夹Dim strFileName2As StringstrFileName2 =App.Path & "9028wjcz"Iffso.FolderExists(strFileName2 & "creatbesetbady") = True Thenscore2 = score2 + 2 '每题2分，指定位置存在bady文件夹得分ElsePrint "文件操作：第1小题错了!"EndIf（2）将文件夹WJCZ中文件
5、的文件的扩展名为.b的文件复制到repeatcopy文件夹中Iffso.FileExists(strFileName2 & "repeatcopybase.b") = True Andfso.FileExists(strFileName2 & "repeatcopynavy.b") = True Andfso.FileExists(strFileName2 & "base.b") = True Andfso.FileExists(strFileName2 & "navy.b") Th
6、enscore2 = score2 + 2EndIf '新旧位置都存在指定文件得分（3）将文件夹speed中的quick.gif文件在文件夹wjcz中建立名为quick的快捷方式Iffso.FileExists(strFileName2 & "quick.lnk") = True Andfso.FileExists(strFileName2 & "speedquick.gif") = True Thenscore2 =score2 + 2EndIf（4）将文件夹rename中的spring.txt文件改名为sprde.qIffso
7、.FileExists(strFileName2 & "renamesprde.q") = True Andfso.FileExists(strFileName2 & "renamespring.txt") = False Thenscore2 = score2 + 2EndIf（5）将文件夹time中文件VIRTUAL.TXT,移动到timedate中Iffso.FileExists(strFileName2 & "timevirtual.txt") = False Andfso.FileExists(str
8、FileName2 & "timedatevirtual.txt") = TrueThenscore2 =score2 + 2EndIf '原位置不存在、新位置存在指定文件得分Print"二、文件操作(10分)：", score2; "分"三、段落格式（8分）（说明：首先必须在VB工程中引用“Microsoft word 11.0Object Library”）Dim myDoc3 As ObjectDim Duan311 As StringSet appwd = CreateObject("Word.App
9、lication")Set myDoc3 = Appwd.Documents.Open(App.Path & "9028段落A.doc")将标题"中国软件业全面反攻"设置为艺术字（注意：设置后，删除原标题文字及所在'行），艺术字式样：艺术字库中的第2行第4列，字体：隶书、32号，艺术字形状：朝鲜鼓，阴影：阴影样式14，位于页面（4，2）厘米处，环绕方式：上下型。Duan311 =myDoc3.Paragraphs(1).Range.TextIfLeft(Duan311, 9) "中国软件业全面反攻"Thens
10、core3 = score3 + 0.3若删除原标题，得0.3分EndIfIfSelection.ShapeRange.TextEffect.PresetShape = msoTextEffectShapeDeflate Thenscore3 = score3 + 0.3 '艺术字形状：朝鲜鼓EndIfIf Selection.InlineShapes(1).Shadow.Type = msoShadow14Thenscore3 = score3 + 0.3'阴影样式14EndIfIfSelection.ShapeRange.Left = CentimetersToPoints
11、(4) Thenscore3 = score3 +0.3 '页面（4，2）End IfIfSelection.ShapeRange.Top = CentimetersToPoints(2) Thenscore3 = score3 + 0.3EndIfIfSelection.ShapeRange.WrapFormat.Type = wdWrapTopBottom Thenscore3 = score3 +0.3 '上下环绕EndIf(2)正文第一段格式：字体为楷体_GB2312、小四，加单实线下划线，右对齐If myDoc3.Paragraphs(1).Range.Font.Na
12、me = "楷体_GB2312"Thenscore3 = score3 + 0.4End IfIf myDoc3.Paragraphs(1).Range.Font.Size = 12 Thenscore3 = score3 + 0.4'字号，小四相当于12磅End IfIf myDoc3.Paragraphs(1).Range.Font.Underline = wdUnderlineSingle Thenscore3 = score3 + 0.4'第一段单实线下划线End IfIfmyDoc3.Paragraphs(1).Range.ParagraphFor
13、mat.Alignment = wdAlignParagraphRightThenscore3 =score3 + 0.4'第一段右对齐End If(3)正文第二段格式：字体为黑体、小四、蓝色、加着重号,字距加宽0.6磅If myDoc3.Paragraphs(2).Range.Font.Color = wdColorBlue Thenscore3 = score3 + 0.3'第二段颜色End IfIf myDoc3.Paragraphs(2).Range.Text.Font.EmphasisMark =wdEmphasisMarkUnderSolidCircle Thens
14、core3 = score3 + 0.3'第二段着重号End IfIf myDoc3.Paragraphs(2).Range.Font.Spacing = 0.6 Thenscore3 = score3 + 0.3 '第二段字距End If正文第三段格式：首行缩进0.85厘米，1.2倍行距、段前间距8磅。If myDoc3.Paragraphs(3).Range.ParagraphFormat.FirstLineIndent = 24.1 Thenscore3 = score3 + 0.4 '首行缩进0.85厘米=24.1磅End IfIf myDoc3.Paragra
15、phs(3).Range.ParagraphFormat.LineSpacing = 14.4Thenscore3= score3 + 0.4 '行距1.2倍=14.4End IfIf myDoc3.Paragraphs(3).Range.ParagraphFormat.SpaceBefore = 8Thenscore3 = score3 + 0.4 '段前间距8磅End If正文第四段格式：段落加宽度为1.5磅的红色单实线方框、底纹填充色为淡蓝色。'单实线方框、红色，设置时分以下方向'左Borders(wdBorderLeft).LineStyle、右Bord
16、ers(wdBorderRight).LineStyle、'上Borders(wdBorderTop).LineStyle、下Borders(wdBorderBottom).LineStyleIfmyDoc3.Paragraphs(4).Range.ParagraphFormat.Borders(wdBorderLeft).LineStyle =wdLineStyleSingle AndmyDoc3.Paragraphs(4).Range.ParagraphFormat.Borders(wdBorderLeft).LineWidth =wdLineWidth150pt And myDo
17、c3.Paragraphs(4).Range.ParagraphFormat.Borders(wdBorderLeft).Color = wdColorRed Thenscore3= score3 + 0.2End IfIfmyDoc3.Paragraphs(4).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle =wdLineStyleSingle AndmyDoc3.Paragraphs(4).Range.ParagraphFormat.Borders(wdBorderBottom).LineWidth =wdLineWidth
18、150pt And myDoc3.Paragraphs(4).Range.ParagraphFormat.Borders(wdBorderBottom).Color = wdColorRed Thenscore3 = score3 + 0.2EndIfIfmyDoc3.Paragraphs(4).Range.ParagraphFormat.Borders.DistanceFromTop = 1 And myDoc3.Paragraphs(4).Range.ParagraphFormat.Borders.DistanceFromLeft= 4 And myDoc3.Paragraphs(4).Range.ParagraphFormat.Borders.DistanceFromBottom =1 And myDoc3.Paragraphs(4).Range.ParagraphFormat.Borders.DistanceFromRight = 4Thenscore3 = score3 + 0.2End If'底纹淡蓝色IfmyDoc3.Paragraphs(4).Range.Text.ParagraphFormat.Shading.BackgroundPatternColor= wdColorPaleBlue Then