主题：45444
016565
[专家分：0] 发布于 2009-07-17 20:12:00
二维数组输入输出图形
回复列表 （共2个回复）
沙发
FFKK [专家分：1610] 发布于 2009-07-18 20:39:00
cls
dim a(10,9)
for i=1 to 10
for j=1 to 9
if i<j then
a(i,j)=i
else
if i=j then
a(i,j)=0
else
a(i,j)=j
end if
end if
next j
next i
for i=1 to 10
for j=1 to 9
? a(i,j);
next j
?
next i
end
板凳
FFKK [专家分：1610] 发布于 2009-07-20 11:45:00
CLS
FOR I=1 TO 4
FOR J=1 TO 4
IF I=1 TENN
A(I,J)=J
ELSE
IF I=2 THEN
A(I,J)=J+4
ELSE
IF I=3 THEN A(I,J)=J+8 ELSE A(I,J)=J+12
END IF
END IF
NEXT J
NEXT I
FOR I=1 TO 4
FOR J=1 TO 4
?A(I,J);
NEXT J
?
NEXT I
END
[em4][em2][em4][em4][em12][em12][em8][em8][em8][em8][em14][em14][em13][em12][em10][em9]
我来回复
您所在位置：