侠们,不好好学,玩游戏,砸蛋.

[em1][em2][em3][em9]
侠们,不好好学,玩游戏,砸蛋.

笨蛋,我已经编出来了
CLS
SCREEN 12: f = 3: x = 320
DO
LOCATE 1, 1: PRINT f
IF y <> 0 THEN
CIRCLE (y, z), 5: CIRCLE (w, z), 5: z = z + 5
IF z > 480 THEN y = 0: z = 0: w = 0
END IF
PSET (x, 100)
DRAW "u10r40d10l60f10r60e10l20"
PSET (x + 20, 90)
DRAW "u20f10l10"
FOR i = 1 TO 9
IF (b(i) >= w - 5 AND b(i) <= w + 5 OR b(i) >= y - 5 AND b(i) <= y + 5 AND a(i) >= z - 5) AND a(i) <= z + 5 THEN
a(i) = 500: y = 0: z = 0: u = u + 1
IF u = 2 THEN f = f + 1: u = 0
END IF
IF b(i) <= x + 60 AND b(i) >= x - 10 AND a(i) >= 108 AND a(i) <= 111 THEN
f = f - 1: IF f = 0 THEN END
END IF
IF a(i) <= 111 OR a(i) = 0 THEN a(i) = 500
IF a(i) = 500 THEN b(i) = INT(RND * 630 + 10)
PSET (b(i), a(i)), 4: DRAW "g5d20r10u20h5": PAINT (b(i), a(i) + 1), 4, 4
a(i) = a(i) - INT(RND * 6 + 1)
NEXT i
FOR i = 1 TO 100000: NEXT i
PSET (x, 100), 0
DRAW "u10r40d10l60f10r60e10l20"
PSET (x + 20, 90), 0
DRAW "u20f10l10"
LINE (1, 111)-(640, 480), 1, BF
k$ = INKEY$
IF k$ = CHR$(0) + "K" THEN x = x - 7
IF k$ = CHR$(0) + "M" THEN x = x + 7
IF k$ = CHR$(0) + "P" THEN y = x: z = 116: w = x + 50
IF k$ = CHR$(13) THEN END
IF x <= 15 THEN x = x + 7
IF x >= 580 THEN x = x - 7
LOOP

我要编的不是这种
是战舰对战舰的

可不要吹牛B哦

大家请相信我，我一定会编得出来的。

过5月了！！！
[em9]

input "哪年五月？";x

if x>2007 then
print "吹牛"
endif

- -

[quote]
input "哪年五月？";x

if x>2007 then
print "吹牛"
endif
[/quote]
INPUT "2007年几月?",X
IF X>5 THEN
   PRINT "吹牛"
ELSE
   PRINT "我才不信呢!"
END IF
END