数据库管理系统VFP-第六章.pptVIP

6.3.2使用组合框 * 第六章 循环结构程序设计 6.1 概述 例如，一个简单的运算题：求1×2×3×4×5 6.2循环结构语句 Visual FoxPro中只提供了“当型”、“步长型”和“表扫描型”3种循环语句： （1）?????? DO WHILE….ENDDO（当型循环） （2）?????? FOR….ENDFOR（步长型循环） （3）?????? SCAN….ENDSCAN（表扫描型循环） 6.2.1当型循环命令DO WHILE DO WHILE 条件P 循环起始及条件语句 语句序列S 循环体 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 [例6.2]计算n的阶乘。 计算按钮的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 6.2.2FOR循环 语句格式： FOR 变量=初值 TO 终值 [STEP 步长] 语句序列 ENDFOR|NEXT 变量 执行步骤如下： (1)给变量赋初值； (2)判断变量的值是否小于等于终值； (3)若不是，则循环结束； (4)若是，则执行语句序列； (5)变量=变量+步长（若省略STEP，则步长=1）； (6)转（2）。 [例6.3]编写计算S=1+2+3+…+100的程序。 s=0 for i=1 to 100 从1到100，共执行100次循环体 s=s+i next ?”s=”,s [例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 [例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