【vfp开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了vfp开源代码-程序28.prg的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
CLEAR
DIMENSION a(3,3),b(3,3)
STORE 1 TO a(1,1)
STORE 2 TO a(1,2)
STORE 3 TO a(1,3)
STORE 4 TO a(2,1)
STORE 5 TO a(2,2)
STORE 6 TO a(2,3)
STORE 7 TO a(3,1)
STORE 8 TO a(3,2)
STORE 9 TO a(3,3)
STORE 1 TO b(1,1)
STORE 2 TO b(1,2)
STORE 3 TO b(1,3)
STORE 4 TO b(2,1)
STORE 5 TO b(2,2)
STORE 7 TO b(2,3)
STORE 8 TO b(3,1)
STORE 9 TO b(3,2)
STORE 10 TO b(3,3)
FOR i=1 TO 3
FOR j=1 TO 3
?"a("+STR(i)+","+STR(j)+")"+"*"+"b("+STR(i)+","+STR(j)+")",a(i,j)*b(i,j)
ENDFOR
ENDFOR