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

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选项按钮组调色板2325根据边长计算正方体体积、表面积和总边长2426根据边长计算正方体体积、表面积和总边长2527统计学生平均成绩或课程平均成绩2628字体格式预览2729信息窗2830数字时钟2931电;时钟3032口期、星期、时钟表单3033设计一个24秒倒记时表单，记时精度1秒3134篮球比赛记时器表单，记时精度1秒3335运动会100米径赛记时器表单，记时精度0.01秒3436设计一个记时器表单，记时精度1秒3537小球大小变化3638文字缩放3839文字水平移3940时间信息平行移动40第1页共77页Vfp下例题汇总序号题目页数41浏览表文件“学生.dbf 4142自动浏览表文件“学生.dbf 4343抽奖表单4344三次口令验证4545指定表文件字段浏览4646选页调色板4747学籍信息自动浏览4848学籍信息浏览4949学生表内容自动浏览（绑定）5050学生表内容按钮组浏览（绑定）5151学生表信息查询（文本框输入）5352学生表信息查询（列表框输入）（绑定）5453学生表信息查询（组合框输入）（绑定）5554输入学号或姓名查询平均成绩5755指定姓名查询平均成绩5856指定课程名查询平均成绩5957指定班级查询平均成绩5958学生成绩信息查询6059学生或课程成绩信息查询6160添加成绩6361学生成绩信息查询（2个表格）6462学生成绩信息查询（1个列表框1个表格）6563课程成绩信息查询（1个列表框1个表格）6564学生或课程成绩信息查询（2个列表框1个表格）6765学生成绩信息查询（文本框与表格）6866成绩详细信息查询（列表框与文本框）7067学生成绩信息查询（文本框与表格）7168学生成绩信息查询7269学生成绩信息查询7470学生表纪录添加7571文字逐个显示76第2页共77页Vfp下例题汇总要求：编辑状态图中所见的属性在属性窗口中设置，其他属性和功能必须用程序代码实现1.计算圆面积1）编辑状态如图T1；2）初始运行状态如图T2；文本框TEXT1用于接收用户输入圆的半径，文本框TEXT1的初值为0,（通过程序代码实现）3）当用户输入圆的半径后，鼠标单击“计算”按钮（COMMAND1）,判断输入的数据是否正确；4）如果输入的半径小于等于0,则用信息窗口提示错误，如图T3所示信息；5）如果输入的数据正确，则将该圆的面积在文本框TEXT2中显示，如图T4；6）单击“退出”按钮（COMMAND2）时关闭表单。图1设计界面 图2运行时界面属性窗口设置属性窗口设置：FORM 1_CAPTION=0THISFORM.TEXT2.VALUE=PI()*R*RELSEMESSAGEBOX,半径必须大于零，)ENDIFCOMMAND2 的 CLICK 事件THISFORM.RELEASE2.我的第一个面向对象程序要求：如图1和图2所示，编制一个表单完成如下功能：当用户输入姓名和学号，按下“确定”按 钮后，窗口中显示“这是XX的第一个面向对象程序!第3页共77页Vfp下例题汇总图1设计界面 图2运行时界面属性窗口设置属性窗口设置：FORM 的第一个面向对象程序LABEL1_CAPTION=请输入你的姓名COMMAND 1_CAPTION=退出事件代码TEXT1 的 VALID 事件thisform.text 1.value=这是+allt(thisform.text 1.value)+的第一个面向对象程 序！C0MMAND2 的 CLICK 事件THISFORM.RELEASE3.计算三角形面积要求：如图1、图2和图3所示，编制一个表单完成如下功能：文本框TEXT1、TEXT2、TEXT3用于 接收用户输入三角形的边长，文本框TEXT1、TEXT2、TEXT3的初值为0（通过程序代码实现），按下“判断计算”按钮后，如果用户数据能构成三角形，则窗口中显示对应信息和面积值。如果不能构成三 角形，则显示“不能构成三角形”。图1设计界面 图2运行时界面 图3运行时界面属性窗口设置属性窗口设置：FORM1_CAPTION=求三角形面积LABEL1_CAPTION=请输入三角形的三个边长LABEL2_CAPTION=ALABEL3_CAPTION=BLABEL4_CAPTION=CLABEL5 cApTION=COMMAND l_CAPTION=lJ 断计算事件代码FORM1的INIT事件THISFORM.TEXT1.VALUE=0第4页共77页Vfp下例题汇总4.计算一元二次方程的根THISFORM.TEXT2.VALUE=0THISFORM.TEXT3.VALUE=0COMMAND 1 的 CLICK 事件A=THISFORM.TEXT LVALUEB=THISFORM.TEXT2.VALUEC=THISFORM.TEXT3.VALUEIF A0 AND B0 AND C0 AND A+BC AND A+OB AND B+OAS=(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.RELEASE要求：如图1、图2和图3所示，编制一个表单完成如下功能：文本框TEXT1、TEXT2、TEXT3的 初值都为0（必须用程序代码实现），TEXT4、TEXT5显示为只读。用户输入分别输入某一元二次方 程的三个系数A、B、C,按下“计算”按钮后，在对应的文本框中显示方程的根。如果A=0,用消 息框显示方程无意义。如果方程无实数根，也用消息框提示。图3运行时界面图2运行时界面图1设计界面属性窗口设置属性窗口设置：FORM1_CAPTION=一元二次方程求解LABEL 1_CAPTION=ALABEL2_CAPTION=BLABEL3_CAPTION=CLABEL4 cApTION=X 1=LABEL5_CAPTION=X2=COMMAND 1_CAPTION=计算COMMAND2_CAPTION=jM 出事件代码FORM1的INIT事件THISFORM.TEXT1.VALUE=0THISFORM.TEXT2.VALUE=0THISFORM.TEXT3.VALUE=0COMMAND 1 的 CLICK 事件A=THISFORM.TEXT1.VALUEB=THISFORM.TEXT2.VALUEC=THISFORM.TEXT3.VALUE第5页共77页Vfp下例题汇总IFA=0MESSAGEBOX,方程无意义。ELSEIF B*B-4*A*C0MESSAGEBOX。方程无实根，)ELSES=SQRT(B*B-4*A*C)THISFORM.TEXT4.VALUE=(-B+S)/2*ATHISFORM.TEXT5.VALUE=(-B-S)/2*AENDIFENDIFCOMMAND2 的 CLICK 事件THISFORM.RELEASE5.登录窗口1)编辑状态如图1;初始运行状态如图2；2)正确的用户名为“USER”、口令为“SQL”，都是大写字母；3)在输入口令时不显示口令内容，口令中的字符用“”代替；4)在输入用户名和口令后，单击“登录”按钮(COMMAND 1)进行验证，如果用户名和口令都正确,用信息窗口显示“登录成功二否则显示“用户名或口令错误”；5)单击“退出”按钮(COMMAND2)时关闭表单。图1编辑时界面 图2运行时界面属性窗口设置属性窗口设置：FORM 1_CAPTION=登录窗 口 LABEL 1_CAPTION=用户名 LABEL2 cApTION=口 令 COMMAN D1 _C APTION=登录 COMMAND2_CAPTION=iH 出事件代码FORM1的INIT事件THISFOMR.TEXT2.PASSWORDCHAR=*COMMAND 1 的 CLICK 事件IF ALLT(THISFORM.TEXT1.VALUE)=USER/AND;ALLT(THISFORM.TEXT2.VALUE)=,SQLMESSAGEBOX。登录成功，)ELSEMESSAGEBOX。用户名或口令错误，)ENDIFC0MMAND2 的 CLICK 事件THISFORM.RELEASE第6页共77页Vfp下例题汇总6.口令验证要求：如图1和图2、图3所示，编制一个表单完成如下功能：当用户在文本框中输入正确口令后,在窗口中将显示“正确”，否则显示“错误二口令为学生表中的“姓名”字段的值。图1设计界面 图2运行时界面图3运行时界面属性窗口设置属性窗口设置：FORM 1_CAPTION=口 令验证窗口 LABEL 1_CAPTION=请输入 U 令 LABEL2_CAPTION=数据环境“学生”表事件代码F0RM1的INIT事件THISFOMR.TEXT2.PASSWORDCHAR*，TEXT1 的 VALID 事件XM=ALLT(THISFORM.TEXT1.VALUE)LOCATE FOR ALLT(姓名)=XMIF FOUND()THISFORM.LABEL2.CAPTION士欢迎使用系统，ELSETHISFORM.LABEL2.CAPTION=M 令错误 ENDIF7.调色板要求：如图1和图2所示，编制一个表单完成如下功能：当用户在按下窗口中的按钮后，表单窗口将 显示对应的背景颜色。第7页共77页Vfp下例题汇总图1设计界面 图2运行时界面属性窗口设置属性窗口设置：FORM 1 _C APTION=调色板 COMMAND 1_CAPTION=COMMAND2 cApTIONW COMMAND3_CAPTION=MCOMMAND4 cApTION=白事件代码COMMAND 1 的 CLICK 事件THISFORM.BACKCOLOR=RGB(0,0,0)COMMAND2 的 CLICK 事件THISFORM.BACKCOLOR=RGB(255,0,0)COMMANDS 的 CLICK 事件THISFORM.BACKCOLOR=RGB(255,255,0)COMMAND4 的 CLICK 事件THISFORM.BACKCOLOR=RGB(255,255,2550)8.输入学号查询平均成绩要求：1）如图1、图2和图3所示，输入学号后，程序查询成绩表中是否存在该同学的记录，如果存在，则计算该通许成绩表中所有成绩的平均值，并显示；如果不存在，则显示“该同学没参加考试”的消息框。2）显示平均成绩的文本框只读（要求用代码实现）。图1设计界面 图2运行时界面 图3运行时界面属性窗口设置属性窗口设置：FORM 1_CAPTION=查询平均成绩 LABEL1_CAPTION=请输入学号 LABEL2_CAPTION均成绩 COMMAND 1cApTION=确定 COMMAND2_CAPTION=jM 出数据环境“成绩”表第8页共77页Vfp下例题汇总事件代码FORM1的INIT事件SET TALK OFFTHISFORM.TEXT2.READONLY=.T.COMMAND 1 的 CLICK 事件N=ALLTRIM(THISFORM.TEXT1.VALUE)LOCATE FOR ALLTRIM(学号)=NIF FOUND()AVERAGE 成绩 TOK FOR 学号=NTHISFORM.TEXT2.VALUE=KELSETHISFORM.TEXT2.VALUE-MESSAGEBOX(该同学没参加考试)ENDIFCOMMAND2 的 CLICK 事件SET TALK ONTHISFORM.RELEASE9.查询并显示指定学生的考试结果要求：（1）编制一个表单实现在“成绩”表中查询考试结果。（2）在textl中输入学号，如果成绩表没 有该同学成绩，则用消息框显示“该同学没参加考试二（3）如果该同学的成绩没有小于60的，则在 text2中显示“考试课程全部通过”，否则显示“下学期开学前补考二（4）显示平均成绩的文本框只 读（要求用代码实现）。图1-设计图 图2-运行效果图 图2-运行效果图属性窗口设置属性窗口设置：FORM 1_CAPTION=查询考试结果 LABEL1_CAPTION=请输入学号 LABEL2 cApTION，试结果 COMM AND 1 _C APTION=定 COMMAND2_CAPTION=il 出数据环境“成绩”表事件代码FORM1的INIT事件THISFORM.TEXT2.READONLY=.T.COMMAND 1 的 CLICK 事件N=ALLTRIM(THISFORM.TEXT1.VALUE)LOCATE FOR ALLTRIM(学号L=NIF EOF()THISFORM.TEXT2.VALUE=MESSAGEBOX(该同学没参加考试)第9页共77页Vfp下例题汇总ELSELOCATE FOR ALLTRIM(学号)=N AND 成绩60IF EOF()THISFORM.TEXT2.VALUE=考试课程全部通过”ELSETHISFORM.TEXT2.VALUE=下学期开学前补考”ENDIFENDIFCOMMAND2 的 CLICK 事件THISFORM.RELEASE10.查询并显示指定班级的男女生人数要求：（1）编制一个表单，实现在“学生”表中统计班级的男、女生人数的功能。（2）程序运行后，在 textl中输入班级代号，如果学生表中没有该班级的学生，则消息框提示“该班级不存在”。（3）如果 学生表中有该班级的同学，则统计该班级的男、女生人数，并分别显示在text2和text3中。（4）text2 和text3只读。（要求用代码实现）。图1-设计图 图2-运行效果图属性窗口设置属性窗口设置：FORM 1_CAPTION=班级信息查询 LABEL1_CAPTION级代号 LABEL2 cAp!10Y男生人数 LABEL3 cApTION总生人数 COMMAN D1 _C 人口=确 定COMMAND2_CAPTION=jM 出数据环境“学生”表事件代码FORM1的INIT事件SET TALK OFFTHISFORM.TEXT2.READONLY=.T.THISFORM.TEXT3.READONLY=.T.COMMAND 1 的 CLICK 事件N=ALLTRIM(THISFORM.TEXT1.VALUE)LOCATE FOR LEFT(学号,3)=NIF EOF()THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=MESSAGEBOX(该班级代号不存在)ELSE第10页共77页Vfp下例题汇总COUNT TO K FOR LEFT（学号,3）=N AND 性别COUNT TO L FORLEFT（学号,3）=NAND!性别THISFORM,TEXT2.VALUE=KTHISFORM.TEXT3.VALUE=LENDIFCOMMAND2 的 CLICK 事件SET TALK ONTHISFORM.RELEASE11.查询并显示指定班级的奖学金总额要求：（1）编制一个表单，实现在“学生”表中统计指定班级的奖学金总额。（2）程序运行后，在textl 中输入班级代号，如果学生表中没有该班级的学生，则消息框提示“该班级不存在”。（3）如果学生 表中有该班级的同学，则统计该班级的奖学金总额，并显示在text2中。（4）text2只读。（要求用代 码实现）。图L设计图 图2-运行效果图输入班级代号国一奖学金总额|85.00II：确定:二I 退出班级奖学金查询 口回区图3-运行效果图 图4-运行效果图属性窗口设置属性窗口设置：FORM 1_CAPTION=班级奖学金查询 LABEL 1_CAPTION=输入班级代号 LABEL2_CAPTION=奖学金总额 COMM AND 1 _C APTION=定 COMMAND2_CAPTION=il 出数据环境“学生”表事件代码FORM1的INIT事件SET TALK OFFTHISFORM.TEXT2.READONLY=.T.COMMAND 1 的 CLICK 事件N=ALLTRIM（THISFORM.TEXT1.VALUE）第11页共77页Vfp下例题汇总LOCATE FOR LEFT（学号,3）=NIF EOF（）THISFORM.TEXT2.VALUE=MESSAGEBOX（该班级代号不存在）ELSESUM 奖学金 TO K FOR LEFT（学号3=NTHISFORM.TEXT2.VALUE=KENDIFC0MMAND2 的 CLICK 事件SET TALK ONTHISFORM.RELEASE12.查询并显示指定课程的平均成绩要求：（1）编制一个表单，实现在“成绩”表中统计指定课程的平均成绩。（2）程序运行后，在textl 中输入课程号，如果课程表中没有该课程的记录，则消息框提示“该课程成绩没有输入”。（3）如果 学生表中有该课程的记录，则统计该课程的平均成绩，并显示在text2中。（4）text2只读。（要求用 代码实现）。查询课程平均成绩 0叵I区I输入课程号T平均成绩|确定|退出属性窗口设置属性窗口设置：FORM1_CAPTION=查询课程平均成绩LABEL1_CAPTION=输入课程号LABEL2 cAp!1（=平均成绩COMMAN D1 C 人口=确定COMMAND2_CAPTION=il 出数据环境“成绩”表第12页共77页Vfp下例题汇总事件代码FORM1的INIT事件SET TALK OFFTHISFORM.TEXT2.READONLY=.T.COMMAND 1 的 CLICK 事件N=ALLTRIM（THISFORM.TEXT1.VALUE）LOCATE FOR ALLTRIM（课程号）=NIF EOF（）THISFORM.TEXT2.VALUE=MESSAGEBOX（该课程成绩没有输入）ELSEAVERAGE FOR ALLTRIM（课程号）-N 成绩 TOKTHISFORM.TEXT2.VALUE=KENDIFCOMMAND2 的 CLICK 事件SET TALK ONTHISFORM.RELEASE13.学生信息表查询要求：如图1和2所示，编制一个表单完成如下功能：1）当用户在文本框中输入学号，程序在学生 表中查找对应记录，如果记录存在，则显示对应学生信息，如果就不存在，则提示“你所查找的学 生并不存在!2）在文本框的valid事件中判断。图1-设计图 图2-运行效果图图3-运行效果图 图4-运行效果图属性窗口设置属性窗口设置：FORM1_CAPTION=学生表信息查询输入学生学号第13页共77页Vfp下例题汇总LABEL2 cApTION=LABEL3 cApTION=姓名LABEL4_CAPTION=性别LABEL5 cApTION=出生年月LABEL6_CAPTION=奖学金TEXT2_READONLY=.T.TEXT3_READONLY=.T.TEXT4_READONLY=.T.TEXT5_READONLY=.T.数据环境“学生”表事件代码FORM1的INIT事件THIS.SETALL(VISIBLE,.F.)THIS.LABELl.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=出生年月THISFORM.TEXT5.VALUE=奖学金ELSETHISFORM.SETALL(VISIBLE,.F.)THISFORM.LABEL l.VISIBLE=.T.THISFORM.TEXT1.VISIBLE=.T.THISFORM.LABEL2.VISIBLE=.T.THISFORM.LABEL2.CAPTION=您所指定的学生并不存在!ENDIF14.生成数据并统计要求：如图1和2所示，在文本框中输入一个起始数，则在编辑框中显示20个从起始数开始的并 且是3的倍数的正整数，而且要求这20个数字的个位数字都是3,利用标签输出这20个数的和。要求编写Forml的init事件、Textl的valid事件、command 1的click事件。第14页共77页Vfp下例题汇总图1-设计图 图2-运行效果图 图3-运行效果图15.矩阵要求：如图1和图2所示，文本框中输入110的数据，单击显示按钮，在编辑框中显示对应行数 和列数的矩阵。属性窗口设置属性窗口设置：FORM 1_CAPTION=生成数据并统计 LABEL1_CAPTION=输入开始值 LABEL2 cApTION=COMMAN D1 _C APTION=统计EDIT 1 RE ADON LY=.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(13)ENDIFA=A+1ENDDOTHISFORM.EDIT1,VALUE=SCOMMAND 1 的 CLICK 事件N=1S=0A=VAL(THISFORM.TEXT LVALUE)DO WHILE N71=选择一项 COMMAN D2 cAp11=退还一项数据环境“学生,表事件代码FORM1的INIT事件SCANTHIS.LIST1.ADDITEM(姓名)ENDSCANCOMMAND 1 的 CLICK 事件THISFORM.LIST2.ADDITEM(THISFORM.LIST1.VALUE)THISFORM.LIST1.REMOVE ITEM(THISFORM.LIST1.LISTINDEX)C0MMAND2 的 CLICK 事件THISFORM.LIST1.ADDITEM(THISFORM.LIST2.VALUE)THISFORM.LIST2.REMOVEITEM(THISFORM.LIST2.LISTINDEX)18.数据转移操作要求：如图1和2所示，编制一个表单列表框中信息项的互传操作。第17页共77页Vfp下例题汇总图1-设计图 图2-运行效果图 图3-运行效果图巾 1tne 1u II一 ESim7 1，a 食11RFT-1lr RK 4 a19.输入班级号显示该班同学名单要求：如图1和2所示，编制一个表单完成如下功能：1）当用户在文本框中输入班级号，程序在学生 表中查找对应记录，如果记录存在，则显示对应学生姓名，如果就不存在，则提示“该班级不存在！属性窗口设置属性窗口设置：FORM 1_CAPTION=数据转移操作LABEL 1 数据列表LABEL2_CAPTION=目标数据列表 COMM AND 1 C APTION=右移一项 COMMAN D2_C 人11=左 移一项 COMMAND3 cApTION-部右移 COMMAN D4_CAPTION，部左移数据环境“学生”表事件代码FORM1的INIT事件SCANTHIS.LIST1.ADDITEM(姓名)ENDSCANCOMMAND 1 的 CLICK 事件THISFORM.LIST2.ADDITEM(THISFORM.LIST1.VALUE)THISFORM.LIST1.REMOVE ITEM(THISFORM.LIST1.LISTINDEX)COMMAND2 的 CLICK 事件THISFORM.LIST1.ADDITEM(THISFORM.LIST2.VALUE)THISFORM.LIST2.REMOVEITEM(THISFORM.LIST2.LISTINDEX)COMMANDS 的 CLICK 事件THISFORM.LIST2.CLEARSCANTHISFORM.LIST2.ADDITEM(姓名)ENDSCANTHISFORM.LIST1.CLEARCOMMAND4 的 CLICK 事件THISFORM.LIST1.CLEARSCANTHISFORM.LIST1.ADDITEM(姓名)ENDSCANTHISFORM.LIST2.CLEAR第18页共77页Vfp下例题汇总图2-运行效果图图3-运行效果图图1-设计图属性窗口设置属性窗口设置：FORM1_CAPTION=输入班级号显示该班学生名单LABEL1_CAPTION=请输入班级号LABEL2_CAPTION=班级学生名单COMMAN D1 C 人口=确定COMMAND2_CAPTION=il 出数据环境“学生”表事件代码COMMAND 1 的 CLICK 事件THISFORM.LIST1.CLEARBJH=ALLTRIM（THISFORM.TEXT LVALUE）LOCATE FOR LEFT（学号,3）=BJHIF FOUND（）SCAN FOR LEFT（学号,3）=BJHTHISFORM.LIST1.ADDITEM（姓名）ENDSCANELSEMESSAGEBOX。该班级不存在，）ENDIFCOMMAND2 的 CLICK 事件THISFORM.RELEASE20.文字设置(P264)要求：如图1和2所示，编制一个表单，通过选择三个组合框中的选项来改变标签中文字的字体、字 号及颜色。Combol中数据项为“宋体，隶书，黑体，幼圆”；Combo2中数据项为“10,19,28,45,54；Combo3 中数据项为“红色，绿色，蓝色，黄色”。三个组合框都设为“下拉列表框”。第19页共77页Vfp下例题汇总图1-设计图 图2-运行效果图 图3-运行效果图属性窗口设置属性窗口设置：FORM ICAPTIONW字设置LABEL 1_CAPTION=组合框事件代码FORM1的IN IT事件THISFORM.COMBO 1,STYLE=2THISFORM.COMBO2.STYLE=2THISFORM.COMBO3.STYLESTHISFORM.COMBO l.ROWSOURCETYPE=lTHISFORM.COMBO 1.ROWSOURCE=宋体，隶书，黑体，幼 圆”THISFORM.COMBO2.ROW SOURCETY PE=1THISFORM.COMBO2.ROWSOURCE=10,19,28,45,54THISFORM.COMBO3.ROWSOURCETYPE=1THISFORM.COMBO3.ROWSOURCE=红色，绿色，蓝色，黄色”COMBO 1 的 INTERACTIVECHANGE 事件THISFORM.LABEL 1.FONTNAME=THIS.VALUECOMBO2 的 INTERACTIVECHANGE 事件THISFORM.LABEL 1.FONTSIZE=VAL(THIS.VALUE)COMBO3 的 INTERACTIVECHANGE 事件DO CASECASE THIS.VALUE=红色THISFORM.LABEL1.FORECOLOR=RGB(255,0,0)CASE THIS.VALUE=绿色THISFORM.LABEL1.FORECOLOR=RGB(0,255,0)CASE THIS.VALUE=蓝色THISFORM.LABEL l.FORECOLOR=RGB(0,0,255)CASE THIS.VALUE=黄色THISFORM.LABEL1.FORECOLOR=RGB(255,255,0)ENDCASE21.查询并显示指定班级的奖学金总额要求：如图所示，编制一个表单完成如下功能：（1）当用户在组合框中输入或选择班级后，按回车件 或者单击确定按钮时，表单将显示对应班级的奖学金总额。（2）如果学生表中没有该班级的学生，则消息框提示“该班级不存在。（3）textl只读（必须用程序代码实现）图1-设计图 图2-运行效果图第20页共77页Vfp下例题汇总）查询并显示指定班级奖学金总额 匚1叵1区1、T 二查询并显示指定班级奖学金总额 匚叵区I请输入或选择班级二奖学金总额：请输入或选择班级二奖学金总额：1_ _|i：；E：j|图3-运行效果图 图4-运行效果图-属性窗口设置属性窗口设置：FORM1_CAPTION=查询并显示指定班级奖学金总额LABEL 1 _CAPTION=请输入或选择班级号：LABEL2_CAPTION=奖学金总额：COMMAN D1 C 人口=确定COMMAND2_CAPTION=M 出数据环境“学生”表事件代码F0RM1的INIT事件SET TALK OFFINDEX ON LEFT（学号,3）TO INXH UNIQUESCANTHIS.COMBO 1.ADDITEM（LEFT（学号,3）ENDSCANSET INDEX TOTHISFORM.TEXT1,READONLY=.T.COMMAND 1 的 CLICK 事件BJH=ALLTRIM（THISFORM.COMBO 1.DISPL AYVALUE）LOCATE FOR LEFT（学号为=BJHIF FOUND（）SUM 奖学金 TO MJXJ FOR LEFT（学号,3）=BJHTHISFORM.TEXT1,VALUE=MJXJELSETHISFORM.TEXT1.VALUEDMESSAGEBOXC该班级不存在！）ENDIFCOMMAND2 的 CLICK 事件THISFORM.RELEASE22.查询并显示指定班级的学生名单要求：如图所示，编制一个表单完成如下功能：1）当用户在组合框中输入或选择班级号，程序在学 生表中查找对应记录，如果记录存在，则显示对应学生姓名，如果就不存在，则用消息框提示“该 班级不存在！第21页共77页Vfp下例题汇总图1-设计图 图2-运行效果图 图3-运行效果图 图4运行效果图属性窗口设置属性窗口设置：FORM1_CAPTION=查询并显示指定班级奖学金总额LABEL 1 _CAPTION=请输入或选择班级号：LABEL2_CAPTION=奖学金总额：COMMAN D1 C 人口=确定COMMAND2_CAPTION=M 出数据环境“学生”表事件代码F0RM1的INIT事件INDEX ON LEFT（学号,3）TO INXH UNIQUE SCANTHIS.COMBO1.ADDITEM（LEFT（学号,3）ENDSCANSET INDEX TOCOMMAND 1 的 CLICK 事件THISFORM.LIST1.CLEARBJH=ALLTRIM（THISFORM.COMBO1.DISPLAY VALUE）LOCATE FOR LEFT（学号,3）=BJHIF FOUND（）SCAN FOR LEFT（学号,3）=BJHTHISFORM.LIST1.ADDITEM（姓名）ENDSCANELSEMESSAGEBOXC该班级不存在，）ENDIFCOMMAND2 的 CLICK 事件THISFORM.RELEASE23.命令按钮组调色板要求：当用户按了命令按钮组中的某个按钮后，表单的背景色就会变为按钮指定的对应颜色。第22页共77页Vfp下例题汇总图2-运行效果图图3-运行效果图图1-设计图属性窗口设置属性窗口设置：FORM1_CAPTION=命令按钮组调色板COMMANDGROUP1 BUTT0NC0UNT=5COMMANDGROUP1_COMMAND1_CAPTION总COMMANDGROUP 1 COMM AND2C APTION=COMMANDGROUP 1 COMM AND3C APTION=COMMANDGROUP1_COMMAND4 cApTION=M COMMANDGROUP 1 COMMAND5C APTION=白事件代码C0MMANDGR0UP1 的 CLICK 事件DO CASECASE 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,255,255)ENDCASE24.选项按钮组调色板要求：当用户按了选项按钮组中的某个按钮后，表单的背景色就会变为按钮指定的对应颜色。r Foral选项按钮组调色板(3同解二选项按钮组调色板 匚3叵1区1Option1 0ption2 0ption3 0ption4 0ption5|&绿下蓝不黑白.0红 绿。蓝。黑。白：、图i-设计图图2-运行效果图图3-运行效果图属性窗口设置属性窗口设置：OPTIONGROUP1 BUTTONCOUNT=5事件代码FORM1的INIT事件THIS.CAPTION=选项按钮组调色板”C=红绿蓝黑白”FOR 1=1 TO 5THIS.OPTIONGROUP1.BUTTONSI.CAPTION=SUBSTR(C,2*1-1,2)ENDFOROPTIONGROUP1 的CLICK事件DO CASECASE THIS.VALUE=1第23页共77页Vfp下例题汇总THISFORM.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,255,255)ENDCASE25.根据边长计算正方体体积、表面积和总边长要求：设计一个根据边长计算正方体体积、表面积和总边长的表单。编辑状态如图，选项按钮组的名 称为Optiongroupl；初始运行状态如图，文本框TEXT1中的值为数值型；在TEXT 1中输入某正方体 的边长，通过选项按钮选择计算的结果是体积、表面积还是总边长，然后，单击“计算”按钮，通过 标签LABEL2显示计算结果，单击“退出”按钮时程序结束。图1-设计图 图2-运行效果图 图3-运行效果图属性设置属性窗口设置：LABEL2 cApTION=OPTIONGROUP1 BUTTONCOUNT=3事件代码FORM1的INIT事件THISFORM.CAPTION=，正方体计算，THISFORM.TEXT1.VALUE=0THISFORM.LABEL1.CAPTION一请输入正方体边长，THISFORM.OPTIONGROUP1.OPTION 1.CAPTION-总边长THISFORM.OPTIONGROUP1.OPTION2.CAPTION表面积THISFORM.OPTIONGROUP l.OPTION3.CAPTION=体积THISFORM.COMMAND1.CAPTIONT计算THISFORM.COMMAND2.CAPTION=退出COMMAND 1 的 CLICK