大侠帮下关于考试系统多选题统分问题

if rs("type")="多选题" then
        if instr(rs("answer"),result)<>0 then’answer是正确答案
          score=score+cint(multiper)/2 ’score是得分multiper是设置的分值
          j=j+1
          answer=split(rs("answer"),",")
          answercount=ubound(answer)+1
          if answercount=j then
            score=score+cint(multiper)*(1-j/2)
          end if
        else
          score=score-cint(multiper)/2*(j)
        end if
      end if
问题：多选了和少选了统分都要出错，
怎么改成选错了都不得分