vfp下例题汇总

Vfp下例题汇总第1页共77页序号题目页数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时间信息平行移动40Vfp下例题汇总第2页共77页序号题目页数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学生表纪录添加75Vfp下例题汇总第3页共77页要求：编辑状态图中所见的属性在属性窗口中设置，其他属性和功能必须用程序代码实现1．计算圆面积1）编辑状态如图T1；2）初始运行状态如图T2；文本框TEXT1用于接收用户输入圆的半径，文本框TEXT1的初值为0，（通过程序代码实现）3）当用户输入圆的半径后，鼠标单击“计算”按钮(COMMAND1)，判断输入的数据是否正确；4）如果输入的半径小于等于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.VALUEIFR0THISFORM.TEXT2.VALUE=PI()*R*RELSEMESSAGEBOX(‘半径必须大于零’)ENDIFCOMMAND2的CLICK事件THISFORM.RELEASE2．我的第一个面向对象程序要求：如图1和图2所示，编制一个表单完成如下功能：当用户输入姓名和学号，按下“确定”按钮后，窗口中显示“这是××的第一个面向对象程序！”。Vfp下例题汇总第4页共77页图1设计界面图2运行时界面属性窗口设置属性窗口设置：FORM1_CAPTION=我的第一个面向对象程序LABEL1_CAPTION=请输入你的姓名COMMAND1_CAPTION=退出事件代码TEXT1的VALID事件thisform.text1.value=这是+allt(thisform.text1.value)+的第一个面向对象程序！COMMAND2的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=’’COMMAND1_CAPTION=判断计算事件代码FORM1的INIT事件THISFORM.TEXT1.VALUE=0Vfp下例题汇总第5页共77页THISFORM.TEXT2.VALUE=0THISFORM.TEXT3.VALUE=0COMMAND1的CLICK事件A=THISFORM.TEXT1.VALUEB=THISFORM.TEXT2.VALUEC=THISFORM.TEXT3.VALUEIFA0ANDB0ANDC0ANDA+BCANDA+CBANDB+CAS=(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、图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_CAPTION=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.VALUEVfp下例题汇总第6页共77页IFA=0MESSAGEBOX(‘方程无意义’)ELSEIFB*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)在输入用户名和口令后,单击“登录”按钮(COMMAND1)进行验证，如果用户名和口令都正确,用信息窗口显示“登录成功”。否则显示“用户名或口令错误”；5)单击“退出”按钮(COMMAND2)时关闭表单。图1编辑时界面图2运行时界面属性窗口设置属性窗口设置：FORM1_CAPTION=登录窗口LABEL1_CAPTION=用户名LABEL2_CAPTION=口令COMMAND1_CAPTION=登录COMMAND2_CAPTION=退出事件代码FORM1的INIT事件THISFOMR.TEXT2.PASSWORDCHAR=’*’COMMAND1的CLICK事件IFALLT(THISFORM.TEXT1.VALUE)==‘USER’AND;ALLT(THISFORM.TEXT2.VALUE)==’SQL’MESSAGEBOX(‘登录成功’)ELSEMESSAGEBOX(‘用户名或口令错误’)ENDIFCOMMAND2的CLICK事件THISFORM.RELEASEVfp下例题汇总第7页共77页6．口令验证要求：如图1和图2、图3所示，编制一个表单完成如下功能：当用户在文本框中输入正确口令后，在窗口中将显示“正确”，否则显示“错误”。口令为学生表中的“姓名”字段的值。图1设计界面图2运行时界面图3运行时界面属性窗口设置属性窗口设置：FORM1_CAPTION=口令验证窗口LABEL1_CAPTION=请输入口令LABEL2_CAPTION=’’数据环境“学生”表事件代码FORM1的INIT事件THISFOMR.TEXT2.PASSWORDCHAR=’*’TEXT1的VALID事件XM=ALLT(THISFORM.TEXT1.VALUE)LOCATEFORALLT(姓名)==XMIFFOUND()THISFORM.LABEL2.CAPTION='欢迎使用系统'ELSETHISFORM.LABEL2.CAPTION='口令错误'ENDIF7．调色板要求：如图1和图2所示，编制一个表单完成如下功能：当用户在按下窗口中的按钮后，表单窗口将显示对应的背景颜色。Vfp下例题汇总第8页共77页图1设计界面图2运行时界面属性窗口设置属性窗口设置：FORM1_CAPTION=调色板COMMAND1_CAPTION=黑COMMAND2_CAPTION=红COMMAND3_CAPTION=黄COMMAND4_CAPTION=白事件代码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所示，输入学号后，程序查询成绩表中是否存在该同学的记录，如果存在，则计算该通许成绩表中所有成绩的平均值，并显示；如果不存在，则显示“该同学没参加考试”的消息框。2)显示平均成绩的文本框只读（要求用代码实现）。图1设计界面图2运行时界面图3运行时界面属性窗口设置属性窗口设置：FORM1_CAPTION=查询平均成绩LABEL1_CAPTION=请输入学号LABEL2_CAPTION=平均成绩COMMAND1_CAPTION=确定COMMAND2_CAPTION=退出数据环境“成绩”表Vfp下例题汇总第9页共77页事件代码FORM1的INIT事件SETTALKOFFTHISFORM.TEXT2.READ