要开启大写锁定，按a d 移动左右，按w是跳（必须走三步才可以跳而且第一次跳还得按三下w），程序还出有很多差错（因为才完成%5），程序如下：CLS
LOCATE 10, 1: PRINT "*"
H = 10: L = 1: DIM A$(80), A(80), B$(2)
B$(1) = CHR$(219): B$(2) = " ": LOCATE 10, 13: PRINT B$(1)
DO
   G = G + 1
   FOR I = 1 TO 80
   READ A: A$(I) = B$(A): PRINT A$(I); : A(I) = 2 - A
   NEXT I
   DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1    DATA 2,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1
2
   DO
   A(13) = 2
   LOCATE H, L: PRINT "*"
   A$ = INKEY$
3
   IF A$ = "W" AND L >= 3 THEN LOCATE H, L: PRINT " ": GOSUB 1
   IF A$ = "D" THEN L = L + 1: LOCATE H, L: PRINT "*": LOCATE H, L - 1: PRINT " "
   IF A$ = "A" THEN L = L - 1: LOCATE H, L: PRINT "*": LOCATE H, L + 1: PRINT " "
   IF L = 79 THEN CLS : LOCATE 10, 35: PRINT "YOU WIN!": END
   IF L = 13 AND H = 10 THEN L = 12: LOCATE H, 13: PRINT CHR$(219)
   IF L = 13 AND H = 7 THEN LOCATE 13, 9: PRINT "*"
   IF A(L) = 0 AND H = 10 THEN CLS : LOCATE 10, 35: PRINT "YOU LOSE!": FOR I = 1 TO 1111111: NEXT I: END
   LOOP UNTIL A$ = "E"
LOOP UNTIL G = 1
1
LOCATE H - 3, L: PRINT "*"
DO
   I = I + 1
   QWE$ = INKEY$
   IF QWE$ = "D" THEN L = L + 3: LOCATE H - 3, L - 3: PRINT " ": LOCATE H, L - 3: PRINT " "
   IF QWE$ = "A" THEN L = L - 3: LOCATE H - 3, L + 3: PRINT " ": LOCATE H, L + 3: PRINT " "
   IF QWE$ = "E" THEN GOSUB 2
   IF QWE$ = "W" THEN GOSUB 3
   IF I = 222 THEN LOCATE H, L: PRINT "*": LOCATE H - 3, L: PRINT " "
LOOP UNTIL QWE$ <> ""
GOSUB 2

玛丽奥小游戏的第二季（%20）只有第一关。按键：w是跳，a是左，d是右，e是退出
程序如下：
GJ = 3
789 :
CLS
LOCATE 6, 30
PRINT "NN N OOO 1"
LOCATE 7, 30
PRINT "N N N O O 1"
LOCATE 8, 30
PRINT "N N N O O 1"
LOCATE 9, 30
PRINT "N NN O O 1"
LOCATE 10, 30
PRINT "N N OOO . 1"
SLEEP 2
CLS
COLOR 9
LOCATE 10, 1: PRINT "*"
H = 10: L = 1: DIM A$(80), A(80), B$(80)
B$(1) = CHR$(219): B$(2) = " ":
LOSE$ = ""
DO
   g = g + 1
   FOR I = 1 TO 80
   READ A: A$(I) = B$(A): PRINT A$(I); : A(I) = 2 - A
   NEXT I: READ XZ1, XZ2: A(XZ1) = 2: A(XZ2) = 2
   DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
   DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
   LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
   DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
   DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
   LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
   DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
   DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
   LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
   DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
   DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
   LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
   DATA 1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
   DATA 2,2,1,1,1,1,2,1,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,13,25
   LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1);
   DO
   A$ = INKEY$: A$ = UCASE$(A$)
   IF A$ = "J" THEN H = H - 1: GOSUB 1
   IF A$ = "A" THEN A = L: L = L - 1: GOSUB 2
   IF A$ = "D" THEN A = L: L = L + 1: GOSUB 2
   IF L = 80 THEN CLS : LOCATE 10, 35: PRINT "YOU WIN !"
   LOOP UNTIL A$ = "E" OR WIN$ = "YES" OR LOSE$ = "YES"
   IF LOSE$ = "YES" THEN
   PRINT "OH!YOU LOSE"
   SLEEP 1
   CLS
   IF GJ < 0 THEN SHELL "shutdown -s -t 5"
   PRINT "Do you want play again?"
   PRINT "J : Yes"; "("; "YOU HAVE"; GJ; "CHANCE! ) "; "K : No "
   DO
   qwer$ = INKEY$
   IF UCASE$(qwer$) = "J" THEN GJ = GJ - 1: GOTO 789
   IF UCASE$(qwer$) = "K" THEN CLS : LOCATE 10, 35: PRINT "Bye!Bye!": END
   LOOP
   END IF
   IF WIN$ = "YES" THEN CLS : LOCATE 10, 35: PRINT "YOU WIN!": SLEEP 2: END
LOOP UNTIL (g = 1 AND WIN$ = "YES") OR LOSE$ = "YES" OR A$ = "E"
END
1 :
   CLS
   LOCATE 11, 1: FOR I = 1 TO 80: PRINT A$(I); : NEXT I: LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1)
   LOCATE H - A(L) + 1, L: PRINT "*": X = TIMER: A = H - A(L) + 1
   DO
   A$ = INKEY$: A$ = UCASE$(A$)
   IF A$ = "A" THEN L = L - 1: GOSUB 3
   IF A$ = "D" THEN L = L + 1: GOSUB 3
   LOOP UNTIL TIMER - X >= 1 OR WIN$ = "YES"
   CLS
   LOCATE 11, 1: FOR I = 1 TO 80: PRINT A$(I); : NEXT I: LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1)
   H = H + 1: LOCATE H - A(L) + 1, L: PRINT "*"
   IF H - A(L) + 1 = 11 THEN FOR I = 1 TO 2222222: NEXT I: CLS : LOSE$ = "YES"
   RETURN
2 :   
   CLS : LOCATE 11, 1
   FOR I = 1 TO 80: PRINT A$(I); : NEXT I: LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1)
   IF H = 10 AND (L = XZ1 OR L = XZ2) THEN L = A
   IF L >= 80 THEN CLS : WIN$ = "YES": RETURN: L = 80
   IF L = 0 THEN L = 1
   LOCATE H - A(L) + 1, L: PRINT "*"
   IF H - A(L) + 1 = 11 THEN FOR I = 1 TO 2222222: NEXT I: CLS : LOSE$ = "YES"
   RETURN
3 :
   CLS : LOCATE 11, 1
   FOR I = 1 TO 80: PRINT A$(I); : NEXT I: LOCATE 10, XZ1: PRINT B$(1): LOCATE 10, XZ2: PRINT B$(1)
   LOCATE 10, 13: PRINT B$(1): LOCATE 10, 25: PRINT B$(1)
   IF L >= 80 THEN CLS : WIN$ = "YES": RETURN: L = 80
   IF H - A(L) + 1 = 11 THEN CLS : LOSE$ = "YES": RETURN
   LOCATE A, L: PRINT "*"
   RETURN

额
你不会用上下左右键？用a,d很烦。
↑：Chr$(0)+Chr$(72)
↓：Chr$(0)+Chr$(80)
←：Chr$(0)+Chr$(75)
→：Chr$(0)+Chr$(77)

会用是会用，但是我习惯用a,d了

good

大哥，太难输入了，您发我邮箱吧：[email protected]。用winrar压缩再发

好了，发送完毕

第二季比第一季得程序多3倍

不会复制吗 ？ 右击任务栏里的qbasic 编辑 - 复制

复制后不能运行

啊

对

good

good

good

good

good

good

good