easy!

CLS
S#=0
DIM A(2,5,6)
FOR I=1 TO 2
   FOR J=1 TO 5
      FOR K=1 TO 6
         ? "<";I;",";J;",";K;">";
         INPUT A(I,J,K)
         S#=S#+A(I,J,K)
      NEXT K
   NEXT J
NEXT I
? "JU ZHEN:";
FOR I=1 TO 5
   FOR J=1 TO 2
      FOR K=1 TO 6
         ? USING"#####";A(J,I,K);
      NEXT K
      ? "     ";
   NEXT J
   ?
NEXT I
? "The sum:";s#
END
REM:
输入的数据不得超过4位，"sum"的意思是：和
s#中的“#”是扩大数据范围
“？”在qb中会自动转换成“PRINT”