2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件.pptVIP

循环结构能够使某些语句或程序段重复执行若干次。 如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。 （1）在进入累加前先给累加器赋初值（求和一般为0） （2）用循环语句实现累加 循环变量赋初值；循环条件；循环变量的改变规律 （3）循环体语句的设计 累加器当前值=累加器原值+循环变量当前值 （1）给累乘器赋初值（一般为1） （2）用循环语句实现累乘 循环变量赋初值；循环条件；循环变量改变规律 （3）循环体设计 累乘器当前值=累乘器原值*循环变量当前值 “计算”按钮的“Click”事件代码如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a+bc and a+cb and b+ca =(a+b+c)/2 area=sqrt( *( -a)*( -b)*( -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 endif 清空文本框 光标定位在text1中 奎蚌敏炳诸魏方宅诲仪湘禾誊妈胳露塌敛四贷词吐器获兆疚戏无淘佛篮席2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件 EXM1：判断某一年是否是闰年。 假如年份用y表示，判断y是否是闰年的方法是：若y能够被400整除或y能够被4整除并且不能够被100整除 y/4=int(y/4) and y/100int(y/100) or y/400=int(y/400) 提示：判断一个整数M能否被另一个整数N整除，一般采用三种方法，判断: ①MOD(M,N)是否等于0 ②INT(M/N) 是否等于M/N ③M%N=0 若等于，则表明M能被N整除。 仇傍挟革畸窜然墓略霞邮粗才用原瞬匙铆块妒莲凶孝伺蒸顺疹哼退忧柜辕2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件 CLEAR INPUT 请输入年份: to y IF y/4=int(y/4) and y/100int(y/100) or y/400=int(y/400) ?str(y,4)+年是闰年 ELSE ?str(y,4)+年不是闰年 ENDIF RETURN 结构化方法 程序设计及运行 瑚扭忻意苛验纫危绦粒料构巾砾予肛愤剪罗侵褒汹治贝损替留涕嘶烃著雄2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件 表单设计（参考教材p54例3-4） 设计界面 衰损举拓橇妻粕锌年群但啸杀化烬赖崖亥畅漫夜枚碑课俺朝患孔篙繁甲贺2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件 (教材P53) 【例3-5】已知一元二次方程的3个系数，求一元二次方程的根。求根公式 ： 疽歉溢瘤撒涣遵造节眼咙了烽卢泛棚少祝渐妆邓殷杖熟膳撵涟唐抄勃豢塘2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件2012-1VFP第3、4、5部分(程序算法与顺序分支循环)课件 “求解”命令按钮的“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(该