4-2015-VFP第7、8部分(控件、多重循环、循环辅助语句、数组)解说.pptVIP

定义后，它的初始值是 ，在使用数组时，一定要注意数组的初始化，还要注意数组下标的起始值是 。 1 逻辑值.F. 命令格式 例如： dime|decl a(2),b(2,2) 二维数组 一维数组 注：在定义数组时，数组名不能与同一环境下的简单变量同名。 数组元素的赋值及输出与简单内存变量相同。 同一个数组元素在不同时刻可以存放不同类型的数据。 在同一个数组中，每个元素的值可以是不同的数据类型。 数组下标应使用圆括号，二维数组的下标之间使用逗号隔开。 数组的下标可以是常量、变量和表达式。 数组的使用 每个数组元素可通过数组名及相应的下标来访问 在赋值语句中也可使用数组名将同一个值赋给数组的所有元素。 可用一维数组的形式访问二维数组。 Dimension x(2,3) x(1,1) x(1,2) x(1,3) X(2,1) x(2,2) x(2,3) x(1) x(2) x(3) x(4) x(5) x(6) 【例】定义数组、赋值并输出。 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 顺序执行如下语句 dimension a(3,3) dimension b(4) a=9 b(2)=2 b(3)=3 x=a(1,2) y=b 执行后，请问x和y的值分别是多少（ ）。 x的值为9，y的值为.F. x的值为3，y的值为2 (C) x的值为9，y的值为”b” (D) x的值为3，y的值为3 【例】设计如图(左)所示的表单，表单运行后，单击 “输出”命令按钮，在标签Label1中随机输出5个3位数，并在文本框中显示最大数，如图(右)所示。 “输出”按钮的“Click”事件代码： dimension A(5) X= FOR I=1 TO 5 A(I)=INT(RAND()*900)+100 X=X+STR(A(I),5) ENDFOR Thisform.Label1.Caption=X for i=2 to 5 if a(1)a(i) a(1)=a(i) endif endfor thisform.text1.value=a(1) 多重循环（只了解执行过程，考试不涉及） 3种循环结构 Do while….enddo for….endfor scan….endscan 真 真 外循环初始条件 内循环初始条件 内循环体 外循环条件 假 内循环条件 假 改变内循环循环条件 改变外循环循环条件 外循环结束 二重循环嵌套结构执行流程 内循环结束 第4次理论作业 实践指导书： P72 课外作业 【填空题】3 【读程序写结果】1,2 P25 课外作业 【选择题】3,5,6,8,11,12,13,14,15,16 提示学生： 【选择题】6、13、14中的“？”是输出 评讲作业（根据学生情况评讲） 设计如图所示的表单，文本框Text1的Value初值为0。表单运行后，单击“判断”按钮，即可判断出该数是不是素数，如图所示。请填空完成。(素数又称质数，是指除了1和该数本身以外不能被其它任何数整除的数。) 判断”按钮的Click事件代码： N= Thisform.Text1.Value I= ① DO WHILE IN IF INT(N/I)=N/I ② ENDIF I=I+1 ENDDO IF I=N Thisform.Label2.Caption= ③ +是素数 ELSE Thisform.Label2.Caption=ALLTRIM(STR(N))+不是素数 ENDIF 评讲实验书P73 填空题 3 设计如图所示的表单，运行该表单，单击“Command1”按钮，标签Label1显示什么。 “Command1”按钮的Click事件代码： A=.T. Y=0 X= DO WHILE A Y=Y+1 IF Y/5=INT(Y/5) X=X+STR(Y,3) ELSE LOOP ENDIF IF Y20 A=.F. ENDIF ENDDO Thisform.Label1.Caption=X 评讲实验书P74 读程序 1 设计如图所示的表单，运行该表单，单击“Command1”按钮，标签