第1个回答 2008-06-04
给你一个思路 增加一个data1控件,做成数据库模式,再做比较,如果用户选择答案和标准答案一样就+1,最后再乘以10得出成绩。
Do
m = m + 1
If Data1.Recordset.Fields("answer") = Data1.Recordset.Fields("checkanswer") Then
n = n + 1
End If
Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF = True
m = (n / m) * 100
'或者m=n*10