VisualFoxPro6.0数据库技术与应用第2版刘德山邹健_例6-14课件教学.pptVIP

* ****ex614.prg CLEAR DIME arr(5,5) 定义二维数组 s=0 FOR i=1 TO 5 FOR j=1 TO 5 arr(i,j)=(i-1)*5+j ??arr(i,j) IF i=j s=s+arr(i,j) ENDIF ENDFOR ? 显示时换行 ENDFOR ?s RETURN 程序处理流程如右图所示。程序首先利用二重循环对5×5矩阵进行赋值，然后针对主对角线上的数（1,1）、（2,2）、（3,3）、（4,4）、（5,5）具有横纵坐标相等的特点进行判断主对角线上的数。程序中的?和??命令分别用于控制矩阵显示的格式。 在线教务辅导网： 更多课程配套课件资源请访问在线教务辅导网 馋死 PPT研究院 POWERPOINT ACADEMY * * *