定义一个记录总成绩的变量(cj)，在每个题上定义3个变量如:回答正确的分数(yesOK)，回答错误的分数(noOK)，数据库表里面定义一个ok字段值只能为1和0，1表示正确，0表示错误，定义yesok字段的值为回答对问题加的分数，nook字段为回答错问题扣的分数，如果回答错误不扣分就将该字段值全部设置为0，其中每个题的yseok和nook分数值从数据库读出：
dim cj,yesok,nook
cj = 0
if yseok = 1 then
cj = cj+yesok
else
cj = cj-nook
end if