发布时间 : 星期日 文章vfp下例题汇总更新完毕开始阅读acff0def19e8b8f67c1cb97b
Vfp下例题汇总
CASE B=2 THISFORM.LABEL2.CAPTION=?表面积?+STR(6*A*A) CASE B=3 THISFORM.LABEL2.CAPTION=?体积?+STR(A*A*A) ENDCASE COMMAND2的CLICK事件 THISFORM.RELEASE
26． 根据边长计算正方体体积、表面积和总边长
要求：设计一个根据边长计算正方体体积、表面积和总边长的表单。编辑状态如图，命令按钮组的名称为commandgroup1；初始运行状态如图，文本框TEXT1中的值为数值型；在TEXT1中输入某正方体的边长，通过选项按钮选择计算的结果是体积、表面积还是总边长，然后，单击“计算”按钮，通过标签LABEL2显示计算结果，单击“退出”按钮时程序结束。
图1-设计图 图2-运行效果图 图3-运行效果图
属性设置 属性窗口设置： 事件 FORM1 的INIT事件 LABEL2_CAPTION=?? COMMANDGROUP1_BUTTONCOUNT=3 代码 THISFORM.CAPTION=?正方体计算? THISFORM.TEXT1.VALUE=0 THISFORM.LABEL1.CAPTION=?请输入正方体边长? THISFORM.COMMANDGROUP1.COMMAND1.CAPTION=?总边长? THISFORM. COMMANDGROUP1.COMMAND2.CAPTION=?表面积? THISFORM. COMMANDGROUP1.COMMAND3.CAPTION=?体积? R=THISFORM.TEXT1.VALUE X1=THIS.VALUE X2=\正方体\DO CASE CASE X1=1 THISFORM.LABEL2.CAPTION=X2+\周长=\ CASE X1=2 THISFORM.LABEL2.CAPTION=X2+\表面积=\ CASE X1=3 THISFORM.LABEL2.CAPTION=X2+\体积=\ENDCASE COMMANDGROUP1的CLICK事件 第 25 页 共 77 页
Vfp下例题汇总
27． 统计学生平均成绩或课程平均成绩
要求：统计学生平均成绩或课程平均成绩。编辑状态如图，选项按钮组的名称为Optiongroup1；初始运行状态如图，在TEXT1中输入某学号或课程号，通过选项按钮选择输入的是学号还是课程号，单击“计算”按钮，通过TEXT2显示计算结果，单击“退出”按钮时程序结束。
要求： 1)编辑状态图中所见的属性在属性窗口中设置，其他属性和功能必须用程序代码实现；
图1-设计图 图2-运行效果图
图3-运行效果图 图4-运行效果图
属性窗口设置 属性窗口设置： FORM1_CAPTION=统计平均成绩 LABEL1_CAPTION=输入学号或课程号 LABEL2_CAPTION=平均成绩 OPTIONGROUP1_OPTION1_CAPTION=输入学号 OPTIONGROUP1_OPTION 2_CAPTION=输入课程号 COMMAND1_CAPTION=确定 COMMAND2_CAPTION=退出 OPTIONGROUP1_BUTTONCOUNT=2 “成绩”表 事件 FORM1的INIT事件 代码 SET TALK OFF THISFORM.TEXT2.READONLY=.T. 第 26 页 共 77 页
数据环境 Vfp下例题汇总
COMMAND1的CLICK事件 S=ALLT(THISFORM.TEXT1.VALUE) IF THISFORM.OPTIONGROUP1.VALUE=1 LOCATE FOR 学号= =S IF FOUND() AVERAGE 成绩 TO PJ FOR 学号= =S THISFORM.TEXT2.VALUE=PJ ELSE THISFORM.TEXT2.VALUE='没有这个同学的成绩' ENDIF ELSE LOCATE FOR ALLT(课程号)= =S IF FOUND() AVERAGE 成绩 TO PJ FOR 课程号= =S THISFORM.TEXT2.VALUE=PJ ELSE THISFORM.TEXT2.VALUE='没有这个课程的成绩' ENDIF ENDIF SET TALK ON THISFORM.RELEASE COMMAND2的CLICK事件
28． 字体格式预览
要求： 1) 文字信息从键盘输入至文本框； 2) 选项按钮分别用于设置文本框中的字体“宋体”、“楷体”和“隶书”； Combo1中数据项为“10,19,28,45,54”；list1中数据项为“红色,绿色,蓝色,黄色”。 3) 复选框分别设置或取消文本框中字体的“加粗”、“倾斜”和“下划线”，如图。
要求： 1)编辑界面图中所示的属性在属性窗口中设置，其他属性和功能必须用程序代码实现；2)编写选项按钮组OPTIONGROUP1的CLICK事件代码； 3)编写list1和combo1的INTERACTVIECHANGE事件代码；3)编写3个复选框的CLICK事件代码； 4)表单中不允许使用IF语句，只允许使用DO--CASE语句；5)属性设置不允许使用SETALL方法。
图1-设计图 图2-运行效果图 图3-运行效果图
属性窗口设置 属性窗口设置： FORM1_CAPTION=字体格式预览 第 27 页 共 77 页
Vfp下例题汇总
OPTIONGROUP1_BUTTONCOUNT=3 OPTIONGROUP1_OPTION1_CAPTION=宋体 OPTIONGROUP1_OPTION2_CAPTION=楷体 OPTIONGROUP1_OPTION3_CAPTION=隶书 CHECK1_CAPTION=加粗 CHECK2_CAPTION=倾斜 CHECK3_CAPTION=下划线 事件 代码 THISFORM.COMBO1.ROWSOURCETYPE=1 THISFORM. COMBO1.ROWSOUR=? 10,19,28,45,54? THISFORM.LIST1.ROWSOURCETYPE=1 THISFORM.LIST1.ROWSOUR=?红色,绿色,蓝色,黄色? DO CASE CASE THIS.VALUE=1 THISFORM.EDIT1.FONTNAME=?宋体? CASE THIS.VALUE=2 THISFORM. EDIT1.FONTNAME=?黑体? CASE THIS.VALUE=3 THISFORM. EDIT1.FONTNAME=?隶书? ENDCASE THISFORM.EDIT1.FONTSIZE=THIS.DISPLAYVALUE FORM1的INIT事件 OPTIONGROUP1的CLICK事件 COMBO1的INTERACTIVECHANGE事件 LIST1的INTERACTIVECHANGE事件 DO CASE CASE THIS. DISPLAYVALUE =?红色? THISFORM.EDIT1.FORECOLOR=RGB(255,0,0) CASE THIS. DISPLAYVALUE =?绿色? THISFORM. EDIT1.FORECOLOR=RGB(0,255,0) CASE THIS. DISPLAYVALUE =?蓝色? THISFORM. EDIT1.FORECOLOR=RGB(0,255) CASE THIS. DISPLAYVALUE =?黄色? THISFORM. EDIT1.FORECOLOR= RGB(255,255,0) ENDCASE THISFORM. EDIT1.FONTBOLD=THIS.VALUE THISFORM. EDIT1.FONTITALIC= THIS.VALUE THISFORM. EDIT1.FONTUNDERLINE= THIS.VALUE CHECK1的CLICK事件 CHECK2的CLICK事件 CHECK3的CLICK事件 29． 信息窗
要求：编制一个信息显示(时钟)的界面，显示当前时间(每秒动态显示跳动一次)，并将表单的背景颜色设置为蓝、绿色自动变换(与时间同步切换)
第 28 页 共 77 页