vfp计算机二级考试例题汇总表单设计

1、vfp下例题汇总序号题目页数1计算圆面积32我的第一个面向对象程序33计算三角形面积44计算一元二次方程的根55登录窗口66口令验证67调色板78输入学号查询平均成绩89查询并显示指定学生的考试结果910查询并显示指定班级的男女生人数1011查询并显示指定班级的奖学金总额1112查询并显示指定课程的平均成绩1213学生信息表查询1314生成数据并统计1415矩阵1516人工翻动的日历牌1617数据转移操作1718数据转移操作1719输入班级号显示该班同学名单1820文字设置1921查询并显示指定班级的奖学金总额2022查询并显示指定班级的学生名单2123命令按钮组调色板2224选项按钮组调色板

2、2325根据边长计算正方体体积、表面积和总边长2426根据边长计算正方体体积、表面积和总边长2527统计学生平均成绩或课程平均成绩2628字体格式预览2729信息窗2830数字时钟2931电子时钟3032日期、星期、时钟表单3033设计一个24秒倒记时表单，记时精度1秒3134篮球比赛记时器表单，记时精度1秒3335运动会100米径赛记时器表单，记时精度0.01秒3436设计一个记时器表单，记时精度1秒3537小球大小变化3638文字缩放3839文字水平移3940时间信息平行移动40序号题目页数41浏览表文件“学生.dbf“4142自动浏览表文件“学生.dbf“4343抽奖表单4344三次口令

3、验证4545指定表文件字段浏览4646选页调色板4747学籍信息自动浏览4848学籍信息浏览4949学生表内容自动浏览（绑定）5050学生表内容按钮组浏览（绑定）5151学生表信息查询（文本框输入）5352学生表信息查询（列表框输入）（绑定）5453学生表信息查询（组合框输入）（绑定）5554输入学号或姓名查询平均成绩5755指定姓名查询平均成绩5856指定课程名查询平均成绩5957指定班级查询平均成绩5958学生成绩信息查询6059学生或课程成绩信息查询6160添加成绩6361学生成绩信息查询（2个表格）6462学生成绩信息查询（1个列表框1个表格）6563课程成绩信息查询（1个列表框1个表

4、格）6564学生或课程成绩信息查询（2个列表框1个表格）6765学生成绩信息查询(文本框与表格)6866成绩详细信息查询(列表框与文本框)7067学生成绩信息查询(文本框与表格)7168学生成绩信息查询7269学生成绩信息查询7470学生表纪录添加7571文字逐个显示76要求： 编辑状态图中所见的属性在属性窗口中设置，其他属性和功能必须用程序代码实现1 计算圆面积1）编辑状态如图t1；2）初始运行状态如图t2；文本框text1用于接收用户输入圆的半径，文本框text1的初值为0，（通过程序代码实现）3）当用户输入圆的半径后，鼠标单击“计算”按钮(command1)，判断输入的数据是否正确；4）

5、如果输入的半径小于等于0，则用信息窗口提示错误，如图t3所示信息；5）如果输入的数据正确，则将该圆的面积在文本框text2中显示，如图t4；6）单击“退出”按钮(command2)时关闭表单。 图1 设计界面 图2 运行时界面属性窗口设置属性窗口设置：form1_caption=求圆的面积label1_caption=输入半径label2_caption=圆的面积command1_caption=计算command2_caption=退出事件代码form1 的init事件thisform.text1.value=0command1的click事件r=thisform.text1.valueif

6、 r>0thisform.text2.value=pi()*r*relsemessagebox(半径必须大于零)endifcommand2的click事件thisform.release2 我的第一个面向对象程序要求：如图1和图2所示，编制一个表单完成如下功能：当用户输入姓名和学号，按下“确定”按钮后，窗口中显示“这是××的第一个面向对象程序！”。 图1 设计界面 图2 运行时界面属性窗口设置属性窗口设置：form1_caption=我的第一个面向对象程序label1_caption=请输入你的姓名command1_caption=退出事件代码text1的valid事

7、件thisform.text1.value="这是"+allt(thisform.text1.value)+"的第一个面向对象程序！"command2的click事件thisform.release3 计算三角形面积要求：如图1、图2和图3所示，编制一个表单完成如下功能：文本框text1、text2、text3用于接收用户输入三角形的边长，文本框text1、text2、text3的初值为0（通过程序代码实现），按下“判断计算”按钮后，如果用户数据能构成三角形，则窗口中显示对应信息和面积值。如果不能构成三角形，则显示“不能构成三角形”。图1 设计界面 图2

8、 运行时界面 图3 运行时界面属性窗口设置属性窗口设置：form1_caption=求三角形面积label1_caption=请输入三角形的三个边长label2_caption=alabel3_caption=blabel4_caption=clabel5_caption=command1_caption=判断计算事件代码form1 的init事件thisform.text1.value=0thisform.text2.value=0thisform.text3.value=0command1的click事件a=thisform.text1.valueb=thisform.text2.valu

9、ec=thisform.text3.valueif a>0 and b>0 and c>0 and a+b>c and a+c>b and b+c>as=(a+b+c)/2area=sqrt(s*(s-a)*(s-b)*(s-c)thisform.label5.caption='能构成三角形，面积为：'+ ;allt(str(area,10,2)elsethisform.label5.caption='不能构成三角形'endifcommand2的click事件thisform.release4 计算一元二次方程的根要求：如图1

10、、图2和图3所示，编制一个表单完成如下功能：文本框text1、text2、text3的初值都为0（必须用程序代码实现），text4 、text5显示为只读。用户输入分别输入某一元二次方程的三个系数a、b、c，按下“计算”按钮后，在对应的文本框中显示方程的根。如果a=0，用消息框显示方程无意义。如果方程无实数根，也用消息框提示。 图1 设计界面 图2 运行时界面 图3 运行时界面属性窗口设置属性窗口设置：form1_caption=一元二次方程求解label1_caption=alabel2_caption=blabel3_caption=clabel4_caption=x1=label5_ca

11、ption=x2=command1_caption=计算command2_caption=退出事件代码form1 的init事件thisform.text1.value=0thisform.text2.value=0thisform.text3.value=0command1的click事件a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valueif a=0messagebox(方程无意义)elseif b*b-4*a*c<0messagebox(方程无实根)elses=sqrt(b*b-4*a*c)thisfo

12、rm.text4.value=(-b+s)/2*athisform.text5.value=(-b-s)/2*aendifendifcommand2的click事件thisform.release5 登录窗口1) 编辑状态如图1；初始运行状态如图2；2) 正确的用户名为“user”、口令为“sql”,都是大写字母；3) 在输入口令时不显示口令内容,口令中的字符用“*”代替；4) 在输入用户名和口令后,单击“登录”按钮(command1)进行验证，如果用户名和口令都正确,用信息窗口显示“登录成功”。否则显示“用户名或口令错误”；5) 单击“退出”按钮(command2)时关闭表单。 图1 编辑时

13、界面 图2 运行时界面属性窗口设置属性窗口设置：form1_caption=登录窗口label1_caption=用户名label2_caption=口令command1_caption=登录command2_caption=退出事件代码form1 的init事件thisfomr.text2.passwordchar=*command1的click事件if allt(thisform.text1.value)= user and; allt(thisform.text2.value)= sqlmessagebox(登录成功)elsemessagebox(用户名或口令错误)endifcomman

14、d2的click事件thisform.release 6 口令验证要求：如图1和图2、图3所示，编制一个表单完成如下功能：当用户在文本框中输入正确口令后，在窗口中将显示“正确”，否则显示“错误”。口令为学生表中的“姓名”字段的值。图1 设计界面 图2 运行时界面图3 运行时界面属性窗口设置属性窗口设置：form1_caption=口令验证窗口label1_caption=请输入口令label2_caption=数据环境“学生”表事件代码form1 的init事件thisfomr.text2.passwordchar=*text1的valid事件xm=allt(thisform.text1.va

15、lue)locate for allt(姓名)=xmif found()thisform.label2.caption='欢迎使用系统'elsethisform.label2.caption='口令错误'endif7 调色板要求：如图1和图2所示，编制一个表单完成如下功能：当用户在按下窗口中的按钮后，表单窗口将显示对应的背景颜色。 图1 设计界面 图2 运行时界面属性窗口设置属性窗口设置：form1_caption=调色板command1_caption=黑command2_caption=红command3_caption=黄command4_caption=

16、白事件代码command1 的click事件thisform.backcolor=rgb(0,0,0)command2 的click事件thisform.backcolor=rgb(255,0,0)command3 的click事件thisform.backcolor=rgb(255,255,0)command4 的click事件thisform.backcolor=rgb(255,255,2550)8 输入学号查询平均成绩要求：1) 如图1、图2和图3所示，输入学号后，程序查询成绩表中是否存在该同学的记录，如果存在，则计算该通许成绩表中所有成绩的平均值，并显示；如果不存在，则显示“该同学没参

17、加考试”的消息框。2) 显示平均成绩的文本框只读（要求用代码实现）。图1 设计界面 图2 运行时界面 图3 运行时界面属性窗口设置属性窗口设置：form1_caption=查询平均成绩label1_caption=请输入学号label2_caption=平均成绩command1_caption=确定command2_caption=退出数据环境“成绩”表事件代码form1 的init事件set talk offthisform.text2.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)locate for alltrim(

18、学号)=nif found() average 成绩 to k for 学号=n thisform.text2.value=kelse thisform.text2.value="" messagebox("该同学没参加考试")endifcommand2的click事件set talk onthisform.release9 查询并显示指定学生的考试结果要求：(1)编制一个表单实现在“成绩”表中查询考试结果。(2)在text1中输入学号，如果成绩表没有该同学成绩，则用消息框显示“该同学没参加考试”。(3)如果该同学的成绩没有小于60的，则在text2中显

19、示“考试课程全部通过”，否则显示“下学期开学前补考”。(4) 显示平均成绩的文本框只读（要求用代码实现）。图1-设计图 图2-运行效果图 图2-运行效果图属性窗口设置属性窗口设置：form1_caption=查询考试结果label1_caption=请输入学号label2_caption=考试结果command1_caption=确定command2_caption=退出数据环境“成绩”表事件代码form1 的init事件thisform.text2.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)locate for al

20、ltrim(学号)=nif eof() thisform.text2.value="" messagebox("该同学没参加考试")else locate for alltrim(学号)=n and 成绩<60 if eof() thisform.text2.value="考试课程全部通过" else thisform.text2.value="下学期开学前补考" endifendifcommand2的click事件thisform.release10 查询并显示指定班级的男女生人数要求：(1)编制一个表单，

21、实现在“学生”表中统计班级的男、女生人数的功能。(2)程序运行后，在text1中输入班级代号，如果学生表中没有该班级的学生，则消息框提示“该班级不存在”。(3)如果学生表中有该班级的同学，则统计该班级的男、女生人数，并分别显示在text2和text3中。(4) text2和text3只读。（要求用代码实现）。 图1-设计图 图2-运行效果图属性窗口设置属性窗口设置：form1_caption=班级信息查询label1_caption=班级代号label2_caption=男生人数label3_caption=女生人数command1_caption=确定command2_caption=退出数

22、据环境“学生”表事件代码form1 的init事件set talk offthisform.text2.readonly=.t.thisform.text3.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)locate for left(学号,3)=nif eof() thisform.text2.value="" thisform.text3.value="" messagebox("该班级代号不存在")else count to k for left(学号,3)

23、=n and 性别 count to l for left(学号,3)=n and !性别 thisform.text2.value=k thisform.text3.value=lendifcommand2的click事件set talk onthisform.release11 查询并显示指定班级的奖学金总额要求：(1)编制一个表单，实现在“学生”表中统计指定班级的奖学金总额。(2)程序运行后，在text1中输入班级代号，如果学生表中没有该班级的学生，则消息框提示“该班级不存在”。(3)如果学生表中有该班级的同学，则统计该班级的奖学金总额，并显示在text2中。(4) text2只读。（要

24、求用代码实现）。 图1-设计图 图2-运行效果图 图3-运行效果图 图4-运行效果图属性窗口设置属性窗口设置：form1_caption=班级奖学金查询label1_caption=输入班级代号label2_caption=奖学金总额command1_caption=确定command2_caption=退出数据环境“学生”表事件代码form1 的init事件set talk offthisform.text2.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)locate for left(学号,3)=nif eof() t

25、hisform.text2.value="" messagebox("该班级代号不存在")else sum 奖学金 to k for left(学号,3)=n thisform.text2.value=kendifcommand2的click事件set talk onthisform.release12 查询并显示指定课程的平均成绩要求：(1)编制一个表单，实现在“成绩”表中统计指定课程的平均成绩。(2)程序运行后，在text1中输入课程号，如果课程表中没有该课程的记录，则消息框提示“该课程成绩没有输入”。(3)如果学生表中有该课程的记录，则统计该课程的

26、平均成绩，并显示在text2中。(4) text2只读。（要求用代码实现）。 图1-设计图 图2-运行效果图 图3-运行效果图 图4-运行效果图属性窗口设置属性窗口设置：form1_caption=查询课程平均成绩label1_caption=输入课程号label2_caption=平均成绩command1_caption=确定command2_caption=退出数据环境“成绩”表事件代码form1 的init事件set talk offthisform.text2.readonly=.t.command1的click事件n=alltrim(thisform.text1.value)loca

27、te for alltrim(课程号)=nif eof() thisform.text2.value="" messagebox("该课程成绩没有输入")else average for alltrim(课程号)=n 成绩 to k thisform.text2.value=kendifcommand2的click事件set talk onthisform.release13 学生信息表查询要求：如图1和2所示，编制一个表单完成如下功能：1)当用户在文本框中输入学号，程序在学生表中查找对应记录，如果记录存在，则显示对应学生信息，如果就不存在，则提示“你所

28、查找的学生并不存在！”。2)在文本框的valid事件中判断。图1-设计图 图2-运行效果图图3-运行效果图 图4-运行效果图属性窗口设置属性窗口设置：form1_caption=学生表信息查询label1_caption=请输入学生学号label2_caption=label3_caption=姓名label4_caption=性别label5_caption=出生年月label6_caption=奖学金text2_readonly=.t.text3_readonly=.t.text4_readonly=.t.text5_readonly=.t.数据环境“学生”表事件代码form1 的init

29、事件this.setall("visible",.f.)this.label1.visible=.t.this.text1.visible=.t.text1的valid事件locate for alltrim(学号)=alltrim(this.value)if found() thisform.label2.caption="" thisform.setall("visible",.t.) thisform.text2.value=姓名 thisform.text3.value=性别 thisform.text4.value=出生年月

30、 thisform.text5.value=奖学金else thisform.setall("visible",.f.) thisform.label1.visible=.t. thisform.text1.visible=.t. thisform.label2.visible=.t. thisform.label2.caption="您所指定的学生并不存在！"endif14 生成数据并统计要求：如图1和2所示，在文本框中输入一个起始数，则在编辑框中显示20个从起始数开始的并且是3的倍数的正整数，而且要求这20个数字的个位数字都是3，利用标签输出这20个

31、数的和。要求编写form1的init事件、text1的valid事件、command1的click事件。图1-设计图 图2-运行效果图 图3-运行效果图 属性窗口设置属性窗口设置：form1_caption=生成数据并统计label1_caption=输入开始值label2_caption=command1_caption=统计edit1_readonly=.t.事件代码text1的valid事件n=1s=''a=val(thisform.text1.value)do while n<=20if(a%3)=0 .and. a%10=3n=n+1s=s+str(a)+chr

32、(13)endifa=a+1enddothisform.edit1.value=scommand1的click事件n=1s=0a=val(thisform.text1.value)do while n<=20if(a%3)=0 .and. a%10=3n=n+1s=s+aendifa=a+1enddothisform.label2.caption="这组数字的和是"+allt(str(s)15 矩阵要求：如图1和图2所示，文本框中输入110的数据，单击显示按钮，在编辑框中显示对应行数和列数的矩阵。图1-设计图 图2-运行效果图属性窗口设置属性窗口设置：form1_ca

33、ption=生成矩阵label1_caption=请输入一个110之间的数字command1_caption=显示事件代码command1的click事件n=val(thisform.text1.value)s=""for i=1 to n for j=1 to n if j=i or j+i=n+1 s=s+"0"+space(1) else s=s+"1"+space(1) endif endfor s=s+chr(13) endforthisform.edit1.value=s16 人工翻动的日历牌要求：如图所示，编制一个表单完

34、成如下功能：1)以“*年*月*日”的格式显示系统当前日期2)按下微调器的按钮可以显示当前日期之前或之后的日期图1-设计图 图2-运行效果图属性窗口设置属性窗口设置：form1_caption=人工翻动的日历牌事件代码form1的init事件thisform.text1.readonly=.t.thisform.text1.dateformat=14thisform.text1.value=date()spinner1的upclick事件thisform.text1.value=thisform.text1.value+1spinner1的downclick事件thisform.text1.va

35、lue=thisform.text1.value-117 数据转移操作要求：如图所示，编制一个表单完成如下功能：程序运行后，左边源数据列表显示学生表中学生的姓名，右边目标数据列表为空，当源数据列表中选中一位同学后，单击“选择一项”按钮，该同学姓名就从源数据列表被移动到目标数据列表。当在目标数据列表中选择一位同学后，单击“退还一项”， 该同学姓名就从目标数据列表被移动到源数据列表。图1-设计图 图2-运行效果图 图3-运行效果图 属性窗口设置属性窗口设置：form1_caption=数据转移操作label1_caption=源数据列表label2_caption=目数标据列表command1_c

36、aption=选择一项command2_caption=退还一项数据环境“学生”表事件代码form1的init事件scan this.list1.additem(姓名)endscancommand1的click事件thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)command2的click事件thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.lis

37、t2.listindex)18 数据转移操作要求：如图1和2所示，编制一个表单列表框中信息项的互传操作。 图1-设计图 图2-运行效果图 图3-运行效果图 属性窗口设置属性窗口设置：form1_caption=数据转移操作label1_caption=源数据列表label2_caption=目标数据列表command1_caption=右移一项command2_caption=左移一项command3_caption=全部右移command4_caption=全部左移数据环境“学生”表事件代码form1的init事件scan this.list1.additem(姓名)endscancomma

38、nd1的click事件thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)command2的click事件thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.listindex)command3的click事件thisform.list2.clearscanthisform.list2.additem(姓名)endscanthisform.l

39、ist1.clearcommand4的click事件thisform.list1.clearscanthisform.list1.additem(姓名)endscanthisform.list2.clear19 输入班级号显示该班同学名单要求：如图1和2所示，编制一个表单完成如下功能：1)当用户在文本框中输入班级号，程序在学生表中查找对应记录，如果记录存在，则显示对应学生姓名，如果就不存在，则提示“该班级不存在！”。图1-设计图 图2-运行效果图 图3-运行效果图 属性窗口设置属性窗口设置：form1_caption=输入班级号显示该班学生名单label1_caption=请输入班级号labe

40、l2_caption=班级学生名单command1_caption=确定command2_caption=退出数据环境“学生”表事件代码command1的click事件thisform.list1.clearbjh=alltrim(thisform.text1.value)locate for left(学号,3)=bjhif found()scan for left(学号,3)=bjhthisform.list1.additem(姓名)endscanelsemessagebox('该班级不存在')endifcommand2的click事件thisform.release20

41、文字设置（p264）要求：如图1和2所示，编制一个表单，通过选择三个组合框中的选项来改变标签中文字的字体、字号及颜色。combo1中数据项为“宋体,隶书,黑体,幼圆”； combo2中数据项为“10,19,28,45,54”；combo3中数据项为“红色,绿色,蓝色,黄色”。三个组合框都设为“下拉列表框”。图1-设计图 图2-运行效果图 图3-运行效果图 属性窗口设置属性窗口设置：form1_caption=文字设置label1_caption=组合框事件代码form1的init事件thisform.combo1.style=2thisform.combo2.style=2thisform.c

42、ombo3.style=2thisform.combo1.rowsourcetype=1thisform.combo1.rowsource="宋体,隶书,黑体,幼圆"thisform.combo2.rowsourcetype=1thisform.combo2.rowsource="10,19,28,45,54"thisform.combo3.rowsourcetype=1thisform.combo3.rowsource="红色,绿色,蓝色,黄色"combo1的interactivechange事件thisform.label1.fo

43、ntname=this. valuecombo2的interactivechange事件thisform.label1.fontsize=val(this.value)combo3的interactivechange事件do case case this. value ="红色" thisform.label1.forecolor=rgb(255,0,0) case this. value ="绿色" thisform.label1.forecolor=rgb(0,255,0) case this. value ="蓝色" thisf

44、orm.label1.forecolor=rgb(0,0,255) case this. value ="黄色" thisform.label1.forecolor=rgb(255,255,0)endcase21 查询并显示指定班级的奖学金总额要求：如图所示，编制一个表单完成如下功能：(1)当用户在组合框中输入或选择班级后，按回车件或者单击确定按钮时，表单将显示对应班级的奖学金总额。（2）如果学生表中没有该班级的学生，则消息框提示“该班级不存在”。 (3) text1只读（必须用程序代码实现）图1-设计图 图2-运行效果图图3-运行效果图 图4-运行效果图属性窗口设置属性窗

45、口设置：form1_caption=查询并显示指定班级奖学金总额label1_caption=请输入或选择班级号：label2_caption=奖学金总额：command1_caption=确定command2_caption=退出数据环境“学生”表事件代码form1的init事件set talk offindex on left(学号,3) to inxh uniquescanthis.combo1.additem(left(学号,3)endscanset index tothisform.text1.readonly=.t.command1的click事件bjh=alltrim(thisf

46、orm.combo1.displayvalue)locate for left(学号,3)=bjhif found()sum 奖学金 to mjxj for left(学号,3)=bjhthisform.text1.value=mjxjelsethisform.text1.value=''messagebox('该班级不存在！')endifcommand2的click事件thisform.release22 查询并显示指定班级的学生名单要求：如图所示，编制一个表单完成如下功能：1)当用户在组合框中输入或选择班级号，程序在学生表中查找对应记录，如果记录存在，则显示

47、对应学生姓名，如果就不存在，则用消息框提示“该班级不存在！”。图1-设计图 图2-运行效果图 图3-运行效果图 图4-运行效果图 属性窗口设置属性窗口设置：form1_caption=查询并显示指定班级奖学金总额label1_caption=请输入或选择班级号：label2_caption=奖学金总额：command1_caption=确定command2_caption=退出数据环境“学生”表事件代码form1的init事件index on left(学号,3) to inxh uniquescanthis.combo1.additem(left(学号,3)endscanset index

48、tocommand1的click事件thisform.list1.clearbjh=alltrim(thisform.combo1.displayvalue)locate for left(学号,3)=bjhif found()scan for left(学号,3)=bjhthisform.list1.additem(姓名)endscanelsemessagebox('该班级不存在')endifcommand2的click事件thisform.release23 命令按钮组调色板要求： 当用户按了命令按钮组中的某个按钮后，表单的背景色就会变为按钮指定的对应颜色。图1-设计图 图

49、2-运行效果图 图3-运行效果图 属性窗口设置属性窗口设置：form1_caption=命令按钮组调色板commandgroup1_buttoncount=5commandgroup1_command1_caption=红commandgroup1_command2_caption=绿commandgroup1_command3_caption=蓝commandgroup1_command4_caption=黑commandgroup1_command5_caption=白事件代码commandgroup1的click事件do case case this.value=1thisform.ba

50、ckcolor=rgb(255,0,0)case this.value=2thisform.backcolor=rgb(0,255,0)case this.value=3thisform.backcolor=rgb(0,0,255)case this.value=4thisform.backcolor=rgb(0,0,0)case this.value=5thisform.backcolor=rgb(255,255,255)endcase24 选项按钮组调色板要求：当用户按了选项按钮组中的某个按钮后，表单的背景色就会变为按钮指定的对应颜色。图1-设计图 图2-运行效果图 图3-运行效果图 属性

51、窗口设置属性窗口设置：optiongroup1_buttoncount=5事件代码form1的init事件this.caption="选项按钮组调色板"c="红绿蓝黑白"for i=1 to 5this.optiongroup1.buttonsi.caption=substr(c,2*i-1,2)endforoptiongroup1的click事件do case case this.value=1thisform.backcolor=rgb(255,0,0)case this.value=2thisform.backcolor=rgb(0,255,0)case this.value=3thisform.backcolor=rgb(0,0,255)case this.value=4thisform.backcolor=rgb(0,0,0)case this.value=5thisform.backcolor=rgb(255,