VF第讲循环辅助语句多重循环及常用控件.pptVIP

程序设计基础（Visual FoxPro） 第六讲 程序设计基础（四） EXMX4（程序填空）：判输入的数字是不是素数，如图所示。请填空完成。（素数又称质数，是指除了1和该数本身以外不能被其它任何数整除的数。） 表单设计中的常用控件 标签（label） 主要属性：Caption、BackStyle、WordWrap 命令按钮（command） 主要属性：Caption、Enabled 主要事件：Click 文本框（text） 主要属性：PasswordChar、Value、 主要事件：Valid、GotFocus、 Lostfocus 主要方法：setfocus 组合框（Combo） 主要属性： ColumnCount RowSource、 RowSourceType 、 主要事件：InteractiveChange 编辑框（edit） 主要属性：ReadOnly、ScrollBars 列表框（List） 主要属性：ColumnCount、ColumnWidths 主要事件：InteractiveChange 主要方法：AddItem、AddListItem 计时器（timer） 主要属性： Enabled、Interval 主要事件：timer 命令按钮组（commandGroup） 主要属性：ButtonCount、Value 主要事件：Click 复选框（check） 主要属性：Caption、Value 选项按钮组（OptionGroup） 主要属性：ButtonCount、 Caption、value 表格（Grid） 主要属性： ColumnCount、 RecordSource、 RecordSourceType 容器类 与表格建立联系的 数据源 教材P124 一般与数据表一起使用 * 杨劲 副教授 click@ 电话 要点： 1.掌握循环辅助语句的使用 2.了解多重循环（能读程序） 3.数组在程序中的应用 4.掌握表单设计中常用控件的使用 LOOP: 通常又称为中途复始语句或短路语句。 EXIT：通常又称为中途退出语句或循环终止语句。 循环辅助语句 DO WHILE 循环条件 … [LOOP] [EXIT] … ENDDO FOR 内存变量=初始值 TO 终值 [STEP 步长] 语句序列 [LOOP] [EXIT] ENDFOR/NEXT 流程图： 条件 语句序列 语句序列 循环体外的下一条命令 N Y LOOP EXIT EXMX1： 将100到150中第一个能被3整除的数找出来。 For n=100 to 150 if n%3=0 ?n exit endif endfor 结束当前循环，跳出所在的循环结构 EXMX2：将10到20中所有不能被3整除的数找出来。 for n=10 to 20 if n/3=int(n/3) loop endif ?n endfor 结束本次循环，转入下一次循环条件的判断 x=.t. s=0 do whil x s=s+1 if s/8=int(s/8) ?s else loop endi if s30 x=.f. endi endd retu 结果为 ： 8 16 24 32 EXMX3：写出程序的结果 “判断”命令按钮的Click事件代码： n=val(thisform.text1.value) s=0 ______①_______ do while i=sqrt(n) and s=0 if n%i=0 s=1 else _____②______ endif enddo if s=0 a=是一个素数 else a=不是一个素数 endif messagebox(____③____+a) ①i=2 ②i=i+1 ③thisform.text1.value 多重循环 多个循环结构嵌套使用,构成多重循环。 真 真 外循环初始条件 内循环初始条件 内循环体 外循环条件 假 内循环条件 假 改变内循环循环条件 改变外循环循环条件 外循环结束 二重循环嵌套结构执行流程 内循环结束 EXMX5：编程打印如下图形。 * *** ***** ******* ********* clear for i=1 to 5 控制行