如何用表单设计一个考试系统的单项选择题，将用户提交的答案放在文本框中（答案要实现刷新功能，防止统计出错），并且在最后与正确答案比较，统计出分数？
后面怎么做呀
谢谢大家了

已经设计好单项选择的代码如下
form1.init
use 考试题
thisform.label1.caption=试题名
thisform.optiongroup1.option1.caption=选项1
thisform.optiongroup1.option2.caption=选项2
thisform.optiongroup1.option3.caption=选项3
thisform.optiongroup1.option4.caption=选项4
thisform.optiongroup1.value=0

form1.load
public pp(20),aa(20)
pp=0
aa=""

optiongroup.click &&单项选择题
pp(recno())=thisform.optiongroup1.value
if pp(recno())=答案编号
thisform.label2.caption="√"
else
thisform.label2.caption="×"
endif
aa(recno())=thisform.label2.caption

command1.click &&下一题按钮
skip
if not eof() thisform.command1.enabled=.t.
thisform.optiongroup1.value=pp(recno())
thisform.label1.caption=试题名
thisform.optiongroup1.option1.caption=选项1
thisform.optiongroup1.option2.caption=选项2
thisform.optiongroup1.option3.caption=选项3
thisform.optiongroup1.option4.caption=选项4
thisform.label2.caption=aa(recno())
else
skip -1
thisform.command1.enabled=.f.
endif
thisform.command2.enabled=.t.

skip -1
if not bof()

thisform.command2.enabled=.t.
thisform.label2.caption=aa(recno())
thisform.optiongroup1.value=pp(recno())
thisform.label1.caption=试题名
thisform.optiongroup1.option1.caption=选项1
thisform.optiongroup1.option2.caption=选项2
thisform.optiongroup1.option3.caption=选项3
thisform.optiongroup1.option4.caption=选项4

command2.click &&上一题按钮
skip -1
if not bof() thisform.command2.enabled=.t.
thisform.label2.caption=aa(recno())
thisform.optiongroup1.value=pp(recno())
thisform.label1.caption=试题名
thisform.optiongroup1.option1.caption=选项1
thisform.optiongroup1.option2.caption=选项2
thisform.optiongroup1.option3.caption=选项3
thisform.optiongroup1.option4.caption=选项4

[此贴子已经被作者于2006-6-28 23:46:07编辑过]

搞那么麻烦干什么?
表单中有EDIT1放题目，OPTIONGROUP1放4个选项，COMMANDGROUP1放若干命令按钮,TEXT1放分数

(1)初始化FORM1.INIT
CLOSE ALL
USE 选择题
THISFORM.EDIT1.READONLY=.T.
THISFORM.EDIT1.CONTROLRESOURCE="选择题.题目"
THISFORM.OPTIONGROUP1.OPTION1.CAPTION=选择题.选项1
THISFORM.OPTIONGROUP1.OPTION2.CAPTION=选择题.选项2
THISFORM.OPTIONGROUP1.OPTION3.CAPTION=选择题.选项3
THISFORM.OPTIONGROUP1.OPTION4.CAPTION=选择题.选项4
THISFORM.OPTIONGROUP1.VALUE=IIF(选择题.用户答案="A",1,IIF(选择题.用户答案="B",2,IIF(选择题.用户答案="C",3,4)))

(2)OPTIONGROUP1.INTERACTIVATECHANGE()
REPLACE 用户答案 WITH IIF(THIS.VALUE=1,"A",IIF(THIS.VALUE=2,"B",IIF(THIS.VALUE=3,"C","D")))

(3)COMMANDGROUP1.CLICK()
DO CASE
CASE THIS.VALUE=1 &&第一题
GO TOP
CASE THIS.VALUE=2 &&上一题
SKIP -1
IF BOF()
GO TOP
ENDIF
CASE THIS.VALUE=3 &&下一题
SKIP
IF EOF()
GO BOTTOM
ENDIF
CASE THIS.VALUE=4 &&最后一题
GO BOTTOM
CASE THIS.VALUE=5 &&统计分数
COUNT TO X FOR 用户答案=标准答案
THISFORM.TEXT1.VALUE=X
CASE THIS.VALUE=6 &&结束
THISFORM.RELEASE
ENDCASE
THISFORM.OPTIONGROUP1.VALUE=IIF(选择题.用户答案="A",1,IIF(选择题.用户答案="B",2,IIF(选择题.用户答案="C",3,4)))
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=IIF(RECNO()=1,.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=IIF(RECNO()=1,.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=IIF(RECNO()=RECCOUNT(),.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=IIF(RECNO()=RECCOUNT(),.F.,.T.)
THISFORM.REFRESH

好像有问题哦，只能读取题目，却无法刷新选择题的选项。。。
不过仍然感谢！

[此贴子已经被作者于2006-6-27 21:26:08编辑过]

把
THISFORM.OPTIONGROUP1.OPTION1.CAPTION=选择题.选项1
THISFORM.OPTIONGROUP1.OPTION2.CAPTION=选择题.选项2
THISFORM.OPTIONGROUP1.OPTION3.CAPTION=选择题.选项3
THISFORM.OPTIONGROUP1.OPTION4.CAPTION=选择题.选项4
放在第(3)部分里

刚学VFP，麻烦版主了。
COUNT TO X FOR 用户答案=答案编号
THISFORM.TEXT1.VALUE=X
CASE THIS.VALUE=6 &&结束
THISFORM.RELEASE
ENDCASE
THISFORM.OPTIONGROUP1.VALUE=IIF(单选题.用户答案="A",1,IIF(单选题.用户答案="B",2,IIF(单选题.用户答案"C",3,4))) &&这里说操作符/操作类型不匹配
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=IIF(RECNO()=1,.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=IIF(RECNO()=1,.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=IIF(RECNO()=RECCOUNT(),.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=IIF(RECNO()=RECCOUNT(),.F.,.T.)
THISFORM.REFRESH

请问一下，IIF（）函数里的“用户答案”字段应该设置成什么类型？
要避免操作数据类型不匹配

[此贴子已经被作者于2006-6-28 16:55:22编辑过]

很显然是C(字符型)的

非常感谢你，可是，这个计分系统第一次使用以后就把用户答案写到表里去了
我却不知道如何在运行这个系统时，怎样将用户答案清空？

REPLACE ALL 用户答案 WITH []

谢谢，不过还是有问题呀
就是把做对了的题目改成错的，统计正确答案还是有问题
比如说是作对了2题，结果，我点击上一题把答案修改成错的，但是，统计结果还是2
我的用户答案字段设置成了数值型的。
commandgroup1.click 代码如下
DO CASE
CASE THIS.VALUE=1
GO TOP
CASE THIS.VALUE=2
SKIP -1
IF BOF()
GO TOP
ENDIF
CASE THIS.VALUE=3
SKIP
IF EOF()
GO BOTTOM
ENDIF
CASE THIS.VALUE=4
GO BOTTOM
CASE THIS.VALUE=5
thisform.commandgroup1.command1.VISIBLE=.F.
thisform.commandgroup1.command2.VISIBLE=.F.
thisform.commandgroup1.command3.VISIBLE=.F.
thisform.commandgroup1.command4.VISIBLE=.F.
store 0 to X
COUNT TO X FOR 用户答案=答案编号
THISFORM.TEXT1.VALUE=X
CASE THIS.VALUE=6
THISFORM.RELEASE
ENDCASE
THISFORM.OPTIONGROUP1.VALUE=IIF(单选题.用户答案=1,1,IIF(单选题.用户答案=2,2,IIF(单选题.用户答案=3,3,4)))
THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=IIF(RECNO()=1,.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=IIF(RECNO()=1,.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=IIF(RECNO()=RECCOUNT(),.F.,.T.)
THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=IIF(RECNO()=RECCOUNT(),.F.,.T.)
THISFORM.REFRESH

[此贴子已经被作者于2006-6-28 23:45:34编辑过]

统计的时候用的条件是"用户答案=标准答案",因此,必须设定用户答案及标准答案两个字段,而且做题目的时候，修改的是用户答案字段的值而不是标准答案的值(标准答案永远不能修改).你再看看你的程序,然后修改