回 帖 发 新 帖 刷新版面

主题:蛇形矩阵问题,代码能再优化吗?

输入 wid 
输出 wid * wid 的正方蛇形矩阵

小弟三天才写出的代码(含调试)
高手请指点,能再优化吗?

CLS
INPUT wid
size = wid * wid
FOR Y = 1 To wid
    out = size: PRINT out;
    IF Y MOD 2 THEN size = size - Y - Y ELSE size = size - 1
    FOR X = 1 To wid - 1
        IF wid - Y >= X THEN _
            IF X MOD 2 XOR Y MOD 2 THEN out = out - (X + X) ELSE out = out - (Y + Y - 1) ELSE _
            IF X MOD 2 XOR Y MOD 2 THEN out = out - ((wid - Y) * 2 + 1) ELSE out = out - (wid - X) * 2
        PRINT out;
    NEXT X
    PRINT
NEXT Y
END

回复列表 (共13个回复)

11 楼

楼上的代码不错哦。是横向的蛇形矩阵哦。
小弟开眼喽了。

12 楼

[quote]CLS
INPUT N
FOR I=1 TO N
    FOR J=1 TO N
        IF I MOD 2<>0 THEN A=A+1 ELSE A=A-1
        PRINT USING"###";A;
    NEXT J
    PRINT 
    [color=ff00ff]A=A+N + (I mod 2) * 2 - 1[/color]
NEXT I
END[/quote]


[quote]关于“发VB代码”的问题,我看是楼上的看 VB 不顺眼,还是看有人在 QB 区回 VB 代码不顺眼,要不就是看我不顺眼吧。[/quote]
我没有这些看法。

[quote]再说,关于我知道为什么我的贴子冷的问题。[/quote]
[quote]冷不冷,跟你没有关系。[/quote]
这句话我是说得不对,应该这样子说:[color=0000ff]冷,不是你的原因。[/color]

[quote]你在6楼问我“为什么还需要别人认同”[/quote]
有的时候,你需要信心,不管是不是盲目的,在获得新的答案之前。

[quote]我承认这点不是优点,更应该是个缺点。[/quote]
虽然很多时候需要自我批评,但也要注意不要妄自菲薄。

[quote]跟你说个事,我刚来的时候,水平较菜,说话比你更不客气。
现在嘛,我打算说话学客气点。因为感觉这样对自己和他人的好处多点。[/quote]
听你这么一说,感觉我是新来的,我说话很不客气了?那我认错,向你道歉。

13 楼

哦,是这样啊?
看来是小弟我把 moz 兄的意思弄拧了。小弟也来 Say 个 Sorry。(9楼的贴言重了)

其实 moz 兄这句话说得也很在理的:“有的时候,你需要信心,不管是不是盲目的,在获得新的答案之前。”

话说回来,一开始小弟我认为 moz 兄的话太不客气了,应该是小弟没有很好的把 moz 兄的话里的意思弄明白。
现在再来听听 moz 兄话里的意思,还是蛮客气的嘛。还在安慰小弟呢。(小弟我怎么没有听出来呢?)

还有一句:“虽然很多时候需要自我批评,但也要注意不要妄自菲薄。”
小弟在这里承认,我的确有些自大。小弟马上改!!

说句实话,小弟对文字的理解也不怎么样。(上初中后,语文就再没有及格过。)

不打不相识。我和 moz 兄也算是不撞不相识了吧?有空多联系:
E-mail: imjohnzj@hotmail.com
QQ: 394400680

我来回复

您尚未登录,请登录后再回复。点此登录或注册