2012-2013-2VFP第5部分(循环辅助语句、多重循环).pptVIP

EXM10：定义数组、赋值并输出。 DIMENSION A(2), B(2,2),C(2) A(1)=ABCD A(2)=.T. B(1,2)=A(1) B(2,2)=123 B(2,1)=11.1 C=2 EXM11：有如图所示表单，表单运行后单击“command1”按钮，标签label1将显示什么？ “输出”命令按钮的“click”事件代码如下 DIMENSION S(8) FOR I=1 TO 8 S(I)=3*I ENDFOR FOR I=1 TO 4 T=S(I) S(I)=S(9-I) S(9-I)=T ENDFOR FOR I=1 TO 8 Thisform.label1.caption= Thisform.label1.caption+str(s(i),4) ENDFOR EXM12：运行如图所示表单，单击命令按钮文本框Text1~6中分别显示什么。 Command1的Click事件代码如下： DIMENSION y(3,4) FOR i=1 TO 3 FOR j=i+1 TO 4 y(i,j)=i+j ENDFOR ENDFOR Thisform.Text1.Value=Y(2+1) Thisform.Text2.Value=Y(2+2) Thisform.Text3.Value=Y(2+3) Thisform.Text4.Value=Y(3,2) Thisform.Text5.Value=Y(3,3) Thisform.Text6.Value=Y(3,4) 4 5 F F F 7 EXM13：设计如图所示表单，表单运行后，单击命令按钮“Command1”，标签Label1将显示什么？ Command1控件的Click事件代码： DIME A(3,3) FOR I=1 TO 3 A(I,I)=I+1 NEXT X=0 FOR I=1 TO 3 FOR J=1 TO 3 IF I=J X=X+A(I,J) ENDIF NEXT NEXT Thisform.Label1.Caption=ALLT(STR(X)) 9 要点： 1.了解多重循环（能读程序） 2. 掌握循环辅助语句的使用 3.数组在程序中的应用 4.掌握表单设计中常用控件的使用 第五讲 程序设计(3) 编辑框（edit） 主要属性：ReadOnly、ScrollBars 控件类 接收的是字符型的值 教材P63-64 其值为.T.，编辑框不能修改（只读） 使用方法： thisform.edit1.value=“lucy” thisform.edit1.value=thisform.edit1.value+”good” 例1：设计如图所示的圆面积计算表单，表单运行后能将计算过的所有数据都显示在编辑框中，编辑框内的文字只读。 列表框（List） 主要属性：ColumnCount、ColumnWidths 主要事件：InteractiveChange 主要方法：AddItem、 AddListItem 控件类 教材P65 添加单列数据 添加多列数据 使用方法： thisform.LIST1.AddItem(“lucy”) thisform.LIST1. AddListItem (”good”,5,3) 例1：设计如图所示表单，单击“输出”按钮，列表框中显示一个由“*”构成的直角三角形。 多重循环（了解执行过程） 3种循环结构 Do while….enddo for….endfor scan….endscan 真 真 外循环初始条件 内循环初始条件 内循环体 外循环条件 假 内循环条件 假 改变内循环循环条件 改变外循环循环条件 外循环结束 二重循环嵌套结构执行流程 内循环结束 EXM2：设计如图所示表单，单击“直角”按钮，列表框中显示一个由“*”构成的直角三角形，单击“关闭”按钮退出表单。 Thisform.release X表示行，Y表示列 例2 ：利用列表框输出下列图形。 for i=1 to 6 thisform.list1.addlistitem(space(6-i),i,1) for j=1 to 2*i-1 thisform.list1.addlistitem(*,i,6-i+j) endfor endfor 循环辅助语句(补充） loop: 通常又称为中途复始语句或短路语句。 exit：通常又称为中途退出语句或循环终止语句。 注意：适用于3种循环 流程图： 条件 语句序列 LOOP EXIT enddo的下一条命令 N