考试系统答案判断

zivliao 2008-04-03 11:20:34
不定项选择题:多选,错选0分;全对得全分,少选对一个得N分。如何判断?谢谢大家~~~帮忙解决!!
...全文
176 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧