主题：5×6的二维数组，谢谢
wangjieni11
[专家分：0] 发布于 2007-12-04 15:43:00
有一个5×6的二维数组，要求除第4列元素为字符串“*”外，其余元素为字符串“0”，输出该数组。
回复列表 （共5个回复）
沙发
春夏秋冬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
板凳
游戏之王 [专家分：540] 发布于 2007-12-06 17:22:00
CLS
DIM A$(5,6)
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
3 楼
QB小猪 [专家分：1200] 发布于 2007-12-06 17:36:00
cls
for i=1 to 5
for j=1 to 6
if j=4 then print "* "; else print "0 ";
next j,i
end
4 楼
bb5415274 [专家分：0] 发布于 2007-12-15 14:57:00
dim a$(5,6)
for i = 1 to 5
for j = 1 to 6
if j = 4 then
a$(i,j) = "0"
else
a$(i,j) = "*"
endif
next
next
for i = 1 to 5
for j = 1 to 6
print a$(i,j)
n=n+1
if n MOD 6 = 0 then print
next
next
5 楼
lu1012 [专家分：20] 发布于 2007-12-30 16:27:00
CLS
DIM A$(5,6)
FOR I=1 TO 5
FOR J=1 TO 6
IF J=4 THEN A$(I,J)="*" ELSE A$(I,J)="0"
NEXT J
NEXT I
FOR I=1 TO 5
FOR J=1 TO 6
PRINT A$(I,J);
NEXT J
PRINT
NEXT I
END
我来回复
您所在位置：