[求助]如何实际这张试卷的自动评分功能？

geekjin

怎么实现这张试卷的自动评分功能啊，题目的答案，都是有的（附件中我没有写入答案，大家可以随便来列出答案来试验）。如果多选题的方式不好处理，我可以都改成单选和判断。

要求：

在试卷由学生做完后，老师收上来后，由老师来操作得到成绩。在学生做试题时不会有什么宏安全性低的提示，也不会在做题过程中自动评分。

vFSSZiPx.rar (19.57 KB, 下载次数: 183)

2008-1-4 20:43 上传

点击文件名下载附件
[求助]如何实际这张试卷的自动评分功能？

[此贴子已经被作者于2008-1-4 20:43:34编辑过]

konggs

把VBA代码全部删除，只用窗体域，这样，就不会有宏提示。

将收集到的试卷，用如下的思路进行处理。

Sub Test()
    Dim tempFiled As FormField
    Dim myContent As String
    Dim myArr
    For Each tempFiled In ActiveDocument.FormFields
        myContent = myContent & tempFiled.Result & Chr(13)
    Next
    myArr = Split(myContent, Chr(13))
    '将myArr数组进行与标准答案的比较，然后评分即可
End Sub

geekjin

深切体会中......？

谢谢版主大人！

试卷中本就是只有窗体域，没有任何VBA代码的，只是版主给的代码，具体应该怎么来用啊，要实现在用时很方便这一目的啊。

还请有“思路”者继续给予明示！谢谢。

konggs

你的附件是有代码的，所有，有宏提示。

myArr就是你的答案的数组，你一个一个的取出与你的标准答案比较即可。

取出的方法类似于这样:

for each temparr in myArr

if temparr=*** then

   mySum=mySum+1

end if

next

其实，我说的已经经很明确了。

如果楼主确认看不懂，可以请你身边懂编程的人给你做。

xdm619

真是大开眼界，我一直在追求使用word制作试卷并能自动评卷的系统。看样子，这篇文章的思路正合我意，只可惜目前还不会制作。

y19943131

原帖由 konggs 于 2008-1-5 15:33 发表
你的附件是有代码的，所有，有宏提示。myArr就是你的答案的数组，你一个一个的取出与你的标准答案比较即可。取出的方法类似于这样:for each temparr in myArrif temparr=*** then   mySum=mySum+1end ifne ...

关于标准答案的录入不太明白。假设我有4道题，标准答案分别是A、B、C、D，那*** 这部分应该怎么写呀。
谢谢！
东凑西拼搞出来一个，请老大指点一下。
Sub Test()
    Dim tempFiled As FormField
    Dim myContent As String
    Dim myArr
    da = Array()‘请将标准答案输入该数组
    Application.ScreenUpdating = False    '关闭屏幕更新
    For Each tempFiled In ActiveDocument.FormFields
        myContent = myContent & tempFiled.Result & Chr(13)
    Next
    myArr = Split(myContent, Chr(13))
         For i = 0 To 99'以100道题为例
    If myArr(i) = da(i) Then T = T + 1 Else df = df & i + 1 & "×" & "正确答案：" & da(i) & Chr(13)
    Next i
   Application.ScreenUpdating = True    '恢复屏幕更新
   If T > 0 Then MsgBox "你答对了" & T & "道题！错误的有：" & df Else MsgBox "请先答题！"
End Sub

[ 本帖最后由 y19943131 于 2008-11-7 09:25 编辑 ]

WCHGSZ

路过学习，谢谢楼主真情奉献

psystyle

标记一下，，，，，，，，，

EH2003

真是大开眼界，使用word制作试卷并能自动评卷的系统。

大雨治水

word vba值得我们去研究，多看看，再学学！谢谢。