《Visual FoxPro程序设计》 第六章 循环结构程序设计

第六章环结构 程 P网

第六章 循环结构 程序设计

61概述 例如,一个简单的运算题:求1×2×3×4×5 62循环结构语句 Visual foxpro中只提供了“当型”、“步长型”和“表扫描 型”3种循环语句: (1) DO WHILE. ENDDO(当型循环) (2)FOR. NDFOR(步长型循环) (3)SCAN.. ENDSCAN(表扫描型循环)

6.1 概述 例如，一个简单的运算题：求1×2×3×4×5 6.2循环结构语句 Visual FoxPro中只提供了“当型” 、 “步长型”和“表扫描 型”3种循环语句： （1） DO WHILE….ENDDO（当型循环） （2） FOR….ENDFOR（步长型循环） （3） SCAN….ENDSCAN（表扫描型循环）

621当型循环命令 DO WHLE DO WHILE条件P&&循环起始及条件语句 语句序列S&&循环体 ENDDO&&循环终止语句 当条件是否成立 执行循环体 D心a

6.2.1当型循环命令DO WHILE DO WHILE 条件P &&循环起始及条件语句 语句序列S &&循环体 ENDDO &&循环终止语句 当条件是否成立 执行循环体

「例6.1编写计算S=1+2+3++100的程序 写出程序 &&变量s为累加器,初值为0 &&变量i为计数器,初值为1 do while 1<=100 &&当i值小于或等于100时,执行循环体 S=S+1 &&累加 +1 &&计数器增1 enddo

[例6.1]编写计算S=1+2+3+…+100的程序。 写出程序： s=0 &&变量s为累加器，初值为0 i=1 &&变量i为计数器，初值为1 do while i<=100 &&当i值小于或等于100时，执行循环体 s=s+i &&累加 i=i+1 &&计数器增1 enddo

「例62计算n的阶乘。 Sa/ Form1 5 请输入n值 确定 结果 120 冈心心

[例6.2]计算n的阶乘

计算按钮的 Click事件代码: nThisform Text1 value &&输入n的值 IF n<=O &&如果n的值小于或等于0则不进行计算 Messagebox(“输入数据不正确!”) Return ENDIF &&变量n1用来保留每次乘积的结果 &&变量i为计数器,初值为1 DO While i<=n &&当i的值小于或等于n的值,执行 环体 nl=nl*i &&将每次自增后的值同前次乘积的结果 乘,并再次保存到n1中 1=1i+1 &&计数器i自增 Enddo Thisform Text2 value=nI &&将n的阶乘输出 Thisform. Refresh D心a

计算按钮的Click事件代码： n=Thisform.Text1.Value &&输入n的值 IF n<=0 &&如果n的值小于或等于0则不进行计算 Messagebox(“输入数据不正确！”) Return ENDIF n1=1 &&变量n1用来保留每次乘积的结果 i=1 &&变量i为计数器，初值为1 DO While i<=n &&当i的值小于或等于n的值，执行循 环体 n1=n1*i &&将i每次自增后的值同前次乘积的结果相 乘，并再次保存到n1中 i=i+1 &&计数器i自增 Enddo Thisform.Text2.Value=n1 &&将n的阶乘输出 Thisform.Refresh

622FOR循环 语句格式: FOR变量=初值TO终值[STEP步长] 语句序列 ENDFORNEXT变量 执行步骤如下 (1)给变量赋初值; (2)判断变量的值是否小于等于终值; (3)若不是,则循环结束; (4)若是,则执行语句序列 (5)变量=变量+步长(若省略STEP,则步长=1); (6)转(2)

6.2.2FOR循环 语句格式： FOR 变量=初值 TO 终值 [STEP 步长] 语句序列 ENDFOR|NEXT 变量 执行步骤如下： (1)给变量赋初值； (2)判断变量的值是否小于等于终值； (3)若不是，则循环结束； (4)若是，则执行语句序列； (5)变量=变量+步长（若省略STEP，则步长=1）； (6)转（2）

「例63编写计算S=1+2+3+.+100的程序 fori=1to100&&从1到100,共执行100次循环体 next

[例6.3]编写计算S=1+2+3+…+100的程序。 s=0 for i=1 to 100 &&从1到100，共执行100次循环体 s=s+i next ?”s=”,s

「例64修改[例62],改用FOR循环计算n的阶乘。 计算按钮的 click事件代码: n=Thisform Text value IF n<=O Messagebox(“输入数据不正确!”) Return Endif nl=l For i=l Ton nl=naxi Endfor Thisform Text2 value=n1 Thisform. Refresh

[例6.4]修改[例6.2]，改用FOR循环计算n的阶乘。 计算按钮的click事件代码： n=Thisform.Text1.Value IF n<=0 Messagebox(“输入数据不正确！”) Return Endif n1=1 For i=1 To n n1=n1*i Endfor Thisform.Text2.Value=n1 Thisform.Refresh

例65判断n是否素数 程序如下 输入n &&见表单设计 0 &&变量s是标志位,当程序结束时,s=0表示n为素数 ,S=1表 示n不是素数 For i=2 To n &&从2~n-1寻找n的约数 Ifn%i=0&&如果n和i可以整除(即余数为0) &&s=1表示找到约数 Exit &&提前退出循环 Endif Endfor If s=o &&也可改为:ifs=1 ?“素数 ?不是素数 Else else ?“不是素数 素数” Endif endif D心a

[例6.5]判断n是否素数 程序如下： 输入n &&见表单设计 s=0 &&变量s是标志位，当程序结束时，s=0表示n为素数 ，s=1表 示n不是素数 For i=2 To n-1 &&从2~ n-1寻找n的约数 If n%i=0 &&如果n和i可以整除（即余数为0） s=1 &&s=1表示找到约数 Exit &&提前退出循环 Endif Endfor If s=0 &&也可改为：if s=1 ? “素数” ?”不是素数” Else else ? “不是素数” ?”素数” Endif endif