《实验十三 程序控制结构》由会员分享，可在线阅读，更多相关《实验十三 程序控制结构（5页珍藏版）》请在金锄头文库上搜索。
1、实验十三实验十三 程序控制结构程序控制结构一、实验目的一、实验目的 1掌握 VFP 的 3 种基本控制结构2进一步掌握程序的设计、编程、调试、运行3学会编写简单的 VFP 程序4灵活运用 3 种基本控制结构 二、预备知识二、预备知识（一）VFP 中几条较为简单的语句为：1清屏语句 CLEAR2内存变量接收语句ACCEPT 指定提示信息 TO 内存变量名3内存变量输入语句INPUT 指定提示信息 TO 内存变量名4输出语句?|?指定显示表达式指定显示内容在屏幕上绝对列坐标或窗口中的相对列坐标指定显示的其他表达式 （二）VFP 有 3 种基本控制结构：顺序结构、分支结构、循环结构。其中的分支结构有
2、选择分支结构（IF-ELSE-ENDIF）、结构分支语句（DO-CASE-ENDCASE）；循环结构有条件循环（DO WHILE-ENDDO）、步长循环（FOR-ENDFOR）、扫描循环（SCAN-ENDSCAN）。 （三）VFP 中的数组类型的使用。数组的定义格式为：DIMENSION|DECLARE(，)，(，)，规定其下标的下界从 1 开始；赋值的命令格式为：STORE TO 或 = ，规定每个数组元素的初值为.F.，各元素在内存中按行的顺序存储；数组变量的显示命令格式为 LIST/DISPLAY MEMORY。 三、实验内容三、实验内容1编写乘法口诀表。2求二维数组对角线数据之和 程序
3、说明：将 16 个正整数按如下方阵存入数组 X（4，4）中 ： 1 5 9 13 2 6 10 14 3 7 11 15 4 8 12 16 求出主对角线上元素 X（1，1）、 X（2，2）、 X（3，3）、X（4，4）之和存入内存 变量 Z1，再求出另一条对角线上元素 X（1，4）、X（2，3）、X（3 ，2）、X（4，1） 之和存入内存变量 Z2； 说明：这里最主要的是要找出数组和二条对角线的规律 四、实验步骤四、实验步骤 （一）乘法口诀表 1启动 VFP6.0 2在命令窗口内输入 modi comm test3 3在弹出的文本编辑窗口中输入以下 test3.prg 程序 *test3.p
4、rg clea i=1 do while i=9 j=1 do while j=9 if j=i ?str(i,1),*,str(j,1),=,str(i*j,2), endif j=j+1 enddo ? i=i+1 enddo 4输入完保存后运行 5显示运行结果 （二）按（一）步骤，输入以下 test4.prg 程序，保存后运行。显示运行结果为 z1=z2=34。 *test4.prg clea set talk off dimension x(4,4) w=0 j=1 do while j=4 i=1 do while i=4 w = w+1 x(i,j)=w &给数组赋值 i=i+1 enddo j=j+1 enddo store 0 to z1, z2 i=1 do while i=4 j=1 do while j=4 if i=j z1=z1+x(i,j) &第一组对角线之和 endif if j=5-i z2=z2+x(i,j) &第二组对角线之和 endif j=j+1 enddo i=i+1 enddo ?“z1=“,z1 ?“z2=“,z2 set talk on
