考试系统答案判断

zivliao 2008-04-03 11:20:34
不定项选择题:多选,错选0分;全对得全分,少选对一个得N分。如何判断?谢谢大家~~~帮忙解决!!
...全文
106 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gingerkang 2008-04-03
需求:
正确答案:数组或字符串a,b,c
答题答案:数组或字符串 a or b,d or a,b,c,d or a,b,c
分别得N分,无分,无分,全分

<%a="a,b,c"
b="a,b,c,d"
response.write getscore(a,b)
'a是正确答案字符串,b是答题答案字符串,已排序,返回0无分,1 N分,2全分
function getscore(a,b)
dim i,arr,f
if a=b then
getscore=2
exit function
end if
if b="" then
getscore=0
exit function
end if
f=false
arr=split(b,",")
for i=0 to ubound(arr)
if instr(","& a &",",","& arr(i) &",")=0 then
f=true
exit for
end if
next
if f then
getscore=0
else
getscore=1
end if
end function
%>

回复
ab520ah 2008-04-03
顶楼主你一下。
http://qzshi.com
网站建设技术论坛
另外招版主,或合作管理员,有兴趣的加群4228406
回复
zivliao 2008-04-03
谢谢!!gingerkang
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-03 11:20
社区公告
暂无公告