先公布与上述图片相关的代码,先看看代码,不知道对你有没有参考价值:
(1)新建表单form1,添加:
2个标签:label1,label2
1个选项按钮组:opntiongroup1
1个命令按钮:command1
上述控件的autosize都设置成.t.
另外再添加1个自定义方法ref,作用就是用于刷新有关控件。代码为
THISFORM.LABEL1.CAPTION="第"+ALLTRIM(STR(题号))+"题"
THISFORM.LABEL2.CAPTION=题内容
THISFORM.OPTIONGROUP1.OPTION1.CAPTION="A. "+A
THISFORM.OPTIONGROUP1.OPTION2.CAPTION="B. "+B
THISFORM.OPTIONGROUP1.OPTION3.CAPTION="C. "+C
THISFORM.OPTIONGROUP1.OPTION4.CAPTION="D. "+D
THISFORM.OPTIONGROUP1.VALUE=AT(用户答案,"ABCD")
(2)在表单的初始化部分form1.init()写上代码
CLOSE ALL
IF FILE("TIKU.DBF")
USE TIKU.DBF
ELSE
CREATE TABLE TIKU (题号 N(4),题内容 C(100),A C(50),B C(50),C C(50),D C(50),用户答案 C(1),标准答案 C(1))
INSERT INTO TIKU (题号,题内容,A,B,C,D,用户答案,标准答案) VALUES (1,"人有几块骨头?","302","200","201","206","A","D")
INSERT INTO TIKU (题号,题内容,A,B,C,D,用户答案,标准答案) VALUES (1,"你是谁?","不知道","是我","教师","学生","C","B")
*特别注意,在此添加2条考题,以博取大家一笑
ENDIF
THISFORM.REF
(3)在下一个命令按钮的click里面写上代码
SKIP
IF EOF()
GO TOP
ENDIF
THISFORM.REF
感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@