3-2015-VFP第4、5、6部分(程序算法、顺序分支循环)

命令有一定的书写规则： 1、命令分行。 程序中每条命令都以回车键结尾， 一行只能写一条命令。若命令需分行 书写，应在一行终了时键入续行符 “；”，然后按回车键。
2、命令注释。
程序中可以插入注释，以提高程序的 可读性。 注释语句 格式：
NOTE|* 注释部分 && 注释部分
单命令的行 尾注释 行首注释
EXM2：输入两个数，比较大小，并 输出较大数。
方法一：双分支
输入两个数a,b Y
?a
a>b?
N
?b
结束
方法二：单分支
输入两个数a,b
Y
把b的值赋给a
a<b?
N
？a
EXM3：输入两个数，比较大小，并 按从大到小的顺序输出。
使用单分支结构：
输入两个数a,b
Y
交换a,b的值
a<b?
N
？a,b
赋值
填什么？
注意：
①if…endif，do case…endcase 必须配对出现，表示分支的开始 和结束。
②为使程序清晰易读，对分支、 循环等结构应使用缩格书写方式。
③表达分支、循环的每种语句都不 允许在一个命令行中输完，必须按 格式一行一行地键入，因此，不能 出现在命令窗口中。
④三种选择结构之间可以相互嵌套， 但不能交叉。
流程图是用一些几何图形符号、线 条及文字说明来表征一个问题的处理过 程。
一般采用传统流程图和N-S图来描 述算法。
(教材P51) 【例3-1】设计如图所示表单，在文本框 text1中输入华氏温度，单击“计算”按钮可以求出 对应的摄氏温度，并在文本框text2中显示。
5 ( fas 32) cels ，其中cels表示摄氏温度， fas表示华氏温度 9
“计算”按钮的“Click”事件代码如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a+b>c and a+c>b and b+c>a l =(a+b+c)/2 填什么？ area=sqrt(l *(l -a)*(l -b)*(l -c)) thisform.text4.value=round(area,1) else messagebox(“__________________") thisform.text1.value=0 thisform.text2.value=0 清空文本框 thisform.text3.value=0 thisform.text4.value=0 thisform.text1.setfocus 光标定位在text1中 endif
执行的命令序列。Visual FoxPro
系统中的大多数命令都可以作为
顺序结构中的语句。
(教材P52) 【例3-2】设计如图3-5所示表单，在文本 框text1、text2、text3中输入三角形的三边，单击 “计算”按钮可以在文本框text4中显示三角形的面 积。其计算公式为
area l (l a)(l b)(l c)
判断某一年是否是闰年
假如年份用y表示，判断y是否是闰年 的方法是：若y能够被400整除或y能够被4 整除并且不能够被100整除
提示：判断一个整数M能否被另一个整数N整除，一 般采用三种方法，判断: ①MOD(M,N)是否等于0 ②INT(M/N) 是否等于M/N ③M%N=0 若等于，则表明M能被N整除。
EXM 4：比较任意三个数的大小， 并输出较大数。
输入三个数a,b,c Y N
a>b?
Y
c>a?
N
Y
输出c 结束
c>b?
N
输出b
输出c
输出a
4）多分支语句
格式： （见教材58页） 流程图： 条件1 命令序列1
条件2
条件N
otherwise
命令序列2
命令序列N 命令序列Q
ENDCASE后面的语句
【修改例3-6】输入月份值，显示对应季节的中文名 字（3,4,5月为春季，6,7,8月为夏季，9,10,11月为 秋季；12,1,2月为冬季）。
条件循环 步长循环 扫描循环
涉及数据表的循环， 第6章介绍
1）条件循环（do while循环） 格式： 流程图：
教材P62
条件
N
Y 语句序列 Enddo之后的语句
【例】计算1+2+3+…+100
第 1 步， 计算 0+1； 第 2 步， 计算 (0+1)+2； 递归 第 3 步， 计算 (0+1+2)+3； 算法 ……… 第 i 步， 计算 (0+1+…+i-1)+i； ………. 第 100 步，计算 (0+1+…+99)+100；
“输出”命令按钮的click事件代码： yf=val(thisform.text1.value) do case case yf=3 or yf=4 or yf=5 jj="春季" case yf=6 or yf=7 or yf=8 jj="夏季" case yf=9 or yf=10 or yf=11 jj="秋季" case yf=12 or yf=1 or yf=2 jj="冬季" endcase bel3.caption=jj
“求解”命令按钮的“Click”事件代码如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a=0 messagebox("二次项系数为0，这不是一个一元二次方程") thisform.text1.setfocus else d=b^2-4*a*c if d>=0 x1=round((-b+sqrt(d))/(2*a),2) x2=round((-b-sqrt(d))/(2*a),2) thisform.text4.value=x1 thisform.text5.value=x2 else messagebox("该方程没有实数根！") endif endif
【例】表单运行后，在文本框Text1 中输入 月份值，单击“输出”按钮，可以弹出提示框显 示对应季节的中文名字，如图所示。（文本框 Text1 的Value 初值为0）
“输出”命令按钮的click事件代码： yf=thisform.text1.value do case case yf=3 or yf=4 or yf=5 jj="春季" case yf=6 or yf=7 or yf=8 jj="夏季" case yf=9 or yf=10 or yf=11 jj="秋季" case yf=12 or yf=1 or yf=2 jj="冬季" Endcase _____________________
前i-1次累加和 第i次累加项
属于“累加器”类型问题
基本方法:
（1）在进入累加前先给累加器赋初值（求和一般为0）
（2）用循环语句实现累加
循环变量赋初值；循环条件；循环变量的改变规律
（3）循环体语句的设计
累加器当前值=累加器原值+循环当前值
s=1+2+3+…+100 算法： 确定循环变量i并赋初值为1 定义s存放累加和,初值为0 确定循环条件 i<=100 递推公式 s=s+i 确定循环变量的变化趋势i=i+1 输出结果s
1 、C = A
赋值
2
1
3
2 、A = B
容器A 容器C 容器B
赋值
3 、B = C
交换
思考：输入3个数a,b,c，比较 大小，并按从大到小的顺序 输出。
分支的嵌套
(教材P53) 【例3-5】已知一元二次方程的3个系数， 求一元二次方程的根。求根公式 ：
b b2 4ac x1,2 2a
第三、四、五讲 要点：
程序设计(1)
1.算法的概念及特点 2.掌握程序3种基本结构的表示
3.掌握利用分支结构编程
4.掌握利用循环结构编程 5.常用控件
算法及算法的表示
一、算法的概念及特点
所谓算法就是对解决问题所采用的 方法和步骤的描述。
二、算法的描述
算法的描述方法有很多，为直观、 准确地表示一个问题的处理方法和步骤， 通常采用流程图的方法。
l (a b c) / 2
(其中a，b，c为三角形的三边，area为三角形的面积)
“计算”按钮的“Click”事件代码如下： a=thisform.text1.value 数据输入 b=thisform.text2.value c=thisform.text3.value l =(a+b+c)/2 数据处理 area=sqrt( l *( l -a)*( l -b)*( l -c)) thisform.text4.value=round(area,1)
l
(教材P54) 【例3-4】设计如图3-13所示表单，其中 文本框Text1中可以接受日期型数据，运行表单后在 Text1中输入日期：08/25/11，单击命令按钮 “Command1”，则标签Label2显示什么？其中 command1控件的click事件代码： 填什么？ d=thisform.text1.value y=year(d) IF ____________________ y1="是" ELSE y1="不是" ENDIF bel2.caption=y1