主题：[转帖]二维数组，谢谢
wangjieni11
[专家分：0] 发布于 2007-12-04 15:45:00
有一个5×6的二维数组，要求除第4列元素为字符串“*”外，其余元素为字符串“0”，输出该数组。
回复列表 （共4个回复）
沙发
春夏秋冬CXQD [专家分：140] 发布于 2007-12-06 17:06:00
CLS
FOR I=1 TO 5:FOR J=1 TO 6:INPUT A$(I,J):NEXT J,I
FOR I=1 TO 5:FOR J=1 TO 6
IF J=4 THEN A$(I,J)="*" ELSE A$(I,J)="0"
NEXT J,I
FOR I=1 TO 5:FOR J=1 TO 6:PRINT A$(I,J);:NEXT J:PRINT:NEXT I
END
板凳
FFKK [专家分：1610] 发布于 2009-07-12 16:24:00
cls
dim a(5,6)
for i=1 to 5
? tab (21-i)
for j=1 to 6
if j=4 then ? "*";else ? "0";
next j
?
next i
end
3 楼
lingkushizhe [专家分：0] 发布于 2009-08-03 17:40:00
for i=1 to 5
for j=1 to 6
if j=4 then ?"*"; else ? using "#";"0";
next j
?
next i
用二维数组就是
dim a(5,6)
for i=1 to 5
for j=1 to 6
if j=4 then a(i,j)=1 else a(i,j)=0
next j
next i
for i=1 to 5
for j=1 to 6
if a(i,j)=1 then ?"*"; esle ?using"#";a(i,j);
next j
next i
对了，还有2楼的，不用using格式会出错的，知道不？
4 楼
水晶白雪 [专家分：20] 发布于 2009-08-05 14:22:00
[quote]CLS
FOR I=1 TO 5:FOR J=1 TO 6:INPUT A$(I,J):NEXT J,I
FOR I=1 TO 5:FOR J=1 TO 6
IF J=4 THEN A$(I,J)="*" ELSE A$(I,J)="0"
NEXT J,I
FOR I=1 TO 5:FOR J=1 TO 6:PRINT A$(I,J);:NEXT J:PRINT:NEXT I
END
[em2][em1]
我来回复
您所在位置：