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第1页共77页Vfp下例题汇总序号题目页数41浏览表文件“学生.dbf 4142自动浏览表文件“学生.dbf 4
3、343抽奖表单4344三次口令验证4545指定表文件字段浏览4646选页调色板4747学籍信息自动浏览4848学籍信息浏览4949学生表内容自动浏览(绑定)5050学生表内容按钮组浏览(绑定)5151学生表信息查询(文本框输入)5352学生表信息查询(列表框输入)(绑定)5453学生表信息查询(组合框输入)(绑定)5554输入学号或姓名查询平均成绩5755指定姓名查询平均成绩5856指定课程名查询平均成绩5957指定班级查询平均成绩5958学生成绩信息查询6059学生或课程成绩信息查询6160添加成绩6361学生成绩信息查询(2个表格)6462学生成绩信息查询(1个列表框1个表格)6563课程
4、成绩信息查询(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)当用户输入圆的半径后,鼠标单击“计
5、算”按钮(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所示,编制一个表单完成如下功能:当
6、用户输入姓名和学号,按下“确定”按 钮后,窗口中显示“这是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所示,编制一个表单完成如下功能:文本
7、框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 断
8、计算事件代码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.C
9、APTION=,能构成三角形,面积为:,+;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运
10、行时界面图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=TH
11、ISFORM.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)
12、在输入口令时不显示口令内容,口令中的字符用“”代替;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.PASSWORD
13、CHAR=*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运行时界
14、面属性窗口设置属性窗口设置: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所示,编制一个表单
15、完成如下功能:当用户在按下窗口中的按钮后,表单窗口将 显示对应的背景颜色。第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 事件THISFO
16、RM.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_CAP
17、TION均成绩 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(该同学没参加
18、考试)ENDIFCOMMAND2 的 CLICK 事件SET TALK ONTHISFORM.RELEASE9.查询并显示指定学生的考试结果要求:(1)编制一个表单实现在“成绩”表中查询考试结果。(2)在textl中输入学号,如果成绩表没 有该同学成绩,则用消息框显示“该同学没参加考试二(3)如果该同学的成绩没有小于60的,则在 text2中显示“考试课程全部通过”,否则显示“下学期开学前补考二(4)显示平均成绩的文本框只 读(要求用代码实现)。图1-设计图 图2-运行效果图 图2-运行效果图属性窗口设置属性窗口设置:FORM 1_CAPTION=查询考试结果 LABEL1_CAPTION=请
19、输入学号 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 E
20、OF()THISFORM.TEXT2.VALUE=考试课程全部通过”ELSETHISFORM.TEXT2.VALUE=下学期开学前补考”ENDIFENDIFCOMMAND2 的 CLICK 事件THISFORM.RELEASE10.查询并显示指定班级的男女生人数要求:(1)编制一个表单,实现在“学生”表中统计班级的男、女生人数的功能。(2)程序运行后,在 textl中输入班级代号,如果学生表中没有该班级的学生,则消息框提示“该班级不存在”。(3)如果 学生表中有该班级的同学,则统计该班级的男、女生人数,并分别显示在text2和text3中。(4)text2 和text3只读。(要求用代码实现)
21、。图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
22、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)编制一个表单,实现在“学生
23、”表中统计指定班级的奖学金总额。(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
24、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
25、的 CLICK 事件SET TALK ONTHISFORM.RELEASE12.查询并显示指定课程的平均成绩要求:(1)编制一个表单,实现在“成绩”表中统计指定课程的平均成绩。(2)程序运行后,在textl 中输入课程号,如果课程表中没有该课程的记录,则消息框提示“该课程成绩没有输入”。(3)如果 学生表中有该课程的记录,则统计该课程的平均成绩,并显示在text2中。(4)text2只读。(要求用 代码实现)。查询课程平均成绩 0叵I区I输入课程号T平均成绩|确定|退出属性窗口设置属性窗口设置:FORM1_CAPTION=查询课程平均成绩LABEL1_CAPTION=输入课程号LABEL2 c
26、Ap!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.
27、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 cAp
28、TION=姓名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()THISF
29、ORM.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.生
30、成数据并统计要求:如图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=输入开始值 LABE
31、L2 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=退还一项数据环境“学生,表事
32、件代码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所示,编制
33、一个表单列表框中信息项的互传操作。第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=右移一项 COM
34、MAN 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)TH
35、ISFORM.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_CA
36、PTION=输入班级号显示该班学生名单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。该班级不存在,)E
37、NDIFCOMMAND2 的 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
38、事件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 的 INTER
39、ACTIVECHANGE 事件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.LABE
40、L 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 二查询并显示指定班级
41、奖学金总额 匚叵区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
42、)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.查询并显示指定班级的学
43、生名单要求:如图所示,编制一个表单完成如下功能:1)当用户在组合框中输入或选择班级号,程序在学 生表中查找对应记录,如果记录存在,则显示对应学生姓名,如果就不存在,则用消息框提示“该 班级不存在!第21页共77页Vfp下例题汇总图1-设计图 图2-运行效果图 图3-运行效果图 图4运行效果图属性窗口设置属性窗口设置:FORM1_CAPTION=查询并显示指定班级奖学金总额LABEL 1 _CAPTION=请输入或选择班级号:LABEL2_CAPTION=奖学金总额:COMMAN D1 C 人口=确定COMMAND2_CAPTION=M 出数据环境“学生”表事件代码F0RM1的INIT事件IND
44、EX 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 的 CLIC
45、K 事件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=
46、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(
47、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.OPTIONGROU
48、P1.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=5THISFO
49、RM.BACKCOLOR=RGB(255,255,255)ENDCASE25.根据边长计算正方体体积、表面积和总边长要求:设计一个根据边长计算正方体体积、表面积和总边长的表单。编辑状态如图,选项按钮组的名 称为Optiongroupl;初始运行状态如图,文本框TEXT1中的值为数值型;在TEXT 1中输入某正方体 的边长,通过选项按钮选择计算的结果是体积、表面积还是总边长,然后,单击“计算”按钮,通过 标签LABEL2显示计算结果,单击“退出”按钮时程序结束。图1-设计图 图2-运行效果图 图3-运行效果图属性设置属性窗口设置:LABEL2 cApTION=OPTIONGROUP1 BUTTO
50、NCOUNT=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