2013-1VFP第7部分(循环辅助语句、多重循环)

《2013-1VFP第7部分(循环辅助语句、多重循环)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualFoxpro6.0程序设计基础要点：1.了解多重循环（能读程序）2.掌握循环辅助语句的使用3.数组在程序中的应用4.掌握表单设计中常用控件的使用第六讲程序设计(2)多重循环（了解执行过程）3种循环结构Dowhile….enddofor….endforscan….endscan真真外循环初始条件内循环初始条件内循环体外循环条件假内循环条件假改变内循环循环条件改变外循环循环条件外循环结束二重循环嵌套结构执行流程内循环结束列表框（List）主要属性：ColumnCount、ColumnWidths主要事件：In

2、teractiveChange主要方法：AddItem、AddListItem控件类教材P65添加单列数据添加多列数据EXM1：设计如图所示表单，单击“输出”按钮，列表框中显示一个由“*”构成的直角三角形。EXM2：设计如图所示表单，单击“直角”按钮，列表框中显示一个由“*”构成的直角三角形，单击“关闭”按钮退出表单。Thisform.releaseX表示行，Y表示列EXM3：利用列表框输出下列图形。fori=1to6thisform.list1.addlistitem(space(6-i),i,1)forj=1to

3、2*i-1thisform.list1.addlistitem("*",i,6-i+j)endforendfor循环辅助语句(补充）loop:通常又称为中途复始语句或短路语句。exit：通常又称为中途退出语句或循环终止语句。注意：适用于3种循环流程图：条件语句序列LOOPEXITenddo的下一条命令NYEXM4：将100到150中第一个能被3整除的数找出来。Forn=100to150ifn%3=0thisform.text1.value=nexitendifendfor结束当前循环，跳出exit所在的循环结构EXM

4、5：将100以内所有不能被7整除的数找出来。方法1：不使用辅助语句x=1y=1fori=1to100ifi%7<>0thisform.list1.addlistitem(str(i,3),x,y)y=y+1endifify=11x=x+1y=1endifendfor结束本次循环，转入下一次循环条件的判断方法2：使用辅助语句x=1y=1fori=1to100ifi%7=0loopendifthisform.list1.addlistitem(str(i,3),x,y)y=y+1ify=11x=x+1y=1endifen

5、dfor编辑框（edit）主要属性：ReadOnly、ScrollBars控件类接收的是字符型的值教材P63-64其值为.T.，编辑框不能修改（只读）EXM6：设计如图所示的圆面积计算表单，表单运行后能将计算过的所有数据都显示在编辑框中，编辑框内的文字只读。【例3-11】用编辑框输出3～100之间的所有素数。“输出”按钮的“Click”事件代码：k=0forx=3to100forn=2tosqrt(x)ifmod(x,n)=0exitendifendforifn>sqrt(x)thisform.edit1.value

6、=thisform.edit1.value+str(x,5)k=k+1ifk%5=0thisform.edit1.value=thisform.edit1.value+chr(13)endifendifendforEXM7：设计如左图所示的表单，文本框Text1的Value初值为0。表单运行后，单击“判断”按钮，即可判断出该数是不是素数，如图右所示。请填空完成。(素数又称质数，是指除了1和该数本身以外不能被其它任何数整除的数。)“判断”按钮的Click事件代码：N=Thisform.Text1.ValueI=①DOW

7、HILEI=NThisform.Label2.Caption=③+"是素数"ELSEThisform.Label2.Caption=③+"不是素数"ENDIF①2②exit③alltrim(str(n))EXM8：设计如图所示的表单，运行该表单，单击“Command1”按钮，标签Label1显示什么。“Command1”按钮的Click事件代码：STORE0TOI,KY=""DOWHILE.T.I=I+1K=8*IIFK>30EXITELSEY=

8、Y+STR(K,3)ENDIFENDDOThisform.Label1.Caption=Y81624EXM9：设计如图所示的表单，运行该表单，单击“Command1”按钮，标签Label1显示什么。“Command1”按钮的Click事件代码：K=.T.Y=10X=""DOWHILEKY=Y+1IFY/5=INT(Y/5)X=X+STR(Y,3