VFP部分(顺序和分支结构控件).ppt

程序流程图如图： 画出下列各题的流程图并写出它们的代码 1、输入一个整数，当为偶数时，求其立方；当为奇数时，求其平方。 2、火车货运价格为40kg以下每kg运价为0.65元，40kg以上超过40kg的部分按每公斤0.85元计算，今输入货物重量(kg)，求应付运费。 3、输入一个三位数，判断是否为水仙花数。（水仙花数是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身。例如：1^3 + 5^3 + 3^3 = 153） 4、输入一个五位整数，判断是否为回文数。如不是五位整数，给出错误提示。（如：98789, 这个数字正读是98789,倒读也是98789,正读倒读一样，就是回文数。） 5、输入X，求分段函数f(x)= 6、输入1~7之间的整数，并将其转换为相应星期几的英文单词来显示。如果不是1~7之间的整数，给出错误提示。 7、输入学生的分数，输出成绩的等级，其中，输入数据大于100或小于零，则提示输入有误，分数小于60为不及格， 60≤x 70为及格， 70≤x 90为良好， 90≤x ≤ 100为优秀。 参照实验指导书P96任务2和P99任务2实现上面的简单文字编辑器。字体combo的值有：黑体，宋体，幼圆，隶书，华文新魏，华文彩云。字号combo的值12~30. 例PROG5313:计算函数 Y= 2x+1 x0 0 x=0 2x2 x0 输入x x0? x=0? y=2*x+1 y=0 y=2*x*x N Y N Y 输出y (x2) (-10≤x ≤2) (x-10) 练习1：输入两个数，比较大小，并输出较大数。 输入两个数a,b ab? ?a Y N 结束 ?b 方法一：双分支 输入两个数a,b ab? 把b的值赋给a Y N ？a 方法二：单分支 练习2：输入两个数，比较大小，并按从大到小的顺序输出。 输入两个数a,b ab? 交换a,b的值 Y N ？a,b 使用单分支结构： 容器A 容器B 容器C 1 2 3 1、C = A 2、A = B 3、B = C 赋值 赋值 赋值 交换 练习3：比较任意三个数的大小，并输出较大数。 输入三个数a,b,c ab? ca? cb? 输出c 输出a 输出c 输出b 结束 N Y Y N N Y 思考：输入3个数a,b,c，比较大小，并按从大到小的顺序输出。 “求解”命令按钮的“Click”事件代码如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if ab t=a a=b b=t endif if ac t=a a=c c=t endif if bc t=c c=b b=t endif thisform.text1.value=a thisform.text2.value=b thisform.text3.value=c 表单设计中的常用控件 Vfp的基类有两类： 控件类 容器类 产生控件类对象 产生容器类对象 文本框（text） 主要属性：PasswordChar、Value、ControlSource 主要事件：Valid、GotFocus、 Lostfocus 主要方法：setfocus 控件类 要让文本框接收小数， 可以将其属性值设置 为：0.0 教材P16 改写圆面积程序(1) 改写圆面积程序(2) 圆面积程序修改1 文本框text2获得焦点，即光标移到文本框text2中 输入半径后，按Tab键，光标移到文本框text2中显示圆面积 圆面积程序修改2 文本框text1失去焦点，即在文本框text1中输入面积后，敲回车键（该事件可以换成Lostfocus） 输入半径后，按回车键，在文本框text2中显示圆面积 组合框（Combo） 主要属性： ControlSource、RowSource、 RowSourceType 、 ColumnCount 主要事件：InteractiveChange 控件类 教材P28 仔细体会教科书P26【例2-4 】 、P38 【例2-12】 组合框中数据源的类型 组合框中的数据源 【例】设计如图所示的简易登录表单，表单运行后用户可以在组合框中录入或选择用户名，输入密码后敲回车键，验证登录是否成功（密码显示为“*”）。验证成功以后关闭表单。 说明：预设两个用户：“王平”的密码为“ABC”；“刘梅”的密码为“123456”。 注意：关闭表单的代码为 Thisform.release 计时器（tim