DIMEK(2,3)

I=1
DO WHILE I＜=2
J=1
DO WHILE J＜=2
K(I,J)=I*J
??K(I,J)
J=J+1
ENDDO
I=I+1
ENDDO
说明：编号、姓名、性别为字符型；出生日期为日期型；工资现状为数值型；党员否为逻辑型。