function FN_CalcScore(UID,GameID,AnswerStr)
dim l,i,score,tmpscore,sumscore
l = 0
i = 0
score = 0
if left(GameID,1) = "Z " then
l = 5
tmpscore = 1
end if
if left(GameID,1) = "Y " then
l = 10
tmpscore = 3
end if
if left(GameID,1) = "J " then
l = 15
tmpscore = 5
end if
a1 = Split(trim(AnswerStr), "| ")
a2 = Split(trim(FN_GetCorrectAnswer(GameID)), "| ")
for i = 0 to l - 1
if trim(a1(i)) = trim(a2(i)) then
score = score + 1
end if
next
sumscore = score + tmpScore
FN_SaveScore UID,GameID,AnswerStr,l,score,l - score,tmpscore,sumscore
end function
这是什么原因啊
------解决方案--------------------
for i = 0 to l - 1
if trim(a1(i)) = trim(a2(i)) then
score = score + 1
end if
next
======================================
l=0不出错才怪呢？
应该是：
for i = 0 to ubound(a1) - 1
if trim(a1(i)) = trim(a2(i)) then
score = score + 1
end if
next