2012-2013-2VFP第4部分﹝循环结构﹞.pptVIP

Visual Foxpro 6.0;要点： 1.算法的概念及特点 2.掌握程序3种基本结构的表示 3.掌握利用分支结构编程 4.掌握利用循环结构编程 5.常用控件 ; 循环结构能够使某些语句或程序段重复执行若干次。 如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。 ;;【例】计算1+2+3+…+100;;三个“确定” 循环三要素;基本方法:; i=100;“计算”按钮的click事件代码： s=0 i=1 do while i=100 s=s+i i=i+1 enddo Thisform.text1.value=s;;“计算”命令按钮的“click”事件代码： n=thisform.text1.value s=0 x=1 do while x=n s=s+x enddo thisform.text2.value=s ; 说明： ①循环结构从do while开始，到enddo结束，两者必须成对出现；在enddo后面可以书写注释。 ②循环是否继续取决于条件的当前取值，一般情况下循环体中应含有改变条件取值的命令或语句???否则将造成死循环。 ③循环结构能自身嵌套(多重循环)，还能与选择结构的各种形式嵌套。;2）步长循环（for…endfor计数循环） 格式：;计算1+2+3+…+100;(教材P60) 【例3-9】设计如图所示表单，在文本框text1中输入N的值，求N!。 ;（1）给累乘器赋初值 p=1（一般为1） （2）用循环语句实现累乘 循环变量赋初值:i=1 循环条件:i= thisform.text1.value 循环变量改变规律: i=i+1 （3）循环体设计 p=p*i (累乘器当前值=累乘器原值*循环当前值 );输入n i=1，fac=1 i=n fac=fac*i i=i+1 输出fac;“计算”命令按钮的“Click”事件代码： p=1 for i=1 to thisform.text1.value p=p*i endfor thisform.text2.value=p ;说明： ①步长可正可负，缺省为1。 ②循环体中不应包含改变循环变量值的命令，否则循环次数将随之改变。 ③如果循环可以通过计数来控制，则本循环比条件循环更为方便。;当循环 步长循环 在文本框Text1中输入终值n 在文本框Text2中输入步长k i=1 for i=1 to n step k do while i=n 命令序列 命令序列 endfor|next i=i+k endddo;【练习1】求100以内的奇数和。;【练习2】求;【练习3】 ;s=0 for i=1 to 100 s=s+(-1)^(i+1)/i endfor thisform.text1.value=s;命令按钮的“click”事件代码： s1=0 s2=0 for i=1 to 99 step 2 s1=s1+1/i endfor for i=2 to 100 step 2 s2=s2+1/i endfor thisform.text1.value=s1-s2;思考：计算e的近似值。其公式为：e＝1+1/1!＋1/2!＋1/3!＋…＋1/N!，直到1/N!0.000001为止。;“计算”命令按钮的“click”事件代码： s=1 i=2 p=1 do while 1/p=0.000001 s=s+1/p p=p*i i=i+1 enddo thisform.text1.value=s;【例】求所有的水仙花数。(所谓水仙花数是指一个三位数，其各位数字的立方和等于该数本身。;查找范围：;【练习4】 100以内能够被X整除的数之和。;【练习5】找出所有的四位水仙花数;【练习6】找出所有的三位回文数;(教材P60-61) 【例3-10】设计如图1所示表单。运行该表单，在文本框Text1中输入一串字符，单击“逆序显示”命令按