用word2000使试卷自动批改.doc

《用word2000使试卷自动批改.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、用word2000使试卷自动批改用word2000使试卷自动批改作为一个老师，常常要做试卷、改试卷，常常改得头昏眼花，要是试卷能自动批改那该多好啊。近日我就用word2000制作了一份能自动批改的试卷与大家共享。本文分为选择题制作与填空题制作两部分。首先新建一个word2000文档，单击视图→工具栏→控件工具箱控件工具箱　选择题制作（返回）单击进入“设计模式”，接着输入题目：一、选择题1、氟里昂是一种最好的冰箱制冷剂之一，但现在世界上很多国家已禁止使用，因为它会污染空气，引起(　　)在下一行插入四个　“复选框”和一个　“标签”，单击控件工具箱中　

2、“属性”，将四个“复选框”的名称分别改为：a1、b1、c1、d1，Caption分别改为：(A)臭氧层破坏、(B)温室效应、(C)酸雨、(D)光化学烟雾，并将“标签”的名称改为：clew1（为了输出文字醒目可将ForeColor设置为红色）。如下所示：同理输入第2题、第3题，其中“复选框”的名称分别改为：a2、b2、c2、d2、a3、b3、c3、d3，Caption分别改为：(A)只有①②、(B)只有②④、(C)只有①②③、(D)①②③④、(A)设法阻止石油喷射、(B)设法降低火焰温度、(C)设法降低石油着火点、(D)设法使火焰隔绝空气，并将“标

3、签”的名称分别改为：clew2、clew3。如下所示：2、下列情况可能引起大气污染的是①煤的燃烧;②工业废气的任意排放;③燃放鞭炮;④飞机、汽车尾气的排放(　　)3、海湾战争中，科威特大批油井着火，在灭火工作中，下列措施不能考虑用于灭火的是（　　）　　　　　　　　　　在下一行插入一个　“命令按钮”，设置其Caption为：“批改”。再输入“你的得分为：”并插入一个　“标签”。如下所示：你的得分为：双击CommandButton1按钮输入以下代码：PrivateSubCommandButton1_Click()Ifa1.Value=TrueThen

4、clew1.Caption="你答对了"Elseclew1.Caption="你答错了"EndIf（说明：第1题的答案为“A”，这段代码用来判断a1是否被选中，并在“clew1”中给出提示。）Ifd2.Value=TrueThenclew2.Caption="你答对了"Elseclew2.Caption="你答错了"EndIf（说明：第2题的答案为“D”，这段代码用来判断d2是否被选中，并在“clew2”中给出提示。）Ifc3.Value=TrueThenclew3.Caption="你答对了"Elseclew3.Caption="你答错了"En

5、dIf（说明：第3题的答案为“C”，这段代码用来判断c3是否被选中，并在“clew3”中给出提示。）zongfen=0Ifa1.Value=TrueThenzongfen=zongfen+5Ifd2.Value=TrueThenzongfen=zongfen+5Ifc3.Value=TrueThenzongfen=zongfen+5Label1.Caption=Str(zongfen)EndSub（说明：这段代码用来判断学生做对了几题，每题5分，在“Label1”中给出得分。）　PrivateSubDocument_Open()a1.Value=

6、Falsea2.Value=Falsea3.Value=Falseb1.Value=Falseb2.Value=Falseb3.Value=Falsec1.Value=Falsec2.Value=Falsec3.Value=Falsed1.Value=Falsed2.Value=Falsed3.Value=Falseclew1.Caption=""clew2.Caption=""clew3.Caption=""Label1.Caption=""EndSub（说明：这段代码用来设置各按钮、标签的初始值。）　双击a1按钮输入以下代码：PrivateS

7、uba1_Click()Ifa1.Value=TrueThenb1.Value=Falsec1.Value=Falsed1.Value=FalseEndIfEndSub（说明：这段代码用来实现答案的单选，以下同理。）再双击b1按钮输入以下代码：PrivateSubb1_Click()Ifb1.Value=TrueThena1.Value=Falsec1.Value=Falsed1.Value=FalseEndIfEndSub再双击c1按钮输入以下代码：PrivateSubc1_Click()Ifc1.Value=TrueThenb1.Value=

8、Falsea1.Value=Falsed1.Value=FalseEndIfEndSub再双击d1按钮输入以下代码：PrivateSub